* runtest.exp (xml_file_name): New global.
(usage): Update.
Handle optional argument to --xml.
* lib/framework.exp (open_logs): Respect xml_file_name.
Signed-off-by: Ben Elliston <bje@gnu.org>
+2012-06-11 Tom Tromey <tromey@redhat.com>
+
+ * doc/runtest.1: Update.
+ * runtest.exp (xml_file_name): New global.
+ (usage): Update.
+ Handle optional argument to --xml.
+ * lib/framework.exp (open_logs): Respect xml_file_name.
+
2012-03-24 Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
* runtest.exp (load_tool_init): Fix typo in -de option handling.
.B --version,\ -V
Prints out the versions of DejaGnu, Expect and Tcl.
.TP
-.B --xml,\ -x
-Generate XML output.
+.B --xml[=FILE],\ -x
+Generate XML output. \fBFILE\fR is optional; if given it is the name of
+the output file. If not given, the output file is named after the tool.
.TP
.B -D[number]
Activate the Tcl debugger. \fBnumber\fR can be either 1 or 0. If it
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
-# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+# 2002, 2003, 2005, 2006, 2007, 2008, 2009, 2010, 2012 Free Software Foundation, Inc.
#
# This file is part of DejaGnu.
#
global tool
global sum_file
global xml_file
+ global xml_file_name
global xml
if { ${tool} == "" } {
set sum_file [open [file join $outdir $tool.sum] w]
if { $xml } {
catch "file delete -force -- $outdir/$tool.xml"
- set xml_file [open [file join $outdir $tool.xml] w]
+ if { ![string compare $xml_file_name ""] } {
+ set xml_file_name $tool.xml
+ }
+ set xml_file [open [file join $outdir $xml_file_name] w]
xml_output "<?xml version=\"1.0\"?>"
insertdtd
xml_output "<testsuite>"
# runtest.exp -- Test framework driver
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
-# 2001, 2002, 2003 Free Software Foundation, Inc.
+# 2001, 2002, 2003, 2012 Free Software Foundation, Inc.
#
# This file is part of DejaGnu.
#
set kfail_prms 0 ;# bug id for the description of the known failure
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_file_name "" ;# name of the xml output if requested
+set xml_file "" ;# handle on the xml file if requested
set xml 0 ;# flag for requesting xml
set logname "" ;# the users login name
set prms_id 0 ;# GNATS prms id number
send_user "\t--directory (-di) name\tRun only the tests in directory 'name'\n"
send_user "\t--verbose (-v)\t\tEmit verbose output\n"
send_user "\t--version (-V)\t\tEmit all version numbers\n"
- send_user "\t--xml (-x)\t\tTurn on XML output generation\n"
+ send_user "\t--xml\[=name\] (-x)\tTurn on XML output generation\n"
send_user "\t--D\[0-1\]\t\tTcl debugger\n"
send_user "\tscript.exp\[=arg(s)\]\tRun these tests only\n"
if { [info exists tool] } {
}
"--x*" {
+ set xml_file_name $optarg
set xml 1
verbose "XML logging turned on"
continue