diff options
Diffstat (limited to 'runtest.exp')
| -rwxr-xr-x | runtest.exp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/runtest.exp b/runtest.exp index 4eb2a07..8c6f307 100755 --- a/runtest.exp +++ b/runtest.exp @@ -53,6 +53,8 @@ set xfail_flag 0 set xfail_prms 0 set sum_file "" ;# name of the file that contains the summary log set base_dir "" ;# the current working directory +set xml_file "" ;# name of the xml output if requested +set xml 0 ;# flag for requesting xml set logname "" ;# the users login name set prms_id 0 ;# GNATS prms id number set bug_id 0 ;# optional bug id number @@ -158,6 +160,8 @@ proc verbose { args } { set newline 0 } elseif { [lindex $args $i] == "-log" } { set logfile 1 + } elseif { [lindex $args $i] == "-x" } { + set xml 1 } elseif { [string index [lindex $args $i] 0] == "-" } { clone_output "ERROR: verbose: illegal argument: [lindex $args $i]" return @@ -1159,6 +1163,12 @@ for { set i 0 } { $i < $argc } { incr i } { continue } + "--x*" { + set xml 1 + verbose "XML logging turned on" + continue + } + "--he*" { # (--help) help text usage; exit 0 |