diff options
author | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-24 21:14:28 -0500 |
---|---|---|
committer | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-24 21:14:28 -0500 |
commit | 5bc0f51cebd001b6ba92cdd3e98e97111d96cccb (patch) | |
tree | c4e01e6f18482613975a5e9b55005095c20c75e5 /runtest.exp | |
parent | a53c5648ea1b1d195f290f51450af2e9b05a3089 (diff) | |
download | dejagnu-5bc0f51cebd001b6ba92cdd3e98e97111d96cccb.zip dejagnu-5bc0f51cebd001b6ba92cdd3e98e97111d96cccb.tar.gz dejagnu-5bc0f51cebd001b6ba92cdd3e98e97111d96cccb.tar.bz2 |
Add option to stop immediately at Tcl errors and continue by default
Diffstat (limited to 'runtest.exp')
-rw-r--r-- | runtest.exp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/runtest.exp b/runtest.exp index 245c536..6f7e557 100644 --- a/runtest.exp +++ b/runtest.exp @@ -101,7 +101,7 @@ set testbuilddir "testsuite" ;# top-level testsuite object directory # These are used for internal command-line flags. # namespace eval ::dejagnu::opt { - variable keep_going 0 ;# continue after a fatal error in testcase? + variable keep_going 1 ;# continue after a fatal error in testcase? } # Various ccache versions provide incorrect debug info such as ignoring @@ -380,6 +380,7 @@ proc usage { } { send_user "\t--host_board \[name\]\tThe host board to use\n" send_user "\t--ignore \[name(s)\]\tThe names of specific tests to ignore\n" send_user "\t--keep_going\t\tContinue testing even if a script aborts\n" + send_user "\t--no_keep_going\t\tStop immediately if a script aborts\n" send_user "\t--local_init \[name\]\tThe file to load for local configuration\n" send_user "\t--log_dialog\t\t\Emit Expect output on stdout\n" send_user "\t--mail \[name(s)\]\tWhom to mail the results to\n" @@ -474,7 +475,6 @@ for { set i 0 } { $i < $argc } { incr i } { "--ig*" - "--loc*" - "--m*" - - "--n*" - "--ob*" - "--ou*" - "--sr*" - @@ -1127,7 +1127,6 @@ for { set i 0 } { $i < $argc } { incr i } { "--ig*" - "--loc*" - "--m*" - - "--n*" - "--ob*" - "--ou*" - "--sr*" - @@ -1213,6 +1212,10 @@ for { set i 0 } { $i < $argc } { incr i } { set ::dejagnu::opt::keep_going 1 } + "--no[-_]k*" { # (--no_keep_going) stop on error + set ::dejagnu::opt::keep_going 0 + } + "--m*" { # (--mail) mail the output set mailing_list $optarg set mail_logs 1 |