diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:24 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-07-28 15:41:24 -0700 |
| commit | 043088d914695baf54cea2296293e9e9ca1b325e (patch) | |
| tree | a911428c34b6831aedb49bfba80504b214d7b879 /csc/strings-test.csc | |
| parent | Use a better hashing scheme for identifiers. (diff) | |
| download | chromatopelma-043088d914695baf54cea2296293e9e9ca1b325e.tar.zst | |
Better interface for join.
Diffstat (limited to 'csc/strings-test.csc')
| -rw-r--r-- | csc/strings-test.csc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/csc/strings-test.csc b/csc/strings-test.csc index c3dd378..60bfb08 100644 --- a/csc/strings-test.csc +++ b/csc/strings-test.csc @@ -71,19 +71,19 @@ (test join-, - (assert-equal "a,b,c" (join "," "a" "b" "c"))) + (assert-equal "a,b,c" (join "," '("a" "b" "c")))) (test join-none - (assert-equal "" (join ","))) + (assert-equal "" (join "," '()))) (test join-singleton - (assert-equal "x" (join "," "x"))) + (assert-equal "x" (join "," '("x")))) (test join-empty - (assert-equal "abc" (join "" "a" "b" "c"))) + (assert-equal "abc" (join "" '("a" "b" "c")))) (test split-empty |