mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-19 01:18:40 +03:00
b1aaa83b6a
* refactor: Move constraints test to own module, create TestLookup module * refactor: Extracted 'Env' module * refactor: Extracted 'TypePredicates' module * test: First, very simple test * refactor: Extracted 'Managed' module * refactor: Add 'lookupBinder' function that doesn't return an Env (often what we want) * refactor: Move out more stuff from Lookup * refactor: Use new 'lookupBinder' in tons of places (avoids tuple) * refactor: Got rid of monolithic 'recursiveLookupInternal' * refactor: Avoid boolean blindness * refactor: Better names for some lookup functions * refactor: More logical order in Lookup.hs * style: Use correct version of ormolu (0.1.4.1) * refactor: Slightly more consistent naming * refactor: Address @scolsen:s feedback
16 lines
388 B
Haskell
16 lines
388 B
Haskell
module Main where
|
|
|
|
import Test.HUnit
|
|
import TestConstraints
|
|
import TestLookup
|
|
|
|
main :: IO ()
|
|
main = do
|
|
_ <- runTestTT (groupTests "Constraints" testConstraints)
|
|
_ <- runTestTT (groupTests "Lookup" testLookup)
|
|
return ()
|
|
|
|
groupTests :: String -> [Test] -> Test
|
|
groupTests label testCases =
|
|
TestList (zipWith TestLabel (map ((\s -> label ++ " Test " ++ s) . show) [1 ..]) testCases)
|