try.t

来自「source of perl for linux application,」· T 代码 · 共 35 行

#!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;

local $SIG{__DIE__} = sub { fail("DIE handler called: @_") };

# These should not change;
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)],
          [undef, "Foo\n"];

is $@, 42;
cmp_ok $!, '==', 23;