aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.ada')
-rw-r--r--gdb/testsuite/gdb.ada/array_return.exp6
-rw-r--r--gdb/testsuite/gdb.ada/expr_delims.exp10
-rw-r--r--gdb/testsuite/gdb.ada/mi_dyn_arr.exp2
-rw-r--r--gdb/testsuite/gdb.ada/mi_interface.exp2
-rw-r--r--gdb/testsuite/gdb.ada/mi_var_array.exp2
-rw-r--r--gdb/testsuite/gdb.ada/watch_arg.exp4
6 files changed, 13 insertions, 13 deletions
diff --git a/gdb/testsuite/gdb.ada/array_return.exp b/gdb/testsuite/gdb.ada/array_return.exp
index f4dae48..37f2845 100644
--- a/gdb/testsuite/gdb.ada/array_return.exp
+++ b/gdb/testsuite/gdb.ada/array_return.exp
@@ -52,7 +52,7 @@ gdb_test "break create_small_float_vector" \
gdb_test "cont" \
"Breakpoint \[0-9\]+, pck.create_small \\(\\).*" \
- "Continuing to Create_Small"
+ "continuing to Create_Small"
gdb_test "finish" \
"Value returned is \\\$\[0-9\]+ = \\(1, 1\\)" \
@@ -63,7 +63,7 @@ gdb_test "finish" \
gdb_test "cont" \
"Breakpoint \[0-9\]+, pck.create_large \\(\\).*" \
- "Continuing to Create_Large"
+ "continuing to Create_Large"
# On hppa32, the value returned is too large to be returned via a register.
# Instead, it is returned using the struct convention, and the debugger
@@ -82,7 +82,7 @@ gdb_test "finish" \
gdb_test "cont" \
"Breakpoint \[0-9\]+, pck.create_small_float_vector \\(\\).*" \
- "Continuing to Create_Small_Float_Vector"
+ "continuing to Create_Small_Float_Vector"
gdb_test "finish" \
"Value returned is \\\$\[0-9\]+ = \\(4.25, 4.25\\)" \
diff --git a/gdb/testsuite/gdb.ada/expr_delims.exp b/gdb/testsuite/gdb.ada/expr_delims.exp
index 4e1b962..921fb10 100644
--- a/gdb/testsuite/gdb.ada/expr_delims.exp
+++ b/gdb/testsuite/gdb.ada/expr_delims.exp
@@ -39,26 +39,26 @@ gdb_test "continue" \
# for an expression delimiter.
gdb_test "print thread" \
"= 1" \
- "Print variable 'thread'"
+ "print variable 'thread'"
gdb_test_no_output "delete 1"
gdb_test "watch thread" \
".*atchpoint \[0-9\]+: thread" \
- "Set plain watchpoint on variable 'thread'"
+ "set plain watchpoint on variable 'thread'"
# Make sure that 'if' when followed by an expression beginning
# with 'i' works.
gdb_test "watch thread if i = 2" \
".*atchpoint \[0-9\]+: thread" \
- "Set conditional watchpoint."
+ "set conditional watchpoint."
gdb_test "info break" \
".*${ws}.*atchpoint${ws}keep${ws}y${ws}thread${ws}.*atchpoint${ws}keep${ws}y${ws}thread${ws}stop only if i = 2" \
- "Check that watchpoint is set correctly."
+ "check that watchpoint is set correctly."
# Check for right error when using both 'if' and 'thread' clauses.
gdb_test "break foo.adb:$bp_location if thread = 10 thread 999" \
".*Unknown thread 999\\." \
- "Combination of 'if' and 'thread' delimiters."
+ "combination of 'if' and 'thread' delimiters."
diff --git a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp
index 9a7da6e..a8ce1f2 100644
--- a/gdb/testsuite/gdb.ada/mi_dyn_arr.exp
+++ b/gdb/testsuite/gdb.ada/mi_dyn_arr.exp
@@ -45,7 +45,7 @@ mi_continue_to_line \
mi_gdb_test "-var-create bt * bt" \
"\\^done,name=\"bt\",numchild=\"3\",.*" \
- "Create bt varobj"
+ "create bt varobj"
mi_gdb_test "-var-update 1 *" \
"\\^done,changelist=\\\[\\\]" \
diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp
index 764236a..30c85f0 100644
--- a/gdb/testsuite/gdb.ada/mi_interface.exp
+++ b/gdb/testsuite/gdb.ada/mi_interface.exp
@@ -45,7 +45,7 @@ mi_continue_to_line \
mi_gdb_test "-var-create ggg1 * ggg1" \
"\\^done,name=\"ggg1\",numchild=\"1\",value=\"{...}\",type=\"<ref> pck.gadatatype\",has_more=\"0\"" \
- "Create ggg1 varobj"
+ "create ggg1 varobj"
mi_gdb_test "-var-list-children 1 ggg1" \
"\\^done,numchild=\"1\",children=\\\[child={name=\"ggg1.i\",exp=\"i\",numchild=\"0\",value=\"42\",type=\"integer\"}\\\],has_more=\"0\"" \
diff --git a/gdb/testsuite/gdb.ada/mi_var_array.exp b/gdb/testsuite/gdb.ada/mi_var_array.exp
index 3c7073f..01b7a61 100644
--- a/gdb/testsuite/gdb.ada/mi_var_array.exp
+++ b/gdb/testsuite/gdb.ada/mi_var_array.exp
@@ -45,7 +45,7 @@ mi_continue_to_line \
mi_gdb_test "-var-create vta * vta" \
"\\^done,name=\"vta\",numchild=\"2\",.*" \
- "Create bt varobj"
+ "create bt varobj"
mi_gdb_test "-var-list-children vta" \
"\\^done,numchild=\"2\",children=\\\[child={name=\"vta.n\",exp=\"n\",numchild=\"0\",type=\"bar\\.int\"},child={name=\"vta.f\",exp=\"f\",numchild=\"0\",type=\"array \\(1 .. n\\) of character\"}\\\],.*" \
diff --git a/gdb/testsuite/gdb.ada/watch_arg.exp b/gdb/testsuite/gdb.ada/watch_arg.exp
index 22a6746..94f1f99 100644
--- a/gdb/testsuite/gdb.ada/watch_arg.exp
+++ b/gdb/testsuite/gdb.ada/watch_arg.exp
@@ -32,7 +32,7 @@ runto "watch.adb:$bp_location"
gdb_test "watch x" \
".*atchpoint \[0-9\]+: x" \
- "Set watchpoint on function argument X"
+ "set watchpoint on function argument X"
# Then insert a breakpoint at the location we'd like to continue to...
set bp_location [gdb_get_line_number "BREAK2" ${testdir}/watch.adb]
@@ -45,6 +45,6 @@ gdb_test "break watch.adb:$bp_location" \
gdb_test "cont" \
"Breakpoint \[0-9\]+, watch \\(\\).*" \
- "Continuing to second breakpoint"
+ "continuing to second breakpoint"