mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
23 lines
578 B
Haskell
23 lines
578 B
Haskell
module Asm.Compile.Positive where
|
|
|
|
import Asm.Compile.Base
|
|
import Asm.Run.Positive qualified as Run
|
|
import Base
|
|
|
|
testDescr :: Run.PosTest -> TestDescr
|
|
testDescr Run.PosTest {..} =
|
|
let tRoot = Run.root <//> _relDir
|
|
file' = tRoot <//> _file
|
|
expected' = tRoot <//> _expectedFile
|
|
in TestDescr
|
|
{ _testName = _name,
|
|
_testRoot = tRoot,
|
|
_testAssertion = Steps $ asmCompileAssertion tRoot file' expected' ""
|
|
}
|
|
|
|
allTests :: TestTree
|
|
allTests =
|
|
testGroup
|
|
"JuvixAsm compile positive tests"
|
|
(map (mkTest . testDescr) Run.tests)
|