FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* gdb.ada/array_bounds.exp, gdb.ada/array_subscript_addr.exp,

Browse source 
gdb.ada/arrayidx.exp, gdb.ada/arrayparam.exp, gdb.ada/arrayptr.exp,
        gdb.ada/assign_1.exp, gdb.ada/boolean_expr.exp,
        gdb.ada/char_param.exp, gdb.ada/exprs.exp, gdb.ada/fixed_cmp.exp,
        gdb.ada/fixed_points.exp, gdb.ada/fun_addr.exp,
        gdb.ada/funcall_param.exp, gdb.ada/homonym.exp,
        gdb.ada/interface.exp, gdb.ada/null_array.exp,
        gdb.ada/packed_array.exp, gdb.ada/packed_tagged.exp,
        gdb.ada/print_chars.exp, gdb.ada/print_pc.exp,
        gdb.ada/str_ref_cmp.exp, gdb.ada/sym_print_name.exp,
        gdb.ada/taft_type.exp, gdb.ada/tagged.exp, gdb.ada/type_coercion.exp:
        Include the "= " sequence in the expected output of print tests.
This commit is contained in:
Joel Brobecker 2008-09-10 17:11:11 +00:00
parent 2bf448e0dc
commit b6db24e549
26 changed files with 82 additions and 67 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,18 @@
2008-09-10 Joel Brobecker <brobecker@adacore.com>
* gdb.ada/array_bounds.exp, gdb.ada/array_subscript_addr.exp,
gdb.ada/arrayidx.exp, gdb.ada/arrayparam.exp, gdb.ada/arrayptr.exp,
gdb.ada/assign_1.exp, gdb.ada/boolean_expr.exp,
gdb.ada/char_param.exp, gdb.ada/exprs.exp, gdb.ada/fixed_cmp.exp,
gdb.ada/fixed_points.exp, gdb.ada/fun_addr.exp,
gdb.ada/funcall_param.exp, gdb.ada/homonym.exp,
gdb.ada/interface.exp, gdb.ada/null_array.exp,
gdb.ada/packed_array.exp, gdb.ada/packed_tagged.exp,
gdb.ada/print_chars.exp, gdb.ada/print_pc.exp,
gdb.ada/str_ref_cmp.exp, gdb.ada/sym_print_name.exp,
gdb.ada/taft_type.exp, gdb.ada/tagged.exp, gdb.ada/type_coercion.exp:
Include the "= " sequence in the expected output of print tests.
2008-09-10 Joel Brobecker <brobecker@adacore.com> 2008-09-10 Joel Brobecker <brobecker@adacore.com>
* gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type * gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type

8
gdb/testsuite/gdb.ada/array_bounds.exp
View file

@ -41,18 +41,18 @@ if ![runto "bar.adb:$bp_location" ] then {
} }
gdb_test "print itable'first" \ gdb_test "print itable'first" \
"2" \ "= 2" \
"print itable'first" "print itable'first"
gdb_test "print itable'last" \ gdb_test "print itable'last" \
"5" \ "= 5" \
"print itable'last" "print itable'last"
gdb_test "print table'first" \ gdb_test "print table'first" \
"zero" \ "= zero" \
"print table'first" "print table'first"
gdb_test "print table'last" \ gdb_test "print table'last" \
"two" \ "= two" \
"print table'last" "print table'last"

2
gdb/testsuite/gdb.ada/array_subscript_addr.exp
View file

@ -40,6 +40,6 @@ runto "p.adb:$bp_location"
# Verify that we can compare a string slice with another string. # Verify that we can compare a string slice with another string.
gdb_test "print a(2)'Address" \ gdb_test "print a(2)'Address" \
"\\(system\\.address\\) 0x\[0-9a-fA-F\]+" \ "= \\(system\\.address\\) 0x\[0-9a-fA-F\]+" \
"print a(2)'Address" "print a(2)'Address"

