Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (19 sloc) 536 Bytes
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.
nok $failed.defined,
'exit() works in BEGIN {} - $fail not yet initialized at END time';
# Output the TAP header...
plan 2;
nok $failed.defined, '$failed not yet initialized in BEGIN {}';
# ...and exit, implicitly calling END.
# vim: ft=perl6
Something went wrong with that request. Please try again.