27 lines
786 B
Haskell
27 lines
786 B
Haskell
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")
|