1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
semantic/test/Data/Diff/Spec.hs
2018-11-30 16:22:57 -08:00

13 lines
306 B
Haskell

{-# 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 = parallel $ do
prop "equality is reflexive" $
\ diff -> diff `shouldBe` (diff :: Diff ListableSyntax () ())