diff options
Diffstat (limited to 'runtest.exp')
-rw-r--r-- | runtest.exp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/runtest.exp b/runtest.exp index ba49e73..028ad5b 100644 --- a/runtest.exp +++ b/runtest.exp @@ -97,6 +97,13 @@ set global_init_file site.exp ;# global init file name set testsuitedir "testsuite" ;# top-level testsuite source directory 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? +} + # Various ccache versions provide incorrect debug info such as ignoring # different current directory, breaking GDB testsuite. set env(CCACHE_DISABLE) 1 @@ -372,6 +379,7 @@ proc usage { } { send_user "\t--host \[triplet\]\tThe canonical triplet of the host machine\n" 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--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" @@ -1201,6 +1209,10 @@ for { set i 0 } { $i < $argc } { incr i } { continue } + "--k*" { # (--keep_going) reduce fatal errors + set ::dejagnu::opt::keep_going 1 + } + "--m*" { # (--mail) mail the output set mailing_list $optarg set mail_logs 1 |