2013-06-06 Doug Evans * gdb.cp/derivation.exp: Make tests have unique names. Index: gdb.cp/derivation.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.cp/derivation.exp,v retrieving revision 1.25 diff -u -p -r1.25 derivation.exp --- gdb.cp/derivation.exp 5 Jun 2013 22:28:51 -0000 1.25 +++ gdb.cp/derivation.exp 6 Jun 2013 18:59:35 -0000 @@ -40,15 +40,17 @@ if {[prepare_for_testing $testfile.exp $ } # Check inheritance of typedefs. -foreach klass {"A" "D" "E" "F" "A2" "D2"} { - gdb_test "ptype ${klass}::value_type" "type = int" - gdb_test "whatis ${klass}::value_type" "type = int" - gdb_test "p (${klass}::value_type) 0" " = 0" -} -foreach klass {"Z" "ZZ"} { - gdb_test "ptype ${klass}::value_type" "type = float" - gdb_test "whatis ${klass}::value_type" "type = float" - gdb_test "p (${klass}::value_type) 0" " = 0" +with_test_prefix "before run" { + foreach klass {"A" "D" "E" "F" "A2" "D2"} { + gdb_test "ptype ${klass}::value_type" "type = int" + gdb_test "whatis ${klass}::value_type" "type = int" + gdb_test "p (${klass}::value_type) 0" " = 0" + } + foreach klass {"Z" "ZZ"} { + gdb_test "ptype ${klass}::value_type" "type = float" + gdb_test "whatis ${klass}::value_type" "type = float" + gdb_test "p (${klass}::value_type) 0" " = 0" + } } # Set it up at a breakpoint so we can play with the variable values. @@ -59,10 +61,12 @@ if ![runto 'marker1'] then { } # Check inheritance of typedefs again, but this time with an active block. -foreach klass {"A" "D" "A2" "D2"} { - gdb_test "ptype ${klass}::value_type" "type = int" - gdb_test "whatis ${klass}::value_type" "type = int" - gdb_test "p (${klass}::value_type) 0" " = 0" +with_test_prefix "at marker1" { + foreach klass {"A" "D" "A2" "D2"} { + gdb_test "ptype ${klass}::value_type" "type = int" + gdb_test "whatis ${klass}::value_type" "type = int" + gdb_test "p (${klass}::value_type) 0" " = 0" + } } gdb_test "up" ".*main.*" "up from marker1"