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/tuples.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/tuples.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/tuples.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp index 5204c76..639a10e 100644 --- a/gdb/testsuite/gdb.chill/tuples.exp +++ b/gdb/testsuite/gdb.chill/tuples.exp @@ -46,7 +46,7 @@ proc do_tests {} { gdb_reinitialize_dir $srcdir/$subdir gdb_load $binfile - send "set language chill\n" ; expect -re "$prompt $" + gdb_test "set language chill "" runto tuples.ch:40 @@ -109,8 +109,8 @@ proc do_tests {} { gdb_test_exact "print vstr.ch1" {= 'x'} "vstr.ch1 after assignment" # These tests are from Cygnus PR chill/5024: - send "break printdow\n" ; expect -re "$prompt $" - send "continue\n" ; expect -re "$prompt $" + gdb_test "break printdow "" + gdb_test "continue "" gdb_test_exact "set var w:= dow\[monday\]" {} gdb_test "print w" " = \\\[monday\\\]" \ "print bitstring after assignment" |