summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/t/Behavior/Munge.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/Munge.t')
-rw-r--r--cpan/Test-Simple/t/Behavior/Munge.t30
1 files changed, 0 insertions, 30 deletions
diff --git a/cpan/Test-Simple/t/Behavior/Munge.t b/cpan/Test-Simple/t/Behavior/Munge.t
deleted file mode 100644
index be9aa98d5c..0000000000
--- a/cpan/Test-Simple/t/Behavior/Munge.t
+++ /dev/null
@@ -1,30 +0,0 @@
-use strict;
-use warnings;
-use Test::Stream;
-use Test::More;
-use Test::Stream::Tester;
-
-events_are(
- intercept {
- my $id = 0;
- Test::Stream->shared->munge(sub {
- my ($stream, $e) = @_;
- return unless $e->isa('Test::Stream::Event::Ok');
- return if defined $e->name;
- $e->set_name( 'flubber: ' . $id++ );
- });
-
- ok( 1, "Keep the name" );
- ok( 1 );
- ok( 1, "Already named" );
- ok( 1 );
- },
- check {
- event ok => { bool => 1, name => "Keep the name" };
- event ok => { bool => 1, name => "flubber: 0" };
- event ok => { bool => 1, name => "Already named" };
- event ok => { bool => 1, name => "flubber: 1" };
- }
-);
-
-done_testing;