1use Test2::Bundle::Extended -target => 'Test2::Compare::Event';
2
3my $one = $CLASS->new(etype => 'Ok');
4is($one->name, '<EVENT: Ok>', "got name");
5is($one->meta_class, 'Test2::Compare::EventMeta', "correct meta class");
6is($one->object_base, 'Test2::Event', "Event is the base class");
7
8my $trace = Test2::Util::Trace->new(frame => ['Foo', 'foo.t', 42, 'foo']);
9my $Ok = Test2::Event::Ok->new(trace => $trace, pass => 1);
10
11is($one->got_lines(), undef, "no lines");
12is($one->got_lines('xxx'), undef, "no lines");
13is($one->got_lines(bless {}, 'XXX'), undef, "no lines");
14is($one->got_lines($Ok), 42, "got the correct line");
15
16done_testing;
17