diff options
Diffstat (limited to 'gdb/testsuite/gdb.chill/string.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/string.exp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp index 436f3bd..54c88da 100644 --- a/gdb/testsuite/gdb.chill/string.exp +++ b/gdb/testsuite/gdb.chill/string.exp @@ -47,7 +47,7 @@ proc do_tests {} { send "set language chill\n" ; expect -re "$prompt $" # These tests based on Cygnus PR chill/5696. - runto string.ch:11 + runto string.ch:22 gdb_test "p s20" { = "Moser Wilfried"} "print simple vstring" gdb_test "p s20(1)" { = 'o'} "print vstring element" gdb_test "p s20(1:3)" { = "ose"} "print vstring slice (:)" @@ -63,6 +63,11 @@ proc do_tests {} { gdb_test "p upper(s10)" { = 9} "print string upper" gdb_test "p lower(s20)" { = 0} "print varying string lower" gdb_test "p upper(s20)" { = 19} "print varying string upper" + + # These tests are based on Cygnus PR chill/9078. + gdb_test "print foo // bar" { = "Moser Wilfried"} + gdb_test "print foo // bar1" { = "Moser abcde"} + gdb_test "print foo1 // bar1" { = "12345abcde"} } do_tests |