module WordNumberTest where import Test.Hspec import WordNumber (digitToWord, digits, wordNumber) main :: IO () main = hspec $ do describe "digitToWord" $ do it "returns zero for 0" $ do digitToWord 0 `shouldBe` "zero" it "returns zero for 1" $ do digitToWord 1 `shouldBe` "one" describe "digits" $ do it "returns [1] for 1" $ do digits 1 `shouldBe` [1] it "returns [1, 0, 0] for 100" $ do digits 100 `shouldBe` [1, 0, 0] describe "wordNumber" $ do it "one-zero-zero given 100" $ do wordNumber 100 `shouldBe` "one-zero-zero" it "nine given 9" $ do wordNumber 9 `shouldBe` "nine" it "nine-zero-zero-one for 9001" $ do wordNumber 9001 `shouldBe` "nine-zero-zero-one"