feat[dev]: import Prelude
This commit is contained in:
parent
390308e9d7
commit
36ae4dd5e0
20 changed files with 102 additions and 172 deletions
|
@ -3,22 +3,21 @@
|
|||
{-# OPTIONS_GHC -Wno-all-missed-specialisations #-} -- a lot of warnings for unspecialized 'read' and 'show', which I cannot specialize
|
||||
-- I wouldn't know how at least, they're not my datatypes, I cannot use the hint and add an 'INLINABLE' pragma
|
||||
module Test.Data.Map.Implicit (testGroup) where
|
||||
import Test.QuickCheck.Roundtrip (roundtrips)
|
||||
import Text.Show (show)
|
||||
import Text.Read (read)
|
||||
import Data.Map.Implicit (ImplicitMap)
|
||||
import Data.Bool (Bool)
|
||||
import Language.Scalie.Core.Definition (Definition)
|
||||
|
||||
import Data.Functor.Identity (Identity)
|
||||
|
||||
import Data.Map.Implicit (ImplicitMap)
|
||||
|
||||
import Language.Scalie.Core.Definition (Definition)
|
||||
|
||||
import Test.QuickCheck (Property, allProperties)
|
||||
import Data.String (String)
|
||||
import Control.Applicative (pure)
|
||||
import Data.Maybe (Maybe)
|
||||
import Test.Tasty.QuickCheck qualified as Tasty.QuickCheck
|
||||
import Test.QuickCheck.Roundtrip (roundtrips)
|
||||
|
||||
import Test.Tasty (TestTree)
|
||||
import Test.Tasty.QuickCheck (QuickCheckMaxSize(QuickCheckMaxSize))
|
||||
import Data.Function (($))
|
||||
|
||||
import Test.Tasty qualified as Tasty
|
||||
import Test.Tasty.QuickCheck qualified as Tasty.QuickCheck
|
||||
|
||||
-- | This is testworthy since I have somehow hand-hacked the read/show de/serialization of 'ImplicitMap'
|
||||
|
||||
|
|
|
@ -1,7 +1,5 @@
|
|||
{-# LANGUAGE Safe #-}
|
||||
module Test.QuickCheck.Roundtrip (roundtrips) where
|
||||
import Data.Eq ((==), Eq)
|
||||
import Data.Bool (Bool)
|
||||
|
||||
roundtrips :: Eq t1 => (t2 -> t1) -> (t1 -> t2) -> t1 -> Bool
|
||||
roundtrips back forth x = x == back (forth x)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue