The --xml option hard-codes the output file name as $tool.xml.
Unfortunately, gdb already has a directory named gdb.xml in its test suite.

So, I wrote this patch to let runtest --xml take an optional file name.

Tom

diff --git a/ChangeLog b/ChangeLog
index 9e1a1c4..c044ac1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2012-06-08  Tom Tromey  <tromey@redh...>
+
+ * 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....>

* runtest.exp (load_tool_init): Fix typo in -de option handling.
diff --git a/lib/framework.exp b/lib/framework.exp
index 5871ecc..8273882 100644
--- a/lib/framework.exp
+++ b/lib/framework.exp
@@ -1,5 +1,5 @@
# 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.
#
@@ -65,6 +65,7 @@ proc open_logs { } {
     global tool
     global sum_file
     global xml_file
+    global xml_file_name
     global xml

     if { ${tool} ==  "" } {
@@ -74,7 +75,10 @@ proc open_logs { } {
     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>"
diff --git a/runtest.exp b/runtest.exp
index b32181a..a7ad7a0 100644
--- a/runtest.exp
+++ b/runtest.exp
@@ -1,6 +1,6 @@
# 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.
#
@@ -55,7 +55,8 @@ set kfail_flag  0 ;# indicates that it is a known failure
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
@@ -395,7 +396,7 @@ proc usage { } {
     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] } {
@@ -1168,6 +1169,7 @@ for { set i 0 } { $i < $argc } { incr i } {
}

"--x*" {
+     set xml_file_name $optarg
    set xml 1
    verbose "XML logging turned on"
    continue

_______________________________________________
DejaGnu mailing list
DejaGnu@gnu....
https://lists.gnu.org/mailman/listinfo/dejagnu