TEST 'test good',
CODE { return 1 }
;
our $SkipNotSkippedFlag = 0;
SKIP 'test skip', 'to check if skipped';
TEST 'test skip me',
CODE
{
$SkipNotSkippedFlag = 1;
}
;
TEST 'check if "skip me" has been skipped',
CODE
{
return undef if $SkipNotSkippedFlag;
}
;
TODO 'test bad', '"not ok" result expected';
TEST 'test bad for <undef>',
CODE
{
return undef;
}
;
TEST 'test bad for die()',
CODE { die "hard" }
;
RUN;