gdb/testsuite/
authorDaniel Jacobowitz <drow@false.org>
Tue, 16 Feb 2010 21:26:48 +0000 (21:26 +0000)
committerDaniel Jacobowitz <drow@false.org>
Tue, 16 Feb 2010 21:26:48 +0000 (21:26 +0000)
* gdb.xml/tdesc-arch.exp, gdb.xml/tdesc-regs.exp: Rewrite file
creation to support remote host testing.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.xml/tdesc-arch.exp
gdb/testsuite/gdb.xml/tdesc-regs.exp

index 2600307653898de03c299f0c4ecf8f27af8222d9..8f42cc655f572fd4a4953dc750e0d9e1377510e5 100644 (file)
@@ -1,3 +1,8 @@
+2010-02-16  Daniel Jacobowitz  <dan@codesourcery.com>
+
+       * gdb.xml/tdesc-arch.exp, gdb.xml/tdesc-regs.exp: Rewrite file
+       creation to support remote host testing.
+
 2010-02-16  Daniel Jacobowitz  <dan@codesourcery.com>
 
        * gdb.base/valgrind-db-attach.exp: Use unsupported instead of xfail.
index 73af810bac1e9e19365c7e1d4119db4047edb975..dff8a858e45517dfb63db7426d0904490373ef40 100644 (file)
@@ -58,13 +58,15 @@ if { "$arch1" == "" || "$arch2" == "" || "$default_arch" == "" } {
 
 proc set_arch { arch which } {
     global gdb_prompt
+    global subdir
 
-    set fd [open "tdesc-arch.xml" w]
+    set fd [open "$subdir/tdesc-arch.xml" w]
     puts $fd \
        "<target>
            <architecture>$arch</architecture>
         </target>"
     close $fd
+    remote_download host "${subdir}/tdesc-arch.xml" "tdesc-arch.xml"
 
     # Anchor the test output, so that error messages are detected.
     set cmd "set tdesc filename tdesc-arch.xml"
@@ -84,19 +86,21 @@ proc set_arch { arch which } {
        "The target architecture is set automatically \\(currently $arch\\)" \
        "$cmd ($which architecture)"
 
-    file delete "tdesc-arch.xml"
+    file delete "${subdir}/tdesc-arch.xml"
+    remote_file host delete "tdesc-arch.xml"
 }
 
 set_arch $arch1 first
 set_arch $arch2 second
 
 # Check an invalid architecture setting.
-set fd [open "tdesc-arch.xml" w]
+set fd [open "${subdir}/tdesc-arch.xml" w]
 puts $fd \
     "<target>
        <architecture>invalid</architecture>
      </target>"
 close $fd
+remote_download host "$subdir/tdesc-arch.xml" "tdesc-arch.xml"
 
 set cmd "set tdesc filename tdesc-arch.xml"
 gdb_test $cmd \
@@ -108,4 +112,5 @@ gdb_test $cmd \
     "The target architecture is set automatically \\(currently $default_arch\\)" \
     "$cmd (invalid architecture)"
 
-file delete "tdesc-arch.xml"
+file delete "${subdir}/tdesc-arch.xml"
+remote_file host delete "tdesc-arch.xml"
index f11d013dd1ef9fea6a5af64cc357675f434a0eeb..0922ca383829affe4ae6fbe25078037ed52a3321 100644 (file)
@@ -80,8 +80,7 @@ gdb_test "set tdesc file $srcdir/$subdir/single-reg.xml" \
 # Copy the core registers into the objdir if necessary, so that they
 # will be found by <xi:include>.
 foreach src ${core-regs} {
-    file delete "$src"
-    file copy "$srcdir/../features/$regdir$src" "$src"
+    set file [remote_download host "$srcdir/../features/$regdir$src" "$src"]
 }
 
 # Similarly, we need to copy files under test into the objdir.
@@ -91,9 +90,9 @@ proc load_description { file errmsg } {
     global gdb_prompt
     global core-regs
 
-    file delete "regs.xml"
+    file delete "$subdir/regs.xml"
     set ifd [open "$srcdir/$subdir/$file" r]
-    set ofd [open "regs.xml" w]
+    set ofd [open "$subdir/regs.xml" w]
     while {[gets $ifd line] >= 0} {
        if {[regexp {<xi:include href="core-regs.xml"/>} $line]} {
            foreach src ${core-regs} {
@@ -105,16 +104,19 @@ proc load_description { file errmsg } {
     }
     close $ifd
     close $ofd
+    remote_download host "$subdir/regs.xml" "regs.xml"
+    file delete "$subdir/regs.xml"
 
     # Anchor the test output, so that error messages are detected.
     set cmd "set tdesc filename regs.xml"
-    set msg "set tdesc filename $file"
+    set msg "set tdesc filename regs.xml - from $file"
     set cmd_regex [string_to_regexp $cmd]
     gdb_test_multiple $cmd $msg {
        -re "^$cmd_regex\r\n$errmsg$gdb_prompt $" {
            pass $msg
        }
     }
+    remote_file host delete "regs.xml"
 }
 
 load_description "extra-regs.xml" ""
@@ -130,6 +132,5 @@ load_description "core-only.xml" ""
 gdb_test "ptype \$extrareg" "type = void"
 
 foreach src ${core-regs} {
-    file delete "$src"
+    remote_file host delete "$src"
 }
-file delete "regs.xml"