gistfile1.txt

zoffix@VirtualBox~/CPANPRC/rakudo (nom)$ PERL6_TEST_DIE_ON_FAIL=1 prove -e './perl6 -Ilib' -vlr bar.t
bar.t .. 
1..2
    not ok 1 - 

    # Failed test at bar.t line 1
    # Test failed. Stopping test suite, because PERL6_TEST_DIE_ON_FAIL environmental variable is set to a true value.
["calling exit"]
Dubious, test returned 1 (wstat 256, 0x100)
Failed 2/2 subtests 

Test Summary Report
-------------------
bar.t (Wstat: 256 Tests: 0 Failed: 0)
  Non-zero exit status: 1
  Parse errors: Bad plan.  You planned 2 tests but ran 0.
Files=1, Tests=0,  1 wallclock secs ( 0.02 usr  0.00 sys +  0.16 cusr  0.02 csys =  0.20 CPU)
Result: FAIL
zoffix@VirtualBox~/CPANPRC/rakudo (nom)$ echo $?
1
zoffix@VirtualBox~/CPANPRC/rakudo (nom)$ 

p6.p6

sub die-on-fail {
    if !$todo_reason && !$subtest_todo_reason && nqp::iseq_i($die_on_fail,1) {
        _diag 'Test failed. Stopping test suite, because'
                ~ ' PERL6_TEST_DIE_ON_FAIL environmental variable is set'
                ~ ' to a true value.';
        dd ['calling exit'];
        exit 255;
        dd ['wtf?'];
    }

    $todo_reason = '' if $todo_upto_test_num == $num_of_tests_run;

    False;
}