PATH:
usr
/
share
/
doc
/
perl-Test-Simple-0.98
/
t
/
Builder
#!perl -w BEGIN { if( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib'); } else { unshift @INC, 't/lib'; } } use strict; use Test::More 'no_plan'; require Test::Builder; my $tb = Test::Builder->new; # Test that _try() has no effect on $@ and $! and is not effected by # __DIE__ { local $SIG{__DIE__} = sub { fail("DIE handler called: @_") }; local $@ = 42; local $! = 23; is $tb->_try(sub { 2 }), 2; is $tb->_try(sub { return '' }), ''; is $tb->_try(sub { die; }), undef; is_deeply [$tb->_try(sub { die "Foo\n" })], [undef, "Foo\n"]; is $@, 42; cmp_ok $!, '==', 23; } ok !eval { $tb->_try(sub { die "Died\n" }, die_on_fail => 1); }; is $@, "Died\n";
[-] current_test.t
[edit]
[-] Builder.t
[edit]
[-] has_plan2.t
[edit]
[-] try.t
[edit]
[+]
..
[-] no_header.t
[edit]
[-] reset.t
[edit]
[-] carp.t
[edit]
[-] reset_outputs.t
[edit]
[-] current_test_without_plan.t
[edit]
[-] done_testing_plan_mismatch.t
[edit]
[-] is_passing.t
[edit]
[-] done_testing_with_plan.t
[edit]
[-] ok_obj.t
[edit]
[-] create.t
[edit]
[-] no_diag.t
[edit]
[-] done_testing_with_no_plan.t
[edit]
[-] output.t
[edit]
[-] no_plan_at_all.t
[edit]
[-] done_testing_double.t
[edit]
[-] details.t
[edit]
[-] done_testing.t
[edit]
[-] maybe_regex.t
[edit]
[-] no_ending.t
[edit]
[-] fork_with_new_stdout.t
[edit]
[-] has_plan.t
[edit]
[-] is_fh.t
[edit]
[-] done_testing_with_number.t
[edit]