feat[dev]: import Prelude

This commit is contained in:
vegowotenks 2025-08-15 10:28:13 +02:00
parent 390308e9d7
commit 36ae4dd5e0
20 changed files with 102 additions and 172 deletions

View file

@ -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'

View file

@ -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)