module HelperSpec
  ( main
  , spec
  ) where

import           Helper
import           Test.Hspec

main :: IO ()
main = hspec spec

spec :: Spec
spec = do
  describe "Splitting" $ do
    it "can process empty string" $ wordsWhen (== '-') "" `shouldBe` []
    it "can process only one word" $ wordsWhen (== '-') "10" `shouldBe` ["10"]
    it "can separated by '-'" $
      wordsWhen (== '-') "10-20" `shouldBe` ["10", "20"]
    it "can be separated by ','" $
      wordsWhen (== ',') "10,20,30" `shouldBe` ["10", "20", "30"]
  -- Test splitIntoTwoWords
  describe "Splitting into two words" $ do
    it "can process empty string" $
      splitIntoTwoWords (== '-') "" `shouldBe` ("", "")
    it "can process normal string" $
      splitIntoTwoWords (== '-') "1-2" `shouldBe` ("1", "2")