32
gdb/testsuite/gdb.ada/arrayidx.exp
View file

@ -44,35 +44,35 @@ gdb_test "set print array-indexes off" \
"set print array-indexes to off" "set print array-indexes to off"
gdb_test "print one_two_three" \ gdb_test "print one_two_three" \
"\\(1, 2, 3\\)" \ "= \\(1, 2, 3\\)" \
"print one_two_three, indexes off" "print one_two_three, indexes off"
gdb_test "print e_one_two_three" \ gdb_test "print e_one_two_three" \
"\\(1, 2, 3\\)" \ "= \\(1, 2, 3\\)" \
"print e_one_two_three, indexes off" "print e_one_two_three, indexes off"
gdb_test "print r_two_three" \ gdb_test "print r_two_three" \
"\\(two => 2, 3\\)" \ "= \\(two => 2, 3\\)" \
"print r_two_three, indexes off" "print r_two_three, indexes off"
gdb_test "print u_one_two_three" \ gdb_test "print u_one_two_three" \
"\\(1, 2, 3\\)" \ "= \\(1, 2, 3\\)" \
"print u_one_two_three, indexes off" "print u_one_two_three, indexes off"
gdb_test "print p_one_two_three" \ gdb_test "print p_one_two_three" \
"\\(0 => false, true, true\\)" \ "= \\(0 => false, true, true\\)" \
"print p_one_two_three, indexes off" "print p_one_two_three, indexes off"
gdb_test "print few_reps" \ gdb_test "print few_reps" \
"\\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \ "= \\(1, 2, 3, 3, 3, 3, 3, 4, 5\\)" \
"print few_reps, indexes off" "print few_reps, indexes off"
gdb_test "print many_reps" \ gdb_test "print many_reps" \
"\\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \ "= \\(1, 2, 3 <repeats 12 times>, 4, 5\\)" \
"print many_reps, indexes off" "print many_reps, indexes off"
gdb_test "print empty" \ gdb_test "print empty" \
"\\(\\)" \ "= \\(\\)" \
"print empty, indexes off" "print empty, indexes off"
# Next, print all the arrays with the indexes # Next, print all the arrays with the indexes
@ -82,35 +82,35 @@ gdb_test "set print array-indexes on" \
"set print array-indexes to on" "set print array-indexes to on"
gdb_test "print one_two_three" \ gdb_test "print one_two_three" \
"\\(1 => 1, 2 => 2, 3 => 3\\)" \ "= \\(1 => 1, 2 => 2, 3 => 3\\)" \
"print one_two_three" "print one_two_three"
gdb_test "print e_one_two_three" \ gdb_test "print e_one_two_three" \
"\\(one => 1, two => 2, three => 3\\)" \ "= \\(one => 1, two => 2, three => 3\\)" \
"print e_one_two_three" "print e_one_two_three"
gdb_test "print r_two_three" \ gdb_test "print r_two_three" \
"\\(two => 2, three => 3\\)" \ "= \\(two => 2, three => 3\\)" \
"print r_two_three" "print r_two_three"
gdb_test "print u_one_two_three" \ gdb_test "print u_one_two_three" \
"\\(1 => 1, 2 => 2, 3 => 3\\)" \ "= \\(1 => 1, 2 => 2, 3 => 3\\)" \
"print u_one_two_three" "print u_one_two_three"
gdb_test "print p_one_two_three" \ gdb_test "print p_one_two_three" \
"\\(0 => false, 1 => true, 2 => true\\)" \ "= \\(0 => false, 1 => true, 2 => true\\)" \
"print p_one_two_three" "print p_one_two_three"
gdb_test "print few_reps" \ gdb_test "print few_reps" \
"\\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9 => 5\\)" \ "= \\(1 => 1, 2 => 2, 3 => 3, 4 => 3, 5 => 3, 6 => 3, 7 => 3, 8 => 4, 9 => 5\\)" \
"print few_reps" "print few_reps"
gdb_test "print many_reps" \ gdb_test "print many_reps" \
"\\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \ "= \\(1 => 1, 2 => 2, 3 => 3 <repeats 12 times>, 15 => 4, 16 => 5\\)" \
"print many_reps" "print many_reps"
gdb_test "print empty" \ gdb_test "print empty" \
"\\(\\)" \ "= \\(\\)" \
"print empty" "print empty"

