mirror of
https://github.com/anoma/juvix.git
synced 2024-12-18 12:21:46 +03:00
272b93e595
* Closes #2154 * Evaluates closed applications with value arguments when the result type is zero-order. For example, `3 + 4` is evaluated to `7`, and `id 3` is evaluated to `3`, but `id id` is not evaluated because the target type is not zero-order (it's a function type).
149 lines
3.9 KiB
Haskell
149 lines
3.9 KiB
Haskell
module Runtime.Positive where
|
|
|
|
import Base
|
|
import Runtime.Base
|
|
|
|
data PosTest = PosTest
|
|
{ _name :: String,
|
|
_relDir :: Path Rel Dir,
|
|
_file :: Path Rel File,
|
|
_expectedFile :: Path Rel File
|
|
}
|
|
|
|
makeLenses ''PosTest
|
|
|
|
root :: Path Abs Dir
|
|
root = relToProject $(mkRelDir "tests/runtime/positive/")
|
|
|
|
testDescr :: PosTest -> TestDescr
|
|
testDescr PosTest {..} =
|
|
let tRoot = root <//> _relDir
|
|
file' = tRoot <//> _file
|
|
expected' = tRoot <//> _expectedFile
|
|
optLevel :: Int = 3
|
|
in TestDescr
|
|
{ _testName = _name,
|
|
_testRoot = tRoot,
|
|
_testAssertion = Steps $ clangAssertion optLevel file' expected' ""
|
|
}
|
|
|
|
allTests :: TestTree
|
|
allTests =
|
|
testGroup
|
|
"Runtime positive tests"
|
|
(map (mkTest . testDescr) tests)
|
|
|
|
tests :: [PosTest]
|
|
tests =
|
|
[ PosTest
|
|
"Test001: HelloWorld"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test001.c")
|
|
$(mkRelFile "out/test001.out"),
|
|
PosTest
|
|
"Test002: Page allocation"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test002.c")
|
|
$(mkRelFile "out/test002.out"),
|
|
PosTest
|
|
"Test003: Printing of integers"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test003.c")
|
|
$(mkRelFile "out/test003.out"),
|
|
PosTest
|
|
"Test004: Allocator for unstructured objects"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test004.c")
|
|
$(mkRelFile "out/test004.out"),
|
|
PosTest
|
|
"Test005: Allocator for unstructured objects (macro API)"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test005.c")
|
|
$(mkRelFile "out/test005.out"),
|
|
PosTest
|
|
"Test006: Stack"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test006.c")
|
|
$(mkRelFile "out/test006.out"),
|
|
PosTest
|
|
"Test007: Prologue and epilogue"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test007.c")
|
|
$(mkRelFile "out/test007.out"),
|
|
PosTest
|
|
"Test008: Basic arithmetic"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test008.c")
|
|
$(mkRelFile "out/test008.out"),
|
|
PosTest
|
|
"Test009: Direct call"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test009.c")
|
|
$(mkRelFile "out/test009.out"),
|
|
PosTest
|
|
"Test010: Indirect call"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test010.c")
|
|
$(mkRelFile "out/test010.out"),
|
|
PosTest
|
|
"Test011: Tail calls"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test011.c")
|
|
$(mkRelFile "out/test011.out"),
|
|
PosTest
|
|
"Test012: Tracing and strings"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test012.c")
|
|
$(mkRelFile "out/test012.out"),
|
|
PosTest
|
|
"Test013: IO builtins"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test013.c")
|
|
$(mkRelFile "out/test013.out"),
|
|
PosTest
|
|
"Test014: Higher-order functions"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test014.c")
|
|
$(mkRelFile "out/test014.out"),
|
|
PosTest
|
|
"Test015: Branching, matching and recursion on lists"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test015.c")
|
|
$(mkRelFile "out/test015.out"),
|
|
PosTest
|
|
"Test016: Closure extension"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test016.c")
|
|
$(mkRelFile "out/test016.out"),
|
|
PosTest
|
|
"Test017: Recursion through higher-order functions"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test017.c")
|
|
$(mkRelFile "out/test017.out"),
|
|
PosTest
|
|
"Test018: Tail recursion through higher-order functions"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test018.c")
|
|
$(mkRelFile "out/test018.out"),
|
|
PosTest
|
|
"Test019: Dynamic closure extension"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test019.c")
|
|
$(mkRelFile "out/test019.out"),
|
|
PosTest
|
|
"Test020: Higher-order function composition"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test020.c")
|
|
$(mkRelFile "out/test020.out"),
|
|
PosTest
|
|
"Test021: Higher-order functions with apply"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test021.c")
|
|
$(mkRelFile "out/test021.out"),
|
|
PosTest
|
|
"Test022: Dynamic closure extension with apply"
|
|
$(mkRelDir ".")
|
|
$(mkRelFile "test022.c")
|
|
$(mkRelFile "out/test022.out")
|
|
]
|