diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/pr-5020.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/pr-5020.exp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gdb/testsuite/gdb.chill/pr-5020.exp b/gdb/testsuite/gdb.chill/pr-5020.exp index 47a4302..777f664 100644 --- a/gdb/testsuite/gdb.chill/pr-5020.exp +++ b/gdb/testsuite/gdb.chill/pr-5020.exp @@ -46,16 +46,16 @@ 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 chillvars.ch:3\n" ; expect -re "$prompt $" - send "delete 1\n" ; expect -re "$prompt $" + gdb_test "break chillvars.ch:3 "" + gdb_test "delete 1 "" - send "set width 0\n" ; expect -re "$prompt $" - send "set print sevenbit-strings\n" ; expect -re "$prompt $" - send "set print address off\n" ; expect -re "$prompt $" + gdb_test "set width 0 "" + gdb_test "set print sevenbit-strings "" + gdb_test "set print address off "" test_pr_5020 } @@ -71,7 +71,7 @@ proc test_pr_5020 {} { {= [(10): [.l: 10, .b: TRUE], (11): [.l: 111, .b: FALSE]]} gdb_test_exact "print setarr" \ {= [(aa): [.l: 10, .b: TRUE], (bb): [.l: 111, .b: FALSE]]} - send "set print pretty\n" ; expect -re "$prompt $" + gdb_test "set print pretty "" gdb_test_exact "print y" \ {= [('a'): [
.l: 10,
|