tomland-1.3.3.3: test/Test/Toml/Codec/Combinator/Table.hs

module Test.Toml.Codec.Combinator.Table
    ( tableSpec
    ) where

import Test.Hspec (Spec, describe)

import Test.Toml.Codec.Combinator.Common (codecRoundtrip)

import qualified Test.Toml.Gen as Gen
import qualified Toml.Codec.Combinator.Primitive as Toml
import qualified Toml.Codec.Combinator.Table as Toml


tableSpec :: Spec
tableSpec = describe "Combinator.Table: Roundtrip tests" $
    codecRoundtrip "Table (Int)" (Toml.table $ Toml.int "a") Gen.genInt