diff options
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/event_clone_args.t')
-rw-r--r-- | cpan/Test-Simple/t/Behavior/event_clone_args.t | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/cpan/Test-Simple/t/Behavior/event_clone_args.t b/cpan/Test-Simple/t/Behavior/event_clone_args.t deleted file mode 100644 index 7d4824d550..0000000000 --- a/cpan/Test-Simple/t/Behavior/event_clone_args.t +++ /dev/null @@ -1,22 +0,0 @@ -use Test::More; -use strict; -use warnings; - -use B; -use Test::Stream::Tester qw/intercept/; - -my @events; - -my $x1 = \(my $y1); -push @events => intercept { note $x1 }; -is(B::svref_2object($x1)->REFCNT, 2, "Note does not store a ref"); - -my $x2 = \(my $y2); -push @events => intercept { diag $x2 }; -is(B::svref_2object($x2)->REFCNT, 2, "diag does not store a ref"); - -my $x3 = \(my $y3); -push @events => intercept { ok($x3, "Generating") }; -is(B::svref_2object($x3)->REFCNT, 2, "ok does not store a ref"); - -done_testing; |