vegowotenks/scalie
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat[test]: run the tests

Browse source
This commit is contained in:
vegowotenks 2025-08-14 09:22:14 +02:00
parent 60762c3493
commit 6821c4efda
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/Spec.hs
View file

@ -1,2 +1,8 @@
import System.IO (IO)
import Test.Data.Map.Implicit qualified
import Control.Applicative (pure)
main :: IO () main :: IO ()
main = putStrLn "Test suite not yet implemented" main = do
_ <- Test.Data.Map.Implicit.runTests
pure ()

2
test/Test/Data/Map/Implicit.hs
View file

@ -13,6 +13,8 @@ import System.IO (IO)
import Control.Applicative (pure) import Control.Applicative (pure)
import Data.Maybe (Maybe) import Data.Maybe (Maybe)
-- | This is testworthy since I have somehow hand-hacked the read/show de/serialization of 'ImplicitMap'
prop_readShowIdentityRoundtrip :: ImplicitMap (Definition Identity) -> Bool prop_readShowIdentityRoundtrip :: ImplicitMap (Definition Identity) -> Bool
prop_readShowIdentityRoundtrip = roundtrips read show prop_readShowIdentityRoundtrip = roundtrips read show