1 files changed, 17 insertions, 1 deletions
diff --git a/strings-test.csc b/strings-test.csc
index 3fededb..2e6d240 100644
--- a/strings-test.csc
+++ b/strings-test.csc
@@ -34,7 +34,7 @@
   (assert-equal 8 (find "a" "sdfdfdfsasdfe")))
 
 
-(test test-str-find-notfound
+(test find-notfound
   (let* ((match "a")
          (str "def")
          (got-exception '()))
@@ -42,3 +42,19 @@
              ((not-found-error? e) (set! got-exception e)))
            (find match str))
     (assert (not-found-error? got-exception))))
+
+
+(test join-,
+  (assert-equal "a,b,c" (join "," "a" "b" "c")))
+
+
+(test join-none
+  (assert-equal "" (join ",")))
+
+
+(test join-singleton
+  (assert-equal "x" (join "," "x")))
+
+
+(test join-empty
+  (assert-equal "abc" (join "" "a" "b" "c")))