]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gdb/testsuite/gdb.pascal/integers.exp
Fix test names starting with uppercase using gdb_test on a single line.
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.pascal / integers.exp
index ec9739ce11b954c9f95ab98f1921d79e8a73f7b8..4e6274528dae329c19c7edb90458144e041c9f52 100644 (file)
@@ -40,12 +40,12 @@ if { [gdb_start_cmd] < 0 } {
 
 gdb_test "" ".* at .*${srcfile}.*" "start"
 
-gdb_test "cont" "Breakpoint .*:${bp_location1}.*" "Going to first breakpoint"
+gdb_test "cont" "Breakpoint .*:${bp_location1}.*" "going to first breakpoint"
 
-gdb_test "print i" ".* = 0" "Print i before assigned to 1"
+gdb_test "print i" ".* = 0" "print i before assigned to 1"
 
-gdb_test "next" "i := 1;" "Next to 'i := 1' line"
-gdb_test "next" "j := 2;" "Next to 'j := 2' line"
+gdb_test "next" "i := 1;" "next to 'i := 1' line"
+gdb_test "next" "j := 2;" "next to 'j := 2' line"
 # At that point, 
 # i should be equal to 1
 gdb_test "print i" " = 1" 
@@ -53,10 +53,10 @@ gdb_test "print i" " = 1"
 if { $pascal_compiler_is_gpc } {
   setup_xfail *-*-*
 }
-gdb_test "print j" " = 0" "Test j value before assignment"
+gdb_test "print j" " = 0" "test j value before assignment"
 
-gdb_test "next" "k := 3;" "Next to 'k := 3' line"
-gdb_test "next" "l := k;" "Next to 'l := k' line"
+gdb_test "next" "k := 3;" "next to 'k := 3' line"
+gdb_test "next" "l := k;" "next to 'l := k' line"
 
 #j should be equal to 2
 gdb_test "print j" " = 2"
@@ -110,7 +110,7 @@ gdb_test " print (i + 5) * (j + 7)" " = 54"
 # 'set i' does not work, as there are set sub-commands starting with 'i'
 # Thus we need to use 'set var i'
 gdb_test "set var i := 2" " := 2"
-gdb_test "print i" " = 2" "Testing new i value"
+gdb_test "print i" " = 2" "testing new i value"
 
 gdb_test "cont" \
         "Breakpoint .*:${bp_location2}.*" \