8
gdb/testsuite/gdb.ada/arrayparam.exp
View file

@ -41,21 +41,21 @@ runto "foo.adb:$bp_location"
# works without problem. # works without problem.
gdb_test "print call_me (\"bonjour\")" \ gdb_test "print call_me (\"bonjour\")" \
"void" \ "= void" \
"print call_me (\"bonjour\")" "print call_me (\"bonjour\")"
# Verify that the array was passed properly by checking the global # Verify that the array was passed properly by checking the global
# variables that Call_Me sets as side-effects. # variables that Call_Me sets as side-effects.
gdb_test "print first" \ gdb_test "print first" \
"98 'b'" \ "= 98 'b'" \
"print first after function call" "print first after function call"
gdb_test "print last" \ gdb_test "print last" \
"114 'r'" \ "= 114 'r'" \
"print lasta after function call" "print lasta after function call"
gdb_test "print length" \ gdb_test "print length" \
"7" \ "= 7" \
"print length after function call" "print length after function call"

2
gdb/testsuite/gdb.ada/arrayptr.exp
View file

@ -41,6 +41,6 @@ if ![runto "foo.adb:$bp_location" ] then {
} }
gdb_test "print string_p" \ gdb_test "print string_p" \
"\\(foo\\.string_access\\) 0x\[0-9a-zA-Z\]+" \ "= \\(foo\\.string_access\\) 0x\[0-9a-zA-Z\]+" \
"print string_p" "print string_p"

2
gdb/testsuite/gdb.ada/assign_1.exp
View file

@ -30,7 +30,7 @@ gdb_test "set lang ada" \
"Changing the language to ada" "Changing the language to ada"
gdb_test "print \$xxx := 1" \ gdb_test "print \$xxx := 1" \
"1" \ "= 1" \
"set convenience variable \$xxx to 1" "set convenience variable \$xxx to 1"

4
gdb/testsuite/gdb.ada/boolean_expr.exp
View file

@ -33,10 +33,10 @@ gdb_test "set lang ada" \
"Changing the language to ada" "Changing the language to ada"
gdb_test "print 1 = 2" \ gdb_test "print 1 = 2" \
"false" \ "= false" \
"print 1 = 2" "print 1 = 2"
gdb_test "print 3 = 3" \ gdb_test "print 3 = 3" \
"true" \ "= true" \
"print 3 = 3" "print 3 = 3"

8
gdb/testsuite/gdb.ada/char_param.exp
View file

@ -43,7 +43,7 @@ runto "foo.adb:$bp_location"
# the function call. # the function call.
gdb_test "print procedure_result" \ gdb_test "print procedure_result" \
"32 ' '" \ "= 32 ' '" \
"print procedure_result before calling same" "print procedure_result before calling same"
gdb_test "call same (first)" \ gdb_test "call same (first)" \
@ -51,15 +51,15 @@ gdb_test "call same (first)" \
"call same" "call same"
gdb_test "print procedure_result" \ gdb_test "print procedure_result" \
"97 'a'" \ "= 97 'a'" \
"print procedure_result after calling same" "print procedure_result after calling same"
gdb_test "call next (first)" \ gdb_test "call next (first)" \
"98 'b'" \ "= 98 'b'" \
"call next" "call next"
gdb_test "print procedure_result" \ gdb_test "print procedure_result" \
"98 'b'" \ "= 98 'b'" \
"print procedure_result after calling next" "print procedure_result after calling next"

6
gdb/testsuite/gdb.ada/exprs.exp
View file

