mirror of
https://github.com/anoma/juvix.git
synced 2024-12-13 11:16:48 +03:00
86e8458b9f
* Implements JuvixReg recursors, which will allow to implement JuvixReg transformations more succinctly and effectively. * Adds a transformation framework to JuvixReg. * Adds identity transformation tests. * Depends on #2635
25 lines
616 B
Haskell
25 lines
616 B
Haskell
module Reg.Run.Positive where
|
|
|
|
import Base
|
|
import Reg.Parse.Positive qualified as Parse
|
|
import Reg.Run.Base
|
|
|
|
type PosTest = Parse.PosTest
|
|
|
|
testDescr :: PosTest -> TestDescr
|
|
testDescr Parse.PosTest {..} =
|
|
let tRoot = Parse.root <//> _relDir
|
|
file' = tRoot <//> _file
|
|
expected' = tRoot <//> _expectedFile
|
|
in TestDescr
|
|
{ _testName = _name,
|
|
_testRoot = tRoot,
|
|
_testAssertion = Steps $ regRunAssertion file' expected' [] (const (return ()))
|
|
}
|
|
|
|
allTests :: TestTree
|
|
allTests =
|
|
testGroup
|
|
"JuvixReg parsing positive tests"
|
|
(map (mkTest . testDescr) Parse.tests)
|