diff options
author | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-26 20:31:13 -0500 |
---|---|---|
committer | Jacob Bachmeyer <jcb62281+dev@gmail.com> | 2020-06-26 20:31:13 -0500 |
commit | a149ae3e95dd7a7ec6f7f4bbda64994cffa9e37b (patch) | |
tree | e89b796418bab076bec6f509170698b441ea9846 /runtest.exp | |
parent | 2c7ae2526ba1e297adb2c013c6ddb5dfaea09f9d (diff) | |
download | dejagnu-a149ae3e95dd7a7ec6f7f4bbda64994cffa9e37b.zip dejagnu-a149ae3e95dd7a7ec6f7f4bbda64994cffa9e37b.tar.gz dejagnu-a149ae3e95dd7a7ec6f7f4bbda64994cffa9e37b.tar.bz2 |
Withdraw proposed --keep_going and --no_keep_going options
Diffstat (limited to 'runtest.exp')
-rw-r--r-- | runtest.exp | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/runtest.exp b/runtest.exp index 83c4140..21adcf6 100644 --- a/runtest.exp +++ b/runtest.exp @@ -98,13 +98,6 @@ 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 1 ;# continue after a fatal error in testcase? -} - -# # Collected errors # namespace eval ::dejagnu::error { @@ -387,8 +380,6 @@ 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--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" @@ -1216,14 +1207,6 @@ for { set i 0 } { $i < $argc } { incr i } { continue } - "--k*" { # (--keep_going) reduce fatal errors - 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 @@ -1624,7 +1607,6 @@ proc runtest { test_file_name } { } lappend ::dejagnu::error::list $new_error unresolved "testcase '$test_file_name' aborted due to Tcl error" - if { ! $::dejagnu::opt::keep_going } { log_and_exit } } if {[info exists tool]} { |