2023-03-27 11:42:27 +03:00
|
|
|
module Compilation.Negative where
|
|
|
|
|
|
|
|
|
|
import Base
|
|
|
|
|
import Compilation.Base
|
|
|
|
|
|
|
|
|
|
data NegTest = NegTest
|
|
|
|
|
{ _name :: String,
|
|
|
|
|
_relDir :: Path Rel Dir,
|
|
|
|
|
_file :: Path Rel File
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
root :: Path Abs Dir
|
|
|
|
|
root = relToProject $(mkRelDir "tests/Compilation/negative")
|
|
|
|
|
|
|
|
|
|
testDescr :: NegTest -> TestDescr
|
|
|
|
|
testDescr NegTest {..} =
|
|
|
|
|
let tRoot = root <//> _relDir
|
|
|
|
|
file' = tRoot <//> _file
|
|
|
|
|
in TestDescr
|
|
|
|
|
{ _testName = _name,
|
|
|
|
|
_testRoot = tRoot,
|
|
|
|
|
_testAssertion = Steps $ compileErrorAssertion file'
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
allTests :: TestTree
|
|
|
|
|
allTests =
|
|
|
|
|
testGroup
|
|
|
|
|
"Juvix compilation pipeline negative tests"
|
|
|
|
|
(map (mkTest . testDescr) tests)
|
|
|
|
|
|
|
|
|
|
tests :: [NegTest]
|
|
|
|
|
tests =
|
|
|
|
|
[ NegTest
|
|
|
|
|
"Pattern matching coverage"
|
|
|
|
|
$(mkRelDir ".")
|
2023-03-28 11:29:24 +03:00
|
|
|
$(mkRelFile "test001.juvix"),
|
|
|
|
|
NegTest
|
|
|
|
|
"Pattern matching coverage in cases"
|
|
|
|
|
$(mkRelDir ".")
|
|
|
|
|
$(mkRelFile "test002.juvix"),
|
|
|
|
|
NegTest
|
|
|
|
|
"Pattern matching coverage in lambdas"
|
|
|
|
|
$(mkRelDir ".")
|
|
|
|
|
$(mkRelFile "test003.juvix")
|
2023-03-27 11:42:27 +03:00
|
|
|
]
|
