From 043088d914695baf54cea2296293e9e9ca1b325e Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Thu, 28 Jul 2022 15:41:24 -0700 Subject: Better interface for join. --- csc/strings-test.csc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'csc/strings-test.csc') 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 -- cgit v1.3.1