1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
semantic/test/Data/Term/Spec.hs

15 lines
341 B
Haskell
Raw Normal View History

{-# LANGUAGE DataKinds #-}
2018-12-01 03:23:29 +03:00
module Data.Term.Spec (spec) where
import Data.Functor.Listable
2017-09-27 19:37:37 +03:00
import Data.Term
2019-06-20 00:35:37 +03:00
import Test.Hspec (Spec, describe)
import Test.Hspec.Expectations
import Test.Hspec.LeanCheck
spec :: Spec
2019-06-20 00:22:09 +03:00
spec = do
describe "Term" $ do
prop "equality is reflexive" $
\ a -> a `shouldBe` (a :: Term ListableSyntax ())