@ -38,13 +38,13 @@ set bp_location [gdb_get_line_number "START" ${testdir}/p.adb]
runto "p.adb:$bp_location" runto "p.adb:$bp_location"
gdb_test "print X ** Y = Z" \ gdb_test "print X ** Y = Z" \
"true" \ "= true" \
"Long_Long_Integer ** Y" "Long_Long_Integer ** Y"
gdb_test "print long_float'min (long_float (X), 8.0)" \ gdb_test "print long_float'min (long_float (X), 8.0)" \
"7.0" \ "= 7.0" \
"long_float'min" "long_float'min"
gdb_test "print long_float'max (long_float (X), 8.0)" \ gdb_test "print long_float'max (long_float (X), 8.0)" \
"8.0" \ "= 8.0" \
"long_float'max" "long_float'max"

8
gdb/testsuite/gdb.ada/fixed_cmp.exp
View file

@ -38,20 +38,20 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/fixed.adb]
runto "fixed.adb:$bp_location" runto "fixed.adb:$bp_location"
gdb_test "print My_Var > 10.0" \ gdb_test "print My_Var > 10.0" \
"true" \ "= true" \
"print My_Var > 10.0" "print My_Var > 10.0"
gdb_test "print My_Var > 20.0" \ gdb_test "print My_Var > 20.0" \
"false" \ "= false" \
"print My_Var > 20.0" "print My_Var > 20.0"
# Do the same, but with integer values. # Do the same, but with integer values.
gdb_test "print My_Var > 10" \ gdb_test "print My_Var > 10" \
"true" \ "= true" \
"print My_Var > 10" "print My_Var > 10"
gdb_test "print My_Var > 20" \ gdb_test "print My_Var > 20" \
"false" \ "= false" \
"print My_Var > 20" "print My_Var > 20"

6
gdb/testsuite/gdb.ada/fixed_points.exp
View file

@ -38,13 +38,13 @@ set bp_location [gdb_get_line_number "Set breakpoint here" ${testdir}/fixed_poin
runto "fixed_points.adb:$bp_location" runto "fixed_points.adb:$bp_location"
gdb_test "print base_object" \ gdb_test "print base_object" \
".* = -50" \ "= -50" \
"p on a fixed point type" "p on a fixed point type"
gdb_test "print subtype_object" \ gdb_test "print subtype_object" \
".* = -50" \ "= -50" \
"p on a subtype fixed point type" "p on a subtype fixed point type"
gdb_test "print new_type_object" \ gdb_test "print new_type_object" \
".* = -50" \ "= -50" \
"p on a new fixed point type" "p on a new fixed point type"

2
gdb/testsuite/gdb.ada/fun_addr.exp
View file

@ -38,7 +38,7 @@ gdb_load ${binfile}
# the inferior is *not* running (no frame). # the inferior is *not* running (no frame).
gdb_test "print foo'address" \ gdb_test "print foo'address" \
"0x\[0-9a-zA-Z\]+" \ "= .* 0x\[0-9a-zA-Z\]+" \
"print foo'address" "print foo'address"

2
gdb/testsuite/gdb.ada/funcall_param.exp
View file

@ -41,6 +41,6 @@ runto "foo.adb:$bp_location"
# class-wide. # class-wide.
gdb_test "p ident (ident (my_parameter))" \ gdb_test "p ident (ident (my_parameter))" \
"\\(one => 1, two => 2, three => 3\\)" \ "= \\(one => 1, two => 2, three => 3\\)" \
"p ident (ident (my_parameter))" "p ident (ident (my_parameter))"

4
gdb/testsuite/gdb.ada/homonym.exp
View file

@ -58,7 +58,7 @@ gdb_test "ptype lcl" \
"ptype lcl at BREAK_1" "ptype lcl at BREAK_1"
gdb_test "print lcl" \ gdb_test "print lcl" \
"29" \ "= 29" \
"print lcl at BREAK_1" "print lcl at BREAK_1"
# Now, continue until reaching BREAK_2, and do the same commands # Now, continue until reaching BREAK_2, and do the same commands
@ -87,7 +87,7 @@ gdb_test "ptype lcl" \
"ptype lcl at BREAK_2" "ptype lcl at BREAK_2"
gdb_test "print lcl" \ gdb_test "print lcl" \
"17" \ "= 17" \
"print lcl at BREAK_2" "print lcl at BREAK_2"

4
gdb/testsuite/gdb.ada/interface.exp
View file

@ -38,11 +38,11 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/foo.adb]
runto "foo.adb:$bp_location" runto "foo.adb:$bp_location"
gdb_test "print r" \ gdb_test "print r" \
"\\(x => 1, y => 2, w => 3, h => 4\\)" \ "= \\(x => 1, y => 2, w => 3, h => 4\\)" \
"print r" "print r"
gdb_test "print s" \ gdb_test "print s" \
"\\(x => 1, y => 2, w => 3, h => 4\\)" \ "= \\(x => 1, y => 2, w => 3, h => 4\\)" \
"print s" "print s"

