diff options
Diffstat (limited to 't/op/yadayada.t')
| -rw-r--r-- | t/op/yadayada.t | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/t/op/yadayada.t b/t/op/yadayada.t index deca46c789..f82aa72537 100644 --- a/t/op/yadayada.t +++ b/t/op/yadayada.t @@ -8,38 +8,10 @@ BEGIN { use strict; -plan 5; +plan 1; my $err = "Unimplemented at $0 line " . ( __LINE__ + 2 ) . ".\n"; eval { ... }; is $@, $err; - -$err = "foo at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { !!! "foo" }; - -is $@, $err; - -$err = "Died at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { !!! }; - -is $@, $err; - -my $warning; - -local $SIG{__WARN__} = sub { $warning = shift }; - -$err = "bar at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { ??? "bar" }; - -is $warning, $err; - -$err = "Warning: something's wrong at $0 line " . ( __LINE__ + 2 ) . ".\n"; - -eval { ??? }; - -is $warning, $err; |