stack vm throws jalmot

2026-08-27 01:45:10 -06:00
parent 1f40120740
commit bbb5d6e99f
7 changed files with 135 additions and 113 deletions
@@ -6,10 +6,11 @@ import Test.Tasty.HUnit
 import Gyehoek.Stack.Syntax
 import Gyehoek.Stack.VM qualified as Sut
 import Data.List (List)
+import Gyehoek.Jalmot


 evalsTo :: List Obj -> Program -> Assertion
-evalsTo rs p = Sut.eval p @?= rs
+evalsTo rs p = runJalmotUnsafe (Sut.eval p) @?= rs

 test_root = testGroup "stack machine"
  [ testCase "lit int" do