4
gdb/testsuite/gdb.ada/null_array.exp
View file

@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb]
runto "foo.adb:$bp_location" runto "foo.adb:$bp_location"
gdb_test "print my_table" \ gdb_test "print my_table" \
"\\(\\)" \ "= \\(\\)" \
"print my_table" "print my_table"
gdb_test "ptype my_table" \ gdb_test "ptype my_table" \
@ -46,5 +46,5 @@ gdb_test "ptype my_table" \
"ptype my_table" "ptype my_table"
gdb_test "print my_matrix" \ gdb_test "print my_matrix" \
"\\(m => \\((\"\", ){9}\"\"\\)\\)" \ "= \\(m => \\((\"\", ){9}\"\"\\)\\)" \
"print my_matrix" "print my_matrix"

4
gdb/testsuite/gdb.ada/packed_array.exp
View file

@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/pa.adb]
runto "pa.adb:$bp_location" runto "pa.adb:$bp_location"
gdb_test "print var" \ gdb_test "print var" \
".* = \\(4 => true, false, true, false, true\\)" \ "= \\(4 => true, false, true, false, true\\)" \
"print var" "print var"
# Try printing the value and the type definition of a reference # Try printing the value and the type definition of a reference
@ -49,5 +49,5 @@ gdb_test "ptype &var" \
"ptype &var" "ptype &var"
gdb_test "print &var" \ gdb_test "print &var" \
"\\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \ "= \\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \
"print &var" "print &var"

2
gdb/testsuite/gdb.ada/packed_tagged.exp
View file

@ -49,7 +49,7 @@ set bp_location [gdb_get_line_number "STOP" ${testdir}/comp_bug.adb]
runto "comp_bug.adb:$bp_location" runto "comp_bug.adb:$bp_location"
gdb_test "print x" \ gdb_test "print x" \
"\\(exists => true, value => 10\\)" \ "= \\(exists => true, value => 10\\)" \
"print x" "print x"
gdb_test "ptype x" \ gdb_test "ptype x" \

6
gdb/testsuite/gdb.ada/print_chars.exp
View file

@ -39,15 +39,15 @@ runto "foo.adb:$bp_location"
gdb_test "print C" \ gdb_test "print C" \
"97 'a'" \ "= 97 'a'" \
"print C" "print C"
gdb_test "print WC" \ gdb_test "print WC" \
"98 'b'" \ "= 98 'b'" \
"print WC" "print WC"
gdb_test "print WWC" \ gdb_test "print WWC" \
"99 'c'" \ "= 99 'c'" \
"print WWC" "print WWC"

2
gdb/testsuite/gdb.ada/print_pc.exp
View file

@ -44,5 +44,5 @@ gdb_test "" \
"start inferior" "start inferior"
gdb_test "p /x \$pc" \ gdb_test "p /x \$pc" \
"0x\[0-9a-zA-Z\]+" \ "= 0x\[0-9a-zA-Z\]+" \
"p /x \$pc" "p /x \$pc"

