diff options
| author | Bob Manson <manson@cygnus> | 1997-02-02 07:59:25 +0000 |
|---|---|---|
| committer | Bob Manson <manson@cygnus> | 1997-02-02 07:59:25 +0000 |
| commit | 85fbaa747f9edd4184cce516c8804bb4553e08f7 (patch) | |
| tree | 3011762b44f70c7e2abfd700004d1d0652c831a9 /gdb/testsuite/gdb.chill/gch981.exp | |
| parent | e385d6e03e0733be01c51d24588b981c9e928d6c (diff) | |
| download | binutils-gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.tar.gz | |
* gdb.*/*.exp: Replace $prompt with $gdb_prompt.
* gdb.base/scope.exp: Use gdb_test.
* gdb.c++/classes.exp: Ditto.
* gdb.c++/inherit.exp: Ditto.
More random cleanups. Still lots to go, however.
Diffstat (limited to 'gdb/testsuite/gdb.chill/gch981.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/gch981.exp | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gdb/testsuite/gdb.chill/gch981.exp b/gdb/testsuite/gdb.chill/gch981.exp index 2ebefc8148d..361389cc93d 100644 --- a/gdb/testsuite/gdb.chill/gch981.exp +++ b/gdb/testsuite/gdb.chill/gch981.exp @@ -41,26 +41,26 @@ if { [compile "${srcfile} -g -w -o ${binfile} ${CHILL_RT0} ${CHILL_LIB}"] != "" # fails, then we skip the other tests. proc set_lang_chill {} { - global prompt + global gdb_prompt global binfile objdir subdir verbose "loading file '$binfile'" gdb_load $binfile send_gdb "set language chill\n" expect { - -re ".*$prompt $" {} + -re ".*$gdb_prompt $" {} timeout { fail "set language chill (timeout)" ; return 0 } } send_gdb "show language\n" expect { - -re ".* source language is \"chill\".*$prompt $" { + -re ".* source language is \"chill\".*$gdb_prompt $" { pass "set language to \"chill\"" send_gdb "break xx_\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -69,7 +69,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -94,7 +94,7 @@ proc set_lang_chill {} { # Third one is an optional message to be printed proc test_print_accept { args } { - global prompt + global gdb_prompt global passcount global verbose @@ -111,7 +111,7 @@ proc test_print_accept { args } { } proc test_power {} { - global passcount prompt + global passcount gdb_prompt verbose "Testing some POWERSET Stuff" set passcount 0 @@ -171,7 +171,7 @@ proc test_power {} { gdb_test "set v_power3 := \[b5:b7, b1\] "" test_print_accept "print v_power3" {\[b1, b5:b7\]} - send_gdb "set v_power4 := \[\"b\"\] \n" ; expect -re "$prompt $" + send_gdb "set v_power4 := \[\"b\"\] \n" ; expect -re "$gdb_prompt $" test_print_accept "print v_power4" {\['b':'x'\]} gdb_test "set v_power4 := \[5\] "" test_print_accept "print v_power4" {\['b':'x'\]} |