diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-05-25 19:32:19 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-05-25 19:32:19 +0000 |
| commit | 16b00357e84b099d4600a77b6334520ce3108368 (patch) | |
| tree | eaa062f9e37da3942c98e78e788a1cd05e5eca5d /gdb/testsuite/gdb.stabs | |
| parent | 3c0646f91a988c10d078eefb7f35574dc70830bb (diff) | |
| download | gdb-16b00357e84b099d4600a77b6334520ce3108368.zip gdb-16b00357e84b099d4600a77b6334520ce3108368.tar.gz gdb-16b00357e84b099d4600a77b6334520ce3108368.tar.bz2 | |
* gdb.stabs/wierd.exp: Check for eof, directly or via gdb_test.
Remove some xfails
Diffstat (limited to 'gdb/testsuite/gdb.stabs')
| -rw-r--r-- | gdb/testsuite/gdb.stabs/wierd.exp | 31 |
1 files changed, 6 insertions, 25 deletions
diff --git a/gdb/testsuite/gdb.stabs/wierd.exp b/gdb/testsuite/gdb.stabs/wierd.exp index f0af049..db7487b 100644 --- a/gdb/testsuite/gdb.stabs/wierd.exp +++ b/gdb/testsuite/gdb.stabs/wierd.exp @@ -32,14 +32,13 @@ expect { error "couldn't load $binfile into $GDB (timed out)." return -1 } + eof { fail "(eof) cannot read wierd.o" } } proc print_wierd_var { var } { global prompt - # 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. + # GDB does not yet understand type attributes setup_xfail "*-*-*" # Make sure that the variable gets printed out correctly, without @@ -55,24 +54,17 @@ proc print_wierd_var { var } { return 0 } timeout { fail "variable $var not printed (timeout)" } + eof { fail "(eof) variable $var not printed" } } - # 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. + # GDB does not yet understand type attributes setup_xfail "*-*-*" # Make sure that the stabs did get loaded in a sensible way. # If somehow the stabs got skipped, then the above test can # pass because GDB assumes int for variables without a stab. - send "whatis $var\n" - 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"} - } + gdb_test "whatis $var\n" "type = (unsigned int|inttype)" "whatis on $var" } print_wierd_var var0 @@ -163,19 +155,8 @@ print_wierd_var attr124 print_wierd_var attr125 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. -send "ptype inttype\n" -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"} -} +gdb_test "ptype inttype\n" "type = (unsigned int|inttype)" "ptype on inttype" #Prevent some failures in default.exp, which are probably GDB bugs # (but trivial ones). |