4
gdb/testsuite/gdb.ada/str_ref_cmp.exp
View file

@ -40,10 +40,10 @@ runto "foo.adb:$bp_location"
# Verify that we can compare a string slice with another string. # Verify that we can compare a string slice with another string.
gdb_test "print String_Var (1 .. 3) = \"Hel\"" \ gdb_test "print String_Var (1 .. 3) = \"Hel\"" \
"true" \ "= true" \
"print String_Var (1 .. 3) = \"Hel\"" "print String_Var (1 .. 3) = \"Hel\""
gdb_test "print String_Var (1 .. 3) = \"hel\"" \ gdb_test "print String_Var (1 .. 3) = \"hel\"" \
"false" \ "= false" \
"print String_Var (1 .. 3) = \"hel\"" "print String_Var (1 .. 3) = \"hel\""

2
gdb/testsuite/gdb.ada/sym_print_name.exp
View file

@ -68,6 +68,6 @@ gdb_test_multiple "print i" "$test_name" \
# Select the first choice from the multiple-choice menu above. # Select the first choice from the multiple-choice menu above.
gdb_test "1" \ gdb_test "1" \
"48" \ "= 48" \
"select first choice from multiple-choice menu" "select first choice from multiple-choice menu"

2
gdb/testsuite/gdb.ada/taft_type.exp
View file

@ -41,6 +41,6 @@ if ![runto "p.adb:$bp_location" ] then {
} }
gdb_test "print w.e.all" \ gdb_test "print w.e.all" \
"\\(month => 8, year => 1974\\)" \ "= \\(month => 8, year => 1974\\)" \
"print w.e.all" "print w.e.all"

4
gdb/testsuite/gdb.ada/tagged.exp
View file

@ -58,7 +58,7 @@ gdb_test "ptype segm" \
"ptype segm" "ptype segm"
gdb_test "print segm" \ gdb_test "print segm" \
"\\(position => 74, width => 8\\)" \ "= \\(position => 74, width => 8\\)" \
"print segm" "print segm"
# Now, test printing of an class-wide object. # Now, test printing of an class-wide object.
@ -70,7 +70,7 @@ gdb_test "ptype obj" \
"ptype obj" "ptype obj"
gdb_test "print obj" \ gdb_test "print obj" \
"\\(position => 74, width => 8\\)" \ "= \\(position => 74, width => 8\\)" \
"print obj" "print obj"

6
gdb/testsuite/gdb.ada/type_coercion.exp
View file

@ -38,7 +38,7 @@ set bp_location [gdb_get_line_number "START" ${testdir}/assign.adb]
runto "assign.adb:$bp_location" runto "assign.adb:$bp_location"
gdb_test "p q" \ gdb_test "p q" \
"\\(2, 3, 5, 7, 11\\)" \ "= \\(2, 3, 5, 7, 11\\)" \
"p q" "p q"
gdb_test "set \$addr := q'address" \ gdb_test "set \$addr := q'address" \
@ -46,7 +46,7 @@ gdb_test "set \$addr := q'address" \
"save q'address in convenience variable" "save q'address in convenience variable"
gdb_test "p {Integer} \$addr" \ gdb_test "p {Integer} \$addr" \
"2" \ "= 2" \
"print {Integer} \$addr" "print {Integer} \$addr"
# Now change the value at $addr using the same "{TYPE}" syntax. # Now change the value at $addr using the same "{TYPE}" syntax.
@ -56,7 +56,7 @@ gdb_test "set {Integer} \$addr := 19" \
"set {Integer} \$addr := 19" "set {Integer} \$addr := 19"
gdb_test "p q" \ gdb_test "p q" \
"\\(19, 3, 5, 7, 11\\)" \ "= \\(19, 3, 5, 7, 11\\)" \
"p q" "p q"