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/tests1.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/tests1.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests1.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp index 9102ffc..0109687 100644 --- a/gdb/testsuite/gdb.chill/tests1.exp +++ b/gdb/testsuite/gdb.chill/tests1.exp @@ -42,20 +42,20 @@ proc set_lang_chill {} { verbose "loading file '$binfile'" gdb_load $binfile - send "set language chill\n" + send_gdb "set language chill\n" expect { -re ".*$prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } - send "show language\n" + send_gdb "show language\n" expect { -re ".* source language is \"chill\".*$prompt $" { pass "set language to \"chill\"" - send "break dummyfunc\n" + send_gdb "break dummyfunc\n" expect { -re ".*$prompt $" { - send "run\n" + send_gdb "run\n" expect -re ".*$prompt $" {} return 1 } @@ -85,7 +85,7 @@ proc set_lang_chill {} { # # Args are: # -# First one is string to send to gdb +# First one is string to send_gdb to gdb # Second one is string to match gdb result to # Third one is an optional message to be printed @@ -811,7 +811,7 @@ gdb_exit gdb_start gdb_reinitialize_dir $srcdir/$subdir -send "set print sevenbit-strings\n" ; expect -re ".*$prompt $" +gdb_test "set print sevenbit-strings ".*" if [set_lang_chill] then { test_modes |