diff options
Diffstat (limited to 'cpan/Test-Simple/t/Behavior/478-cmp_ok_hash.t')
-rw-r--r-- | cpan/Test-Simple/t/Behavior/478-cmp_ok_hash.t | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/cpan/Test-Simple/t/Behavior/478-cmp_ok_hash.t b/cpan/Test-Simple/t/Behavior/478-cmp_ok_hash.t deleted file mode 100644 index ae82249caf..0000000000 --- a/cpan/Test-Simple/t/Behavior/478-cmp_ok_hash.t +++ /dev/null @@ -1,36 +0,0 @@ -use strict; -use warnings; -use Test::More; - -use Test::Stream::Tester; - -my $want = 0; -my $got = 0; - -cmp_ok($got, 'eq', $want, "Passes on correct comparison"); - -my @warn; -my $events = intercept { - no warnings 'redefine'; - local $SIG{__WARN__} = sub { - push @warn => @_; - }; - cmp_ok($got, '#eq', $want, "You shall not pass!"); -}; - -# We are not going to inspect the warning because it is not super predictable, -# and changes with eval specifics. -ok(@warn, "We got warnings"); - -events_are( - $events, - check { - event ok => { - bool => 0, - diag => qr/syntax error at \(eval in cmp_ok\)/, - }; - }, - "Events meet expectations" -); - -done_testing; |