feat[test]: roundtrips, test for read <-> show

test/Test/Data/Map/Implicit.hs

@@ -0,0 +1,24 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE TypeApplications #-}
+module Test.Data.Map.Implicit (prop_readShowIdentityRoundtrip, prop_readShowMaybeRoundtrip, runTests) 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.Ast.Definition (Definition)
+import Data.Functor.Identity (Identity)
+import Test.QuickCheck.All (quickCheckAll)
+import System.IO (IO)
+import Control.Applicative (pure)
+import Data.Maybe (Maybe)
+
+prop_readShowIdentityRoundtrip :: ImplicitMap (Definition Identity) -> Bool
+prop_readShowIdentityRoundtrip = roundtrips read show
+
+prop_readShowMaybeRoundtrip :: ImplicitMap (Definition Maybe) -> Bool
+prop_readShowMaybeRoundtrip = roundtrips read show
+
+pure []
+runTests :: IO Bool
+runTests = $quickCheckAll

test/Test/QuickCheck/Roundtrip.hs

@@ -0,0 +1,7 @@
+{-# 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)