semantic/test/Data/Diff/Spec.hs

{-# LANGUAGE DataKinds #-}
module Data.Diff.Spec (spec) where

import Data.Diff
import Data.Functor.Listable (ListableSyntax)
import Test.Hspec
import Test.Hspec.LeanCheck

spec :: Spec
spec = do
  prop "equality is reflexive" $
    \ diff -> diff `shouldBe` (diff :: Diff ListableSyntax () ())
Move some tests out of TermSpec into Diff.Spec. 2016-06-27 20:15:03 +03:00			`{-# LANGUAGE DataKinds #-}`
Export list 2018-12-01 03:22:57 +03:00			`module Data.Diff.Spec (spec) where`
Stub in a spec for Diff. 2016-06-27 20:12:06 +03:00
Rename the Diff module to Data.Diff. 2017-09-27 19:41:41 +03:00			`import Data.Diff`
Move the listable Syntax synonym into Data.Functor.Listable. 2017-09-26 16:48:59 +03:00			`import Data.Functor.Listable (ListableSyntax)`
Stub in a spec for Diff. 2016-06-27 20:12:06 +03:00			`import Test.Hspec`
Migrate the Diff property tests to leancheck. 2017-01-08 07:17:05 +03:00			`import Test.Hspec.LeanCheck`
Stub in a spec for Diff. 2016-06-27 20:12:06 +03:00
			`spec :: Spec`
Remove unnecessary use of `parallel`. 2019-06-20 00:22:09 +03:00			`spec = do`
Move some tests around. 2016-06-27 20:18:20 +03:00			`prop "equality is reflexive" $`
Don't need to know about Record here either 2018-09-25 19:20:57 +03:00			\ diff -> diff `shouldBe` (diff :: Diff ListableSyntax () ())