blob: 1351059e45e5e7352101f6c5e49b4a960d5fa7b0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use strict;
use warnings;
use Test::Stream;
use Test::More;
use ok 'Test::Stream::Event';
can_ok('Test::Stream::Event', qw/context created in_subtest/);
my $ok = eval { Test::Stream::Event->new(); 1 };
my $err = $@;
ok(!$ok, "Died");
like($err, qr/No context provided/, "Need context");
{
package My::MockEvent;
use Test::Stream::Event(
accessors => [qw/foo bar baz/],
);
}
can_ok('My::MockEvent', qw/foo bar baz/);
isa_ok('My::MockEvent', 'Test::Stream::Event');
my $one = My::MockEvent->new('fake');
can_ok('Test::Stream::Context', 'mockevent');
done_testing;
|