diff options
| author | Per Bothner <per@bothner.com> | 1995-06-14 20:05:59 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-06-14 20:05:59 +0000 |
| commit | a055dacb680d89ff0875c2e73b50998799f8cea9 (patch) | |
| tree | e1486882cfea799b3ce139498feacb64e550427f /gdb/testsuite/gdb.chill/string.exp | |
| parent | 6137983598c57aa8557001079b10fa3be8b77ef6 (diff) | |
| download | gdb-a055dacb680d89ff0875c2e73b50998799f8cea9.zip gdb-a055dacb680d89ff0875c2e73b50998799f8cea9.tar.gz gdb-a055dacb680d89ff0875c2e73b50998799f8cea9.tar.bz2 | |
* chillvars.exp, string.exp: New tests for LOWER/UPPER/LENGTH
Diffstat (limited to 'gdb/testsuite/gdb.chill/string.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/string.exp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp index a4368d9..1f45794 100644 --- a/gdb/testsuite/gdb.chill/string.exp +++ b/gdb/testsuite/gdb.chill/string.exp @@ -46,6 +46,13 @@ proc do_tests {} { gdb_test "p s10(1)" { = '2'} "print string element" gdb_test "p s10(1:3)" { = "234"} "print string slice (:)" gdb_test "p s10(2 up 3)" { = "345"} "print string slice (up)" + + gdb_test "p length(s10)" { = 10} "print string length" + gdb_test "p length(s20)" { = 14} "print varying string length" + gdb_test "p lower(s10)" { = 0} "print string lower" + 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" } # Check to see if we have an executable to test. If not, then either we |