UtilSpec.hs

module Unused.UtilSpec
    ( main
    , spec
    ) where

import Test.Hspec
import Unused.Util

data Person = Person
    { pName :: String
    , pAge :: Int
    } deriving (Eq, Show)

main :: IO ()
main = hspec spec

spec :: Spec
spec = parallel $ do
    describe "groupBy" $ do
        it "groups by the result of a function" $ do
            let numbers = [1..10] :: [Int]

            groupBy ((0 ==) . flip mod 2) numbers `shouldBe` [(False, [1, 3, 5, 7, 9]), (True, [2, 4, 6, 8, 10])]

        it "handles records" $ do
            let people = [Person "Jane" 10, Person "Jane" 20, Person "John" 20]

            groupBy pName people `shouldBe` [("Jane", [Person "Jane" 10, Person "Jane" 20]), ("John", [Person "John" 20])]
            groupBy pAge people `shouldBe` [(10, [Person "Jane" 10]), (20, [Person "Jane" 20, Person "John" 20])]

    describe "stringToInt" $
        it "converts a String value to Maybe Int" $ do
            stringToInt "12345678" `shouldBe` Just 12345678
            stringToInt "0" `shouldBe` Just 0
            stringToInt "10591" `shouldBe` Just 10591
            stringToInt "bad" `shouldBe` Nothing