@@ -18,7 +18,7 @@ tests =
1818 appendTest = test "append test" <| assertEqual "butterfly" (append "butter" "fly")
1919 concatTest = test "concat test" <| assertEqual "nevertheless" (concat ["never","the","less"])
2020 splitTests = [test "split commas" <| assertEqual ["cat","dog","cow"] (split "," "cat,dog,cow"),
21− test "split slashes"<| assertEqual ["home","evan","Desktop"] (split "/" "home/evan/Desktop/")]
21+ test "split slashes"<| assertEqual ["home","evan","Desktop", ""] (split "/" "home/evan/Desktop/")]
2222 joinTests = [test "join spaces" <| assertEqual "cat dog cow" (join " " ["cat","dog","cow"]),
2323 test "join slashes" <| assertEqual "home/evan/Desktop" (join "/" ["home","evan","Desktop"])]
2424