tomland-1.3.3.3: test/Test/Toml/Parser/Bool.hs

module Test.Toml.Parser.Bool
    ( boolSpecs
    ) where

import Test.Hspec (Spec, describe, it)

import Test.Toml.Parser.Common (boolFailOn, parseBool)


boolSpecs :: Spec
boolSpecs = describe "boolP" $ do
    it "can parse `true` and `false`" $ do
        parseBool "true" True
        parseBool "false" False
        parseBool "true        " True
    it "fails if `true` or `false` are not all lowercase" $ do
        boolFailOn "True"
        boolFailOn "False"
        boolFailOn "TRUE"
        boolFailOn "FALSE"
        boolFailOn "tRuE"
        boolFailOn "fAlSE"