* gdb.base/exprs.exp(test_expr): Make sure each test gets a unique
authorBob Manson <manson@cygnus>
Thu, 20 Feb 1997 23:45:23 +0000 (23:45 +0000)
committerBob Manson <manson@cygnus>
Thu, 20 Feb 1997 23:45:23 +0000 (23:45 +0000)
name.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/exprs.exp

index 249e3254836ab765adf41571eadacc5b3cf7c23b..f434ad422ce78083eb7592283fda1380fc6cc4a6 100644 (file)
@@ -1,5 +1,8 @@
 Thu Feb 20 13:57:01 1997  Bob Manson  <manson@charmed.cygnus.com>
 
+       * gdb.base/exprs.exp(test_expr): Make sure each test gets a unique
+       name.
+
        * gdb.base/help.exp: Fix the syntax of a few gdb_test calls.
 
        * gdb.base/scope.exp: Use gdb_test.
index b49e6d6344b1034da41b56c4fd2f0e74d46d1b36..859c14d574b1432c624741f0618927e9108af562 100644 (file)
@@ -65,7 +65,7 @@ proc test_expr { args } {
        return 1;
     }
     for {set x 1} {$x < $last_ent} {set x [expr $x + 2]} {
-       if [gdb_test [lindex $args $x] [lindex $args [expr $x + 1]] $testname] {
+       if [gdb_test [lindex $args $x] [lindex $args [expr $x + 1]] "$testname ([lindex $args $x])"] {
            return 1;
        }
     }
@@ -176,7 +176,6 @@ test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int < 0" "\\$\[
 test_expr "set variable v_unsigned_int=0x7FFF" "print v_unsigned_int > 0" "\\$\[0-9\]* = 1"  "print v_unsigned_int > 0x7FFF" "\\$\[0-9\]* = 0"  "print unsigned int >"
 # make int a minus
 test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int == 0" "\\$\[0-9\]* = 0"  "print v_unsigned_int == ~0" "\\$\[0-9\]* = 1"  "print v_unsigned_int == (unsigned int)~0" "\\$\[0-9\]* = 1"  "print unsigned int == (~0)"
-test_expr "\\$\[0-9\]* = 0"  "print v_unsigned_int == (unsigned int)~0" "\\$\[0-9\]* = 1"  "print unsigned int == (~0)"
 test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int != 0" "\\$\[0-9\]* = 1"  "print v_unsigned_int != (unsigned int)~0" "\\$\[0-9\]* = 0"  "print unsigned int != (~0)"
 test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int < 0" "\\$\[0-9\]* = 0"  "print v_unsigned_int < 0x7FFF" "\\$\[0-9\]* = 0"  "print unsigned int < (~0)"
 test_expr "set variable v_unsigned_int=~0" "print v_unsigned_int > 0" "\\$\[0-9\]* = 1"  "print v_unsigned_int > 0x7FFF" "\\$\[0-9\]* = 1"  "print unsigned int > (~0)"