genvalidity-mergeful-0.2.0.0: test/Data/Mergeful/TimedSpec.hs

{-# LANGUAGE TypeApplications #-}

module Data.Mergeful.TimedSpec
  ( spec,
  )
where

import Data.GenValidity.Mergeful.Item ()
import Data.Mergeful.Timed
import Test.Hspec
import Test.Validity
import Test.Validity.Aeson

spec :: Spec
spec = do
  genValidSpec @ServerTime
  jsonSpecOnValid @ServerTime
  genValidSpec @(Timed Int)
  jsonSpecOnValid @(Timed Int)
  describe "initialServerTime" $ it "is valid" $ shouldBeValid initialServerTime