4 if( $ENV{PERL_CORE} ) {
11 use Test::More tests => 3;
14 my $tb = Test::Builder->create;
15 sub foo { $tb->croak("foo") }
16 sub bar { $tb->carp("bar") }
19 is $@, sprintf "foo at %s line %s.\n", $0, __LINE__ - 1;
21 eval { $tb->croak("this") };
22 is $@, sprintf "this at %s line %s.\n", $0, __LINE__ - 1;
26 local $SIG{__WARN__} = sub {
27 $warning .= join '', @_;
31 is $warning, sprintf "bar at %s line %s.\n", $0, __LINE__ - 1;