mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* tests/strings.test: Add test for substring-move! argument checking.

Browse source
This commit is contained in:
Jim Blandy 1999-09-11 18:46:48 +00:00
parent 69c74140dd
commit 0bfcc6e0d4
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/strings.test
View file

@ -24,3 +24,7 @@
(not (string<? "foo\0" "foo"))) (not (string<? "foo\0" "foo")))
(pass-if "string-ci<? respects string length" (pass-if "string-ci<? respects string length"
(not (string-ci<? "foo\0" "foo"))) (not (string-ci<? "foo\0" "foo")))
(pass-if "substring-move! checks start and end correctly"
(signals-error?
'out-of-range
(substring-move! "sample" 3 0 "test" 3)))