diff options
Diffstat (limited to 'strings-test.csc')
| -rw-r--r-- | strings-test.csc | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/strings-test.csc b/strings-test.csc index 4d7a751..3fededb 100644 --- a/strings-test.csc +++ b/strings-test.csc @@ -6,16 +6,16 @@ (csc strings)) -(test str-prefix?-good - (assert-equal #t (str-prefix? "asdf" "asdfjkl;"))) +(test prefix?-good + (assert-equal #t (prefix? "asdf" "asdfjkl;"))) -(test str-prefix?-bad - (assert-equal #f (str-prefix? "asdf" "asdbjkl;"))) +(test prefix?-bad + (assert-equal #f (prefix? "asdf" "asdbjkl;"))) -(test str-prefix?-too-long - (assert-equal #f (str-prefix? "asdf" "as"))) +(test prefix?-too-long + (assert-equal #f (prefix? "asdf" "as"))) (test str-quote-simple @@ -26,12 +26,12 @@ (assert-equal "\"this string \\\" has a quote\"" (str-quote "this string \" has a quote"))) -(test str-find-ok - (assert-equal 8 (str-find "abc" "dabsadfdabcdfdfd"))) +(test find-ok + (assert-equal 8 (find "abc" "dabsadfdabcdfdfd"))) -(test str-find-one-letter - (assert-equal 8 (str-find "a" "sdfdfdfsasdfe"))) +(test find-one-letter + (assert-equal 8 (find "a" "sdfdfdfsasdfe"))) (test test-str-find-notfound @@ -39,6 +39,6 @@ (str "def") (got-exception '())) (guard (e - ((str-not-found-error? e) (set! got-exception e))) - (str-find match str)) - (assert (str-not-found-error? got-exception)))) + ((not-found-error? e) (set! got-exception e))) + (find match str)) + (assert (not-found-error? got-exception)))) |