diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/tests1.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests1.exp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp index 0109687..8a0be28 100644 --- a/gdb/testsuite/gdb.chill/tests1.exp +++ b/gdb/testsuite/gdb.chill/tests1.exp @@ -37,26 +37,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 dummyfunc\n" expect { - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { send_gdb "run\n" - expect -re ".*$prompt $" {} + expect -re ".*$gdb_prompt $" {} return 1 } timeout { @@ -65,7 +65,7 @@ proc set_lang_chill {} { } } } - -re ".*$prompt $" { + -re ".*$gdb_prompt $" { fail "setting language to \"chill\"" return 0 } @@ -90,7 +90,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 |