commaspec

hapytex · Oct 25, 2024 · 009d846 · 009d846
1 parent e3ebff8
commit 009d846
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/test/Text/CommaSpec.hs b/test/Text/CommaSpec.hs
@@ -1,6 +1,12 @@
 module Text.CommaSpec where
 
 import Test.Hspec(Spec, describe, it, shouldBe)
+import Text.Comma(comma)
 
 spec :: Spec
-spec = describe "isWordChar" $ pure ()
+spec = describe "comma" $ do
+    it "comma" $ do
+      comma [] `shouldBe` ""
+      comma ["red"] `shouldBe` "red"
+      comma ["red", "green"] `shouldBe` "red, and green"
+      comma ["red", "green", "blue"] `shouldBe` "red, green, and blue"