diff options
Diffstat (limited to 'gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception')
-rw-r--r-- | gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception b/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception index 8dd21cc70fa..e4fa8cec5dd 100644 --- a/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception +++ b/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/exception @@ -55,14 +55,14 @@ my $rv; $Devel::PPPort::exception_caught = undef; $rv = eval { &Devel::PPPort::exception(0) }; -ok($@, ''); +is($@, ''); ok(defined $rv); -ok($rv, 42); -ok($Devel::PPPort::exception_caught, 0); +is($rv, 42); +is($Devel::PPPort::exception_caught, 0); $Devel::PPPort::exception_caught = undef; $rv = eval { &Devel::PPPort::exception(1) }; -ok($@, "boo\n"); +is($@, "boo\n"); ok(not defined $rv); -ok($Devel::PPPort::exception_caught, 1); +is($Devel::PPPort::exception_caught, 1); |