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/misc.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/misc.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/misc.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp index 1c1a5b2..bf5b6d3 100644 --- a/gdb/testsuite/gdb.chill/misc.exp +++ b/gdb/testsuite/gdb.chill/misc.exp @@ -45,7 +45,7 @@ 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 } @@ -64,7 +64,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 { runto dummyfunc @@ -78,7 +78,7 @@ if ![set_lang_chill] then { gdb_test "print NULL" " = NULL" "print emptiness literal" # This tests PR 8496. - gdb_test {printf "%d %d.\n", 3+4,2} "7 2." "printf with 2 arguments" + gdb_test {printf "%d %d.", 3+4,2} "7 2." "printf with 2 arguments" # This tests GCH/924 gdb_test {print (h'23)} { = 35} "print parantised integer literal" @@ -93,7 +93,7 @@ if ![set_lang_chill] then { setup_xfail "m68*-*-hpux*" gdb_test "print array () ubyte (foo)" { = \[\(0:11\): 0\]} - send "set var \$i := foo\n" + send_gdb "set var \$i := foo\n" expect -re ".*$prompt $" setup_xfail "m68*-*-hpux*" gdb_test "print/x array () byte (\$i)" { = \[\(0:11\): H'0\]} |