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

test: Testing caught me doing stupid stuff

Browse source
This commit is contained in:
vegowotenks 2025-08-22 10:04:23 +02:00
parent cff27337e7
commit c78d261a1b
7 changed files with 87 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/Test/Language/Json/Type.hs Normal file
View file

@ -0,0 +1,17 @@
{-# LANGUAGE TemplateHaskell #-}
module Test.Language.Json.Type (testGroup) where
import qualified Language.Json.Type as Type
import qualified Language.Json as Json
import Test.QuickCheck (allProperties, Property)
import qualified Test.Tasty.QuickCheck as Tasty.QuickCheck
import Test.Tasty (TestTree)
prop_inferredTypeConformsSourceValue :: Json.PrintableValue -> Bool
prop_inferredTypeConformsSourceValue (Json.PrintableValue value) = null (Type.conforms (Type.infer value) value)
return [] -- make ghc 'commit' already defined values
properties :: [(String, Property)]
properties = $allProperties
testGroup :: TestTree
testGroup = Tasty.QuickCheck.testProperties "Language.Json.Type" properties