This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFA] gdb.ada wild cards
- From: Michael Snyder <msnyder at vmware dot com>
- To: "gdb-patches at sourceware dot org" <gdb-patches at sourceware dot org>
- Date: Fri, 04 Jun 2010 14:55:51 -0700
- Subject: [RFA] gdb.ada wild cards
Some of these may be obvious, but since I haven't tested them
I figured it was better to ask for review. ;-)
2010-06-04 Michael Snyder <msnyder@vmware.com>
* gdb.ada/exec_changed: Use ".*" instead of "" for wild card.
* gdb.ada/assign_1.exp: Use gdb_test_no_output.
* gdb.ada/boolean_expr.exp: Ditto.
* gdb.ada/frame_args.exp: Ditto.
* gdb.ada/lang_switch.exp: Ditto.
* gdb.ada/ptype_arith_binop.exp: Ditto.
* gdb.ada/ref_param.exp: Ditto.
* gdb.ada/type_coersion.exp: Ditto.
Index: assign_1.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/assign_1.exp,v
retrieving revision 1.4
diff -u -p -r1.4 assign_1.exp
--- assign_1.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ assign_1.exp 4 Jun 2010 21:54:15 -0000
@@ -25,8 +25,7 @@ gdb_reinitialize_dir $srcdir/$subdir
# Force the language to Ada, as this will not happen automatically
# in this case (no test program).
-gdb_test "set lang ada" \
- "" \
+gdb_test_no_output "set lang ada" \
"Changing the language to ada"
gdb_test "print \$xxx := 1" \
Index: boolean_expr.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/boolean_expr.exp,v
retrieving revision 1.5
diff -u -p -r1.5 boolean_expr.exp
--- boolean_expr.exp 1 Jan 2010 07:31:51 -0000 1.5
+++ boolean_expr.exp 4 Jun 2010 21:54:15 -0000
@@ -28,8 +28,7 @@ set any_addr "0x\[0-9a-zA-Z\]+"
# Force the language to Ada, as this will not happen automatically
# in this case (no test program).
-gdb_test "set lang ada" \
- "" \
+gdb_test_no_output "set lang ada" \
"Changing the language to ada"
gdb_test "print 1 = 2" \
Index: exec_changed.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/exec_changed.exp,v
retrieving revision 1.11
diff -u -p -r1.11 exec_changed.exp
--- exec_changed.exp 1 Jan 2010 07:31:51 -0000 1.11
+++ exec_changed.exp 4 Jun 2010 21:54:15 -0000
@@ -52,7 +52,7 @@ gdb_reinitialize_dir $srcdir/$subdir
# Load the first executable.
-gdb_test "shell mv ${binfile1} ${binfile}" "" ""
+gdb_test "shell mv ${binfile1} ${binfile}" ".*" ""
gdb_load ${binfile}
# Start the program, we should land in the program main procedure
@@ -69,10 +69,10 @@ gdb_test "" \
# second executable into its place. Ensure that the new
# executable is at least a second newer than the old.
-gdb_test "shell mv ${binfile} ${binfile1}" "" ""
-gdb_test "shell mv ${binfile2} ${binfile}" "" ""
-gdb_test "shell sleep 1" "" ""
-gdb_test "shell touch ${binfile}" "" ""
+gdb_test "shell mv ${binfile} ${binfile1}" ".*" ""
+gdb_test "shell mv ${binfile2} ${binfile}" ".*" ""
+gdb_test "shell sleep 1" ".*" ""
+gdb_test "shell touch ${binfile}" ".*" ""
# Start the program a second time, GDB should land in procedure Second
# this time.
Index: frame_args.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/frame_args.exp,v
retrieving revision 1.4
diff -u -p -r1.4 frame_args.exp
--- frame_args.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ frame_args.exp 4 Jun 2010 21:54:15 -0000
@@ -46,8 +46,7 @@ if ![runto break_me] then {
# First, print all the arrays without indexes
-gdb_test "set print frame-arguments scalars" \
- "" \
+gdb_test_no_output "set print frame-arguments scalars" \
"set print frame-arguments scalars"
gdb_test "frame 1" \
Index: lang_switch.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/lang_switch.exp,v
retrieving revision 1.4
diff -u -p -r1.4 lang_switch.exp
--- lang_switch.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ lang_switch.exp 4 Jun 2010 21:54:15 -0000
@@ -41,7 +41,7 @@ gdb_load ${binfile}
set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.c]
runto "foo.c:$bp_location"
-gdb_test "set print frame-arguments all" ""
+gdb_test_no_output "set print frame-arguments all"
# Make sure that the language is switched to Ada for the second frame
# by checking the string parameter.
Index: ptype_arith_binop.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/ptype_arith_binop.exp,v
retrieving revision 1.3
diff -u -p -r1.3 ptype_arith_binop.exp
--- ptype_arith_binop.exp 1 Jan 2010 07:31:51 -0000 1.3
+++ ptype_arith_binop.exp 4 Jun 2010 21:54:15 -0000
@@ -21,8 +21,7 @@ gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
-gdb_test "set lang ada" \
- "" \
+gdb_test_no_output "set lang ada" \
"set lang ada"
gdb_test "ptype 3 * 2.0" \
Index: ref_param.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/ref_param.exp,v
retrieving revision 1.4
diff -u -p -r1.4 ref_param.exp
--- ref_param.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ ref_param.exp 4 Jun 2010 21:54:15 -0000
@@ -39,7 +39,7 @@ if ![runto call_me] then {
return
}
-gdb_test "set print frame-arguments all" ""
+gdb_test_no_output "set print frame-arguments all"
set expected_d "\\(one => 1, two => 2, three => 3, four => 4, five => 5, six => 6\\)"
gdb_test "frame" \
Index: type_coercion.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/type_coercion.exp,v
retrieving revision 1.4
diff -u -p -r1.4 type_coercion.exp
--- type_coercion.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ type_coercion.exp 4 Jun 2010 21:54:15 -0000
@@ -41,8 +41,7 @@ gdb_test "p q" \
"= \\(2, 3, 5, 7, 11\\)" \
"p q"
-gdb_test "set \$addr := q'address" \
- "" \
+gdb_test_no_output "set \$addr := q'address" \
"save q'address in convenience variable"
gdb_test "p {Integer} \$addr" \
@@ -51,8 +50,7 @@ gdb_test "p {Integer} \$addr" \
# Now change the value at $addr using the same "{TYPE}" syntax.
-gdb_test "set {Integer} \$addr := 19" \
- "" \
+gdb_test_no_output "set {Integer} \$addr := 19" \
"set {Integer} \$addr := 19"
gdb_test "p q" \