diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-01-09 16:28:52 -0800 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-01-09 16:28:52 -0800 |
| commit | b482a919615c0a5755a6828ad77d13e6c1b8b7a2 (patch) | |
| tree | f9e6f6b5e2766e441fbde7acafd4f98e0476dee5 /strings-test.csc | |
| parent | Redo the testing framework. (diff) | |
| download | chromatopelma-b482a919615c0a5755a6828ad77d13e6c1b8b7a2.tar.zst | |
Remove str- prefixes from the strings library.
Not very scheme.
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)))) |