diff options
| author | Bob Manson <manson@cygnus> | 1997-01-29 09:40:31 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-01-29 09:40:31 +0000 |
| commit | 787f6220773d9174a9675dedd3bbfc8f070511a6 (patch) | |
| tree | 64911c10d46bc93973cc825a730b4173b3367a49 /gdb/testsuite/gdb.chill/pr-5020.exp | |
| parent | 1a2faf1f1e335ff32c1d8c5c7675cd7ce9055e33 (diff) | |
| download | gdb-787f6220773d9174a9675dedd3bbfc8f070511a6.zip gdb-787f6220773d9174a9675dedd3bbfc8f070511a6.tar.gz gdb-787f6220773d9174a9675dedd3bbfc8f070511a6.tar.bz2 | |
Major revision to testsuites for cross-testing and DOS testing support.
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,
|