mirror of
https://github.com/anoma/juvix.git
synced 2025-01-07 08:08:44 +03:00
39b797ecfa
- Closes #2056 - Depends on #2103 I am not sure about the implementation of `isType` for `NBot`. (solved). The `Eq` instance returns `True` for every two `Bottom` terms, regardless of their type. --------- Co-authored-by: Jonathan Cubides <jonathan.cubides@uib.no> Co-authored-by: Lukasz Czajka <lukasz@heliax.dev>
22 lines
550 B
Haskell
22 lines
550 B
Haskell
module Core.Transformation.Pipeline (allTests) where
|
|
|
|
import Base
|
|
import Core.Eval.Positive qualified as Eval
|
|
import Core.Transformation.Base
|
|
import Juvix.Compiler.Core.Transformation
|
|
|
|
allTests :: TestTree
|
|
allTests = testGroup "Transformation pipeline (to Stripped)" (map liftTest Eval.compilableTests)
|
|
|
|
pipe :: [TransformationId]
|
|
pipe = toStrippedTransformations
|
|
|
|
liftTest :: Eval.PosTest -> TestTree
|
|
liftTest _testEval =
|
|
fromTest
|
|
Test
|
|
{ _testTransformations = pipe,
|
|
_testAssertion = const (return ()),
|
|
_testEval
|
|
}
|