This is the mail archive of the gdb-patches@sourceware.org mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[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" \

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]