* gdb.stabs/wierd.exp: Check for eof, directly or via gdb_test.
Remove some xfails
This commit is contained in:
parent
3c0646f91a
commit
16b00357e8
1 changed files with 6 additions and 25 deletions
|
@ -32,14 +32,13 @@ expect {
|
||||||
error "couldn't load $binfile into $GDB (timed out)."
|
error "couldn't load $binfile into $GDB (timed out)."
|
||||||
return -1
|
return -1
|
||||||
}
|
}
|
||||||
|
eof { fail "(eof) cannot read wierd.o" }
|
||||||
}
|
}
|
||||||
|
|
||||||
proc print_wierd_var { var } {
|
proc print_wierd_var { var } {
|
||||||
global prompt
|
global prompt
|
||||||
|
|
||||||
# Currently one of these symbols gives an error() in symbol
|
# GDB does not yet understand type attributes
|
||||||
# reading, which causes any attempt to read (full, not
|
|
||||||
# partial) symbols for the file to lose.
|
|
||||||
setup_xfail "*-*-*"
|
setup_xfail "*-*-*"
|
||||||
|
|
||||||
# Make sure that the variable gets printed out correctly, without
|
# Make sure that the variable gets printed out correctly, without
|
||||||
|
@ -55,24 +54,17 @@ proc print_wierd_var { var } {
|
||||||
return 0
|
return 0
|
||||||
}
|
}
|
||||||
timeout { fail "variable $var not printed (timeout)" }
|
timeout { fail "variable $var not printed (timeout)" }
|
||||||
|
eof { fail "(eof) variable $var not printed" }
|
||||||
}
|
}
|
||||||
|
|
||||||
# Currently one of these symbols gives an error() in symbol
|
# GDB does not yet understand type attributes
|
||||||
# reading, which causes any attempt to read (full, not
|
|
||||||
# partial) symbols for the file to lose.
|
|
||||||
setup_xfail "*-*-*"
|
setup_xfail "*-*-*"
|
||||||
|
|
||||||
# Make sure that the stabs did get loaded in a sensible way.
|
# Make sure that the stabs did get loaded in a sensible way.
|
||||||
# If somehow the stabs got skipped, then the above test can
|
# If somehow the stabs got skipped, then the above test can
|
||||||
# pass because GDB assumes int for variables without a stab.
|
# pass because GDB assumes int for variables without a stab.
|
||||||
|
|
||||||
send "whatis $var\n"
|
gdb_test "whatis $var\n" "type = (unsigned int|inttype)" "whatis on $var"
|
||||||
expect {
|
|
||||||
-re "type = unsigned int.*$prompt $" {pass "whatis on $var"}
|
|
||||||
-re "type = inttype.*$prompt $" {pass "whatis on $var"}
|
|
||||||
-re "$prompt $" {fail "whatis on $var"}
|
|
||||||
timeout {fail "whatis on $var"}
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
print_wierd_var var0
|
print_wierd_var var0
|
||||||
|
@ -163,19 +155,8 @@ print_wierd_var attr124
|
||||||
print_wierd_var attr125
|
print_wierd_var attr125
|
||||||
print_wierd_var attr126
|
print_wierd_var attr126
|
||||||
|
|
||||||
# Currently one of these symbols gives an error() in symbol
|
|
||||||
# reading, which causes any attempt to read (full, not
|
|
||||||
# partial) symbols for the file to lose.
|
|
||||||
setup_xfail "*-*-*"
|
|
||||||
|
|
||||||
# One last test, while we're at it.
|
# One last test, while we're at it.
|
||||||
send "ptype inttype\n"
|
gdb_test "ptype inttype\n" "type = (unsigned int|inttype)" "ptype on inttype"
|
||||||
expect {
|
|
||||||
-re "type = unsigned int.*$prompt $" {pass "ptype on inttype"}
|
|
||||||
-re "type = inttype.*$prompt $" {pass "ptype on inttype"}
|
|
||||||
-re "$prompt $" {fail "ptype on inttype"}
|
|
||||||
timeout {fail "ptype on inttype"}
|
|
||||||
}
|
|
||||||
|
|
||||||
#Prevent some failures in default.exp, which are probably GDB bugs
|
#Prevent some failures in default.exp, which are probably GDB bugs
|
||||||
# (but trivial ones).
|
# (but trivial ones).
|
||||||
|
|
Loading…
Reference in a new issue