mirror of
https://github.com/anoma/juvix.git
synced 2025-01-07 08:08:44 +03:00
20 lines
537 B
Haskell
20 lines
537 B
Haskell
module Core.VampIR.Positive where
|
|
|
|
import Base
|
|
import Core.Normalize.Positive (PosTest (..))
|
|
import Core.Normalize.Positive qualified as Normalize
|
|
import Core.VampIR.Base
|
|
import Juvix.Compiler.Core.Data.TransformationId
|
|
|
|
fromTest :: PosTest -> TestTree
|
|
fromTest = mkTest . toTestDescr
|
|
|
|
toTestDescr :: PosTest -> TestDescr
|
|
toTestDescr = Normalize.toTestDescr' (coreVampIRAssertion toVampIRTransformations)
|
|
|
|
allTests :: TestTree
|
|
allTests =
|
|
testGroup
|
|
"JuvixCore VampIR positive tests"
|
|
(map (mkTest . toTestDescr) Normalize.tests)
|