diff options
| author | Rob Savoye <rob@welcomehome.org> | 2002-04-26 04:22:42 +0000 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2002-04-26 04:22:42 +0000 |
| commit | 2f41767b751bfaf2cee5854ece07a863763db87e (patch) | |
| tree | 0a222abf2df7f0cad6159ecd950533ba3edaaded /runtest.exp | |
| parent | aa45a9b939af6613d6a5d59d934d728a2d085ce8 (diff) | |
| download | dejagnu-2f41767b751bfaf2cee5854ece07a863763db87e.zip dejagnu-2f41767b751bfaf2cee5854ece07a863763db87e.tar.gz dejagnu-2f41767b751bfaf2cee5854ece07a863763db87e.tar.bz2 | |
2002-04-25 <Matthew Bemis <bemis@iol.unh.edu>
* lib/framework/exp: new procs check_xml{}, insertdtd{}, xml_output{},
plus a few hooks to xml_output in the other logging procs to produce
XML output.
* runtest.exp: Add support for the --x option for XML output.
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 |