diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-14 21:25:19 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-14 21:25:19 +0000 |
| commit | 4081daa1ed1c7370d33dded34bf716600e1b349f (patch) | |
| tree | e798f311e52ecea37e3a820052e1332defce68a2 /gdb/testsuite/gdb.chill/misc.exp | |
| parent | 35f37e1e6698cddd6f60e6a67f598700e9937d18 (diff) | |
| download | gdb-4081daa1ed1c7370d33dded34bf716600e1b349f.zip gdb-4081daa1ed1c7370d33dded34bf716600e1b349f.tar.gz gdb-4081daa1ed1c7370d33dded34bf716600e1b349f.tar.bz2 | |
* lib/gdb.exp (gdb_test): Between $pattern and $prompt, expect
only \r\n, not .*. The test can pass .* as the last thing in
$pattern if that is what it wants. In addition to providing this
flexibility, this change should speed up pattern matching in cases
where the pattern already ended with .* (there were a number of
them). This change also helps catch bad patterns--in the old
scheme the typo "char \*" instead of "char \\*" would pass. Now
it is caught.
* Many .exp files: Update callers.
Diffstat (limited to 'gdb/testsuite/gdb.chill/misc.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/misc.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp index 3a13868..dea886e 100644 --- a/gdb/testsuite/gdb.chill/misc.exp +++ b/gdb/testsuite/gdb.chill/misc.exp @@ -48,7 +48,7 @@ proc set_lang_chill {} { timeout { fail "set language chill (timeout)" ; return 0 } } - return [gdb_test "show language" ".* source language is \"chill\"" \ + return [gdb_test "show language" ".* source language is \"chill\".*" \ "set language to \"chill\""] } @@ -76,6 +76,6 @@ if ![set_lang_chill] then { test_print_accept "print NULL" "NULL" "print emptiness literal" gdb_test "info line" \ - {Line 5 of .*misc.ch.* at address H'[0-9a-fA-F]+}\ + {Line 5 of .*misc.ch.* at address H'[0-9a-fA-F]+.*}\ "info about current line" } |