summaryrefslogtreecommitdiff
path: root/cpan/Test-Simple/t/Behavior/event_clone_args.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/event_clone_args.t')
-rw-r--r--cpan/Test-Simple/t/Behavior/event_clone_args.t22
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;