From b482a919615c0a5755a6828ad77d13e6c1b8b7a2 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sun, 9 Jan 2022 16:28:52 -0800 Subject: Remove str- prefixes from the strings library. Not very scheme. --- strings-test.csc | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'strings-test.csc') 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)))) -- cgit v1.3.1