2016-06-27 20:15:03 +03:00
|
|
|
{-# LANGUAGE DataKinds #-}
|
2018-12-01 03:22:57 +03:00
|
|
|
module Data.Diff.Spec (spec) where
|
2016-06-27 20:12:06 +03:00
|
|
|
|
2017-09-27 19:41:41 +03:00
|
|
|
import Data.Diff
|
2017-09-26 16:48:59 +03:00
|
|
|
import Data.Functor.Listable (ListableSyntax)
|
2016-06-27 20:12:06 +03:00
|
|
|
import Test.Hspec
|
2017-01-08 07:17:05 +03:00
|
|
|
import Test.Hspec.LeanCheck
|
2016-06-27 20:12:06 +03:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = parallel $ do
|
2016-06-27 20:18:20 +03:00
|
|
|
prop "equality is reflexive" $
|
2018-09-25 19:20:57 +03:00
|
|
|
\ diff -> diff `shouldBe` (diff :: Diff ListableSyntax () ())
|
