/[dejagnu]/dejagnu/runtest.exp
ViewVC logotype

Diff of /dejagnu/runtest.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by rsavoye, Wed May 9 18:19:43 2001 UTC revision 1.5 by rsavoye, Mon May 14 15:48:24 2001 UTC
# Line 372  proc usage { } { Line 372  proc usage { } {
372      send_user "\t--host \[string\]\t\tThe canonical config name of the host machine\n"      send_user "\t--host \[string\]\t\tThe canonical config name of the host machine\n"
373      send_user "\t--host_board \[name\]\tThe host board to use\n"      send_user "\t--host_board \[name\]\tThe host board to use\n"
374      send_user "\t--target \[string\]\tThe canonical config name of the target board\n"      send_user "\t--target \[string\]\tThe canonical config name of the target board\n"
375      send_user "\t--status (-st)\t\tSet the exit status to fail on Tcl errors\n"      send_user "\t--status (-sta)\t\tSet the exit status to fail on Tcl errors\n"
376      send_user "\t--debug (-de)\t\tSet expect debugging ON\n"      send_user "\t--debug (-de)\t\tSet expect debugging ON\n"
377      send_user "\t--help (-he)\t\tPrint help text\n"      send_user "\t--help (-he)\t\tPrint help text\n"
378      send_user "\t--mail \[name(s)\]\tWhom to mail the results to\n"      send_user "\t--mail \[name(s)\]\tWhom to mail the results to\n"
# Line 439  for { set i 0 } { $i < $argc } { incr i Line 439  for { set i 0 } { $i < $argc } { incr i
439          "--ob*" -          "--ob*" -
440          "--ou*" -          "--ou*" -
441          "--sr*" -          "--sr*" -
442          "--st*" -          "--str*" -
443          "--ta*" -          "--ta*" -
444          "--di*" -          "--di*" -
445          "--to*" {          "--to*" {
# Line 469  for { set i 0 } { $i < $argc } { incr i Line 469  for { set i 0 } { $i < $argc } { incr i
469              continue              continue
470          }          }
471    
         "--st*" {  
             set exit_error 1  
             continue  
         }  
           
472          "--sr*" {                       # (--srcdir) where the testsuite source code lives          "--sr*" {                       # (--srcdir) where the testsuite source code lives
473              set srcdir $optarg              set srcdir $optarg
474              continue              continue
# Line 988  for { set i 0 } { $i < $argc } { incr i Line 983  for { set i 0 } { $i < $argc } { incr i
983          "--ob*" -          "--ob*" -
984          "--ou*" -          "--ou*" -
985          "--sr*" -          "--sr*" -
986          "--st*" -          "--str*" -
987          "--ta*" -          "--ta*" -
988          "--di*" -          "--di*" -
989          "--to*" {          "--to*" {
# Line 1118  for { set i 0 } { $i < $argc } { incr i Line 1113  for { set i 0 } { $i < $argc } { incr i
1113              continue              continue
1114          }          }
1115                    
1116          "--st*" {                       # (--strace) expect trace level          "--str*" {                      # (--strace) expect trace level
1117              set tracelevel $optarg              set tracelevel $optarg
1118              strace $tracelevel              strace $tracelevel
1119              verbose "Source Trace level is now $tracelevel"              verbose "Source Trace level is now $tracelevel"
1120              continue              continue
1121          }          }
1122                    
1123            "--sta*" {                      # (--status) exit status flag
1124                set exit_error 1
1125                verbose "Tcl errors will set an ERROR exit status"
1126                continue
1127            }
1128            
1129          "--tool_opt*" {          "--tool_opt*" {
1130              continue              continue
1131          }          }
# Line 1442  proc runtest { test_file_name } { Line 1443  proc runtest { test_file_name } {
1443              # notices the error.              # notices the error.
1444              global exit_status exit_error              global exit_status exit_error
1445              # exit error is set by a command line option              # exit error is set by a command line option
1446              set exit_status $exit_error              if { $exit_status == 0 } {
1447                    set exit_status $exit_error
1448                }
1449              # We can't call `perror' here, it resets `errorInfo'              # We can't call `perror' here, it resets `errorInfo'
1450              # before we want to look at it.  Also remember that perror              # before we want to look at it.  Also remember that perror
1451              # increments `errcnt'.  If we do call perror we'd have to              # increments `errcnt'.  If we do call perror we'd have to

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26