diff options
Diffstat (limited to 'cpan/Test-Simple/t/Test-Stream-Event.t')
-rw-r--r-- | cpan/Test-Simple/t/Test-Stream-Event.t | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/cpan/Test-Simple/t/Test-Stream-Event.t b/cpan/Test-Simple/t/Test-Stream-Event.t deleted file mode 100644 index 1351059e45..0000000000 --- a/cpan/Test-Simple/t/Test-Stream-Event.t +++ /dev/null @@ -1,30 +0,0 @@ -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; |