Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

55 lines (42 sloc) 1.306 kB
use v6;
use Test;
# $failed is set to 0 (actually to Mu) at compiletime.
my $failed;
# At run time, if we ever reach runtime, $failed is set to 1.
$failed = 1;
# When we end, we check if $failed is still 0. If yes, we've never reached runtime.
END {
nok $failed.defined,
'exit() works in CHECK {} - $fail not yet initialized at END time';
}
CHECK {
# Output the TAP header...
plan 2;
nok $failed.defined, '$failed not yet initialized in CHECK {}';
# ...and exit, implicitly calling END.
exit;
}
# This file was testing that exit does not trigger END at CHECK time.
# However, the spec did not say anything on this subject, and Perl 5
# does call END blocks upon exit in CHECK. Hence I've preserved the
# original test below but now it tests for the perl5-compatible behaviour.
# -- audreyt 20061006
=begin END
use v6;
use Test;
# $failed is set to 0 (actually to Mu) at compiletime.
my $failed;
# At run time, if we ever reach runtime, $failed is set to 1.
$failed = 1;
# When we end, we check if $failed is still 0. If yes, we've never reached runtime.
END {
ok 0, 'END {...} should not be invoked';
}
CHECK {
# Output the TAP header...
plan 1;
nok $failed.defined, 'exit() works in CHECK {}';
# ...and exit, which does _not_ call END.
exit;
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.