* gdb.base/dump.exp (capture_value): Don't put expression into
authorTom Tromey <tromey@redhat.com>
Thu, 6 Jun 2013 19:00:13 +0000 (19:00 +0000)
committerTom Tromey <tromey@redhat.com>
Thu, 6 Jun 2013 19:00:13 +0000 (19:00 +0000)
test name if arguments passed in.
Rename a couple more tests to make them unique.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/dump.exp

index 22941c120e08a004217a5380dce782bc600f498d..f4b9adefb07468c661d8b1ccc27f8f6f977dc8bc 100644 (file)
@@ -1,3 +1,9 @@
+2013-06-06  Tom Tromey  <tromey@redhat.com>
+
+       * gdb.base/dump.exp (capture_value): Don't put expression into
+       test name if arguments passed in.
+       Rename a couple more tests to make them unique.
+
 2013-06-06  Tom Tromey  <tromey@redhat.com>
 
        * gdb.base/break-always.exp: Explicitly specify test name.
index 17202a8fe60472c4640f64d76db90f2bce5c5a27..b2d0b3a17a02b27593a2475553e8e0b2ab5787b5 100644 (file)
@@ -129,8 +129,9 @@ proc capture_value { expression args } {
 
     set output_string ""
     if {[llength $args] > 0} {
-       # Convert $args into a simple string.
-       set test "[join $args]; capture $expression"
+       # Convert $args into a simple string and don't use EXPRESSION
+       # in the test name.
+       set test "[join $args]; capture"
     } {
        set test "capture $expression"
     }
@@ -440,14 +441,14 @@ gdb_test_multiple "set endian $endian" "set endianness" {
 # Reload saved values one by one, and compare.
 
 if { ![string compare $array_val \
-          [capture_value "intarray" "file binfile"]] } then {
+          [capture_value "intarray" "file binfile; intarray"]] } then {
     fail "start with intarray un-initialized"
 } else {
     pass "start with intarray un-initialized"
 }
 
 if { ![string compare $struct_val \
-          [capture_value "intstruct" "file binfile"]] } then {
+          [capture_value "intstruct" "file binfile; intstruct"]] } then {
     fail "start with intstruct un-initialized"
 } else {
     pass "start with intstruct un-initialized"