Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests are running now

Browse source
This commit is contained in:
sebastian 2023-03-27 20:33:11 +02:00
parent 506d8733d9
commit ad2bd645d9
2 changed files with 101 additions and 95 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tests/TestTypeCheckerHm.hs
View file

@ -7,16 +7,15 @@ import Control.Monad ((<=<))
import DoStrings qualified as D
import Grammar.Par (myLexer, pProgram)
import Test.Hspec
import Prelude (Bool (..), Either (..), IO, mapM_, not, ($), (.))
import Prelude (Bool (..), Either (..), IO, foldl1, mapM_, not, ($), (.), (>>))
-- import Test.QuickCheck
import TypeChecker.TypeChecker (typecheck)
import TypeChecker.TypeCheckerHm (typecheck)
main :: IO ()
main = do
mapM_ hspec goods
mapM_ hspec bads
mapM_ hspec bes
testTypeCheckerHm = describe "Hindley-Milner type checker test" $ do
foldl1 (>>) goods
foldl1 (>>) bads
foldl1 (>>) bes
goods =
[ testSatisfy