semantic/test/Data/Term/Spec.hs

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

import Data.Functor.Listable
import Data.Term
import Test.Hspec (Spec, describe, parallel)
import Test.Hspec.Expectations
import Test.Hspec.LeanCheck

spec :: Spec
spec = parallel $ do
  describe "Term" $ do
    prop "equality is reflexive" $
      \ a -> a `shouldBe` (a :: Term ListableSyntax ())
Migrate the Term property test to leancheck. 2017-01-08 07:21:22 +03:00			`{-# LANGUAGE DataKinds #-}`
Export lists 2018-12-01 03:23:29 +03:00			`module Data.Term.Spec (spec) where`
Enable autodiscovery of tests Also splits up tests into different specs 2015-12-17 21:08:47 +03:00
Migrate the Term property test to leancheck. 2017-01-08 07:21:22 +03:00			`import Data.Functor.Listable`
Rename the Term module to Data.Term. 2017-09-27 19:37:37 +03:00			`import Data.Term`
Add pretty diff expectations to semantic diff tests 2016-09-15 00:45:23 +03:00			`import Test.Hspec (Spec, describe, parallel)`
Overhaul test harnesses and add tasty bounds. 2019-06-12 18:30:20 +03:00			`import Test.Hspec.Expectations`
Migrate the Term property test to leancheck. 2017-01-08 07:21:22 +03:00			`import Test.Hspec.LeanCheck`
Enable autodiscovery of tests Also splits up tests into different specs 2015-12-17 21:08:47 +03:00
			`spec :: Spec`
Allow all of the tests to run in parallel. 2016-01-05 18:38:51 +03:00			`spec = parallel $ do`
Enable autodiscovery of tests Also splits up tests into different specs 2015-12-17 21:08:47 +03:00			`describe "Term" $ do`
			`prop "equality is reflexive" $`
Migrate a bunch of the tests away from Syntax. 2017-10-10 20:18:11 +03:00			\ a -> a `shouldBe` (a :: Term ListableSyntax ())