mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-06 12:09:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdb.cp/formatted-ref.exp: Add equality test.

Browse Source 
* gdb.ada/formatted_ref.exp: Ditto.
This commit is contained in:
Jerome Guitton 2008-11-27 09:52:55 +00:00
parent a80b95ba67
commit c332165e45
3 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2008-11-27 Jerome Guitton <guitton@adacore.com>
* gdb.cp/formatted-ref.exp: Add equality test.
* gdb.ada/formatted_ref.exp: Ditto.
2008-11-25 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/breakpoint-shadow.exp, gdb.base/breakpoint-shadow.c: New.

10
gdb/testsuite/gdb.ada/formatted_ref.exp
View File

@ -20,6 +20,9 @@
# tests because only a few parameter types in Ada are required to be
# passed by reference, and there is no equivalent of &(&x) for reference
# values.
# This also tests that some other arithmetic operations on references
# work properly: condition expression using a reference object as one of its
# operand.
if $tracelevel then {
strace $tracelevel
@ -88,6 +91,11 @@ proc test_p_x_addr { var addr } {
return 0
}
proc test_p_op1_equals_op2 {op1 op2} {
set test "print $op1 = $op2"
gdb_test $test "\\$\[0-9\]+ = true"
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
@ -100,3 +108,5 @@ set s1_address [get_address "s1"]
test_p_x "s" "(x => 0xd, y => 0x13)" $s1_address
test_p_x_addr "s" $s1_address
test_p_op1_equals_op2 "s.x" "13"

10
gdb/testsuite/gdb.cp/formatted-ref.exp
View File

@ -23,6 +23,9 @@
# rather than printing both that and the dereferenced value. We also
# check that the (non-standard) expression &(&x), where x is of type T&,
# yields an appropriate value.
# This also tests that some other arithmetic operations on references
# work properly: condition expression using a reference object as one of its
# operand.
if $tracelevel then {
strace $tracelevel
@ -106,6 +109,11 @@ proc test_p_x_ref_addr { var addr } {
return 0
}
proc test_p_op1_equals_op2 {op1 op2} {
set test "print $op1 == $op2"
gdb_test $test "\\$\[0-9\]+ = true"
}
gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir
@ -128,3 +136,5 @@ test_p_x_addr "i" $i1_address
test_p_x_ref_addr "s" $s1_address
test_p_x_ref_addr "i" $i1_address
test_p_x_ref_addr "e" $e1_address
test_p_op1_equals_op2 "s.x" "13"