Sign in
android
/
toolchain
/
perl
/
85598a3a597441edb4af308243cc9ff5f9666330
/
.
/
perl-5.16.2
/
cpan
/
Test-Simple
/
t
/
lib
/
Test
/
Simple
/
sample_tests
/
death.plx
blob: e682ec08a2584bf0112b074c94de60749a817ef3 [
file
] [
log
] [
blame
]
require
Test
::
Simple
;
push
@INC
,
't/lib'
;
require
Test
::
Simple
::
Catch
;
my
(
$out
,
$err
)
=
Test
::
Simple
::
Catch
::
caught
();
require
Dev
::
Null
;
Test
::
Simple
->
import
(
tests
=>
5
);
tie
*
STDERR
,
'Dev::Null'
;
ok
(
1
);
ok
(
1
);
ok
(
1
);
$
!
=
0
;
die
"This is a test"
;