This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
run_multiple_progs: allow fatal to be turned off too
authorTony Cook <tony@develop-help.com>
Mon, 14 Sep 2020 05:49:40 +0000 (15:49 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 4 Nov 2020 04:26:48 +0000 (04:26 +0000)
in some cases we want to group a test that shouldn't croak with the
croak tests, in particular to catch regressions when we've
introduced a croak.

t/test.pl

index 2b0554a..8f58447 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -1332,6 +1332,10 @@ sub run_multiple_progs {
                elsif ($option eq 'fatal') { # perl should fail
                    $fatal = 1;
                }
+                elsif ($option eq 'nonfatal') {
+                    # used to turn off default fatal
+                    $fatal = 0;
+                }
                else {
                    die "$0: Unknown OPTION '$option'\n";
                }