call/cc

test/Gyehoek/Test/Golden.hs

@@ -19,13 +19,7 @@ import Test.Tasty.ExpectedFailure (expectFail)
 
 brokenWasmTests :: List String
 brokenWasmTests =
-  [ "adder"
-  , "apply-twice"
-  , "square"
-  , "fn-of-fn"
-  , "let-fn"
-  , "apply2"
-  , "factorial"
+  [
   ]
 
 brokenStackifyTests :: List String
@@ -42,8 +36,8 @@ root = do
   let tests = all_cases
             & fmap ("golden"</>)
   testGroup "golden" <$> sequenceA
-    [ wasmTests tests
-    , stackifyTests tests
+    [ {-wasmTests tests
+    , -}stackifyTests tests
     ]
 
 maybeBroken name broken = applyWhen (name `elem` broken) expectFail