diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-5022.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-5022.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-5022.exp b/gdb/testsuite/gdb.chill/pr-5022.exp index e690343..e08c40b 100644 --- a/gdb/testsuite/gdb.chill/pr-5022.exp +++ b/gdb/testsuite/gdb.chill/pr-5022.exp @@ -46,15 +46,15 @@ proc do_tests {} { gdb_reinitialize_dir $srcdir/$subdir gdb_load $binfile - send "set language chill\n" ; expect -re "$prompt $" + gdb_test "set language chill "" # This is needed (at least on SunOS4) to make sure the # the symbol table is read. - send "break gdbme.ch:3\n" ; expect -re "$prompt $" - send "delete 1\n" ; expect -re "$prompt $" + gdb_test "break gdbme.ch:3 "" + gdb_test "delete 1 "" - send "set width 0\n" ; expect -re "$prompt $" - send "set print sevenbit-strings\n" ; expect -re "$prompt $" + gdb_test "set width 0 "" + gdb_test "set print sevenbit-strings "" test_pr_5022 } @@ -63,7 +63,7 @@ proc test_pr_5022 {} { global prompt runto dummy_pr_5022 gdb_test "p p" " = NULL" "print NULL pointer" - send "continue\n" ; expect -re "$prompt $" + gdb_test "continue "" gdb_test "p p" {= PTR\(H'[0-9a-fA-F]+\)} "print non-NULL pointer" } |