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

Diff of /dejagnu/runtest.exp

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

revision 1.17 by bje, Sat Aug 16 13:08:57 2003 UTC revision 1.18 by bje, Tue Aug 19 00:11:43 2003 UTC
# Line 69  set configfile  site.exp       ;# (local to th Line 69  set configfile  site.exp       ;# (local to th
69  set multipass   ""              ;# list of passes and var settings  set multipass   ""              ;# list of passes and var settings
70  set errno       "";             ;#  set errno       "";             ;#
71  set exit_error  0               ;# Toggle for whether to set the exit status  set exit_error  0               ;# Toggle for whether to set the exit status
72                                  ;# on Tcl bugs in test case drivers.  ;# on Tcl bugs in test case drivers.
73  #  #
74  # These describe the host and target environments.  # These describe the host and target environments.
75  #  #
# Line 1177  for { set i 0 } { $i < $argc } { incr i Line 1177  for { set i 0 } { $i < $argc } { incr i
1177              exit 0                    exit 0      
1178          }          }
1179    
1180         "[A-Z0-9_-.]*=*" { # skip makefile style args like CC=gcc, etc... (processed in first pass)          "[A-Z0-9_-.]*=*" { # skip makefile style args like CC=gcc, etc... (processed in first pass)
1181                 continue              continue
1182         }          }
1183    
1184          default {          default {
1185              if [info exists tool] {              if [info exists tool] {
# Line 1311  proc load_tool_target_config { name } { Line 1311  proc load_tool_target_config { name } {
1311          # If we can't load the tool init file, this must be a simple natively hosted          # If we can't load the tool init file, this must be a simple natively hosted
1312          # test suite, so we use the default procs for Unix.          # test suite, so we use the default procs for Unix.
1313          if { [search_and_load_file "library file" default.exp [list $libdir $libdir/config [file dirname [file dirname $srcdir]]/dejagnu/config $srcdir/config . [file dirname [file dirname [file dirname $srcdir]]]/dejagnu/config]] == 0 } {          if { [search_and_load_file "library file" default.exp [list $libdir $libdir/config [file dirname [file dirname $srcdir]]/dejagnu/config $srcdir/config . [file dirname [file dirname [file dirname $srcdir]]]/dejagnu/config]] == 0 } {
1314          send_error "ERROR: Couldn't find default tool init file.\n"              send_error "ERROR: Couldn't find default tool init file.\n"
1315          exit 1              exit 1
1316          }          }
1317      }      }
1318  }  }
# Line 1505  if ![exp_debug] { Line 1505  if ![exp_debug] {
1505               {SIGINT  {interrupted by user}} \               {SIGINT  {interrupted by user}} \
1506               {SIGQUIT {interrupted by user}} \               {SIGQUIT {interrupted by user}} \
1507               {SIGSEGV {segmentation violation}}" {               {SIGSEGV {segmentation violation}}" {
1508           set signal [lindex $sig 0]          set signal [lindex $sig 0]
1509           set str [lindex $sig 1]          set str [lindex $sig 1]
1510           trap "send_error \"got a \[trap -name\] signal, $str \\n\"; log_and_exit;" $signal          trap "send_error \"got a \[trap -name\] signal, $str \\n\"; log_and_exit;" $signal
1511           verbose "setting trap for $signal to $str" 1          verbose "setting trap for $signal to $str" 1
1512      }      }
1513      unset signal str sig      unset signal str sig
1514  }  }
# Line 1599  if [info exists errorInfo] { Line 1599  if [info exists errorInfo] {
1599  regsub -all "\(\[^/\]\)//*" $srcdir "\\1/" srcdir  regsub -all "\(\[^/\]\)//*" $srcdir "\\1/" srcdir
1600    
1601  if ![info exists target_list] {  if ![info exists target_list] {
1602  # Make sure there is at least one target machine. It's probably a Unix box,      # Make sure there is at least one target machine. It's probably a Unix box,
1603  # but that's just a guess.      # but that's just a guess.
1604      set target_list { "unix" }      set target_list { "unix" }
1605  } else {  } else {
1606      verbose "target list is $target_list"      verbose "target list is $target_list"
# Line 1635  foreach current_target $target_list { Line 1635  foreach current_target $target_list {
1635    
1636      setup_target_hook $current_target_name $current_target      setup_target_hook $current_target_name $current_target
1637    
1638  # If multiple passes requested, set them up.  Otherwise prepare just one.      # If multiple passes requested, set them up.  Otherwise prepare just one.
1639  # The format of `MULTIPASS' is a list of elements containing      # The format of `MULTIPASS' is a list of elements containing
1640  # "{ name var1=value1 ... }" where `name' is a generic name for the pass and      # "{ name var1=value1 ... }" where `name' is a generic name for the pass and
1641  # currently has no other meaning.      # currently has no other meaning.
1642    
1643      global env      global env
1644    
# Line 1649  foreach current_target $target_list { Line 1649  foreach current_target $target_list {
1649          set multipass { "" }          set multipass { "" }
1650      }      }
1651    
1652  # If PASS is specified, we want to run only the tests specified.      # If PASS is specified, we want to run only the tests specified.
1653  # Its value should be a number or a list of numbers that specify      # Its value should be a number or a list of numbers that specify
1654  # the passes that we want to run.      # the passes that we want to run.
1655      if [info exists PASS] {      if [info exists PASS] {
1656          set pass $PASS          set pass $PASS
1657      } else {      } else {

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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