From 9513491a4cd06be6f5e3e604efb50cd68b694fd4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Thu, 3 Sep 2026 15:22:05 -0600
Subject: [PATCH]

---
 golden/exec/lit-int/exec      |  2 ++
 test/Gyehoek/Test/CPS/Eval.hs | 63 ++++++++++++++++++-----------------
 2 files changed, 35 insertions(+), 30 deletions(-)
 create mode 100644 golden/exec/lit-int/exec

diff --git a/golden/exec/lit-int/exec b/golden/exec/lit-int/exec
new file mode 100644
index 0000000..7e6cbaf
--- /dev/null
+++ b/golden/exec/lit-int/exec
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 123
diff --git a/test/Gyehoek/Test/CPS/Eval.hs b/test/Gyehoek/Test/CPS/Eval.hs
index 17508a5..8725301 100644
--- a/test/Gyehoek/Test/CPS/Eval.hs
+++ b/test/Gyehoek/Test/CPS/Eval.hs
@@ -15,44 +15,47 @@ import Control.DeepSeq (($!!))
 import System.Exit (ExitCode(..))
 import qualified Data.Text as T
 import Data.Function (applyWhen)
+import Gyehoek.Prelude
 
 
 brokenEvalTests :: List String
 brokenEvalTests =
-  [ "adder"
-  , "apply2"
-  , "apply-twice"
-  , "arith"
-  , "begin-1"
-  , "callcc-constant"
-  , "callcc-discard"
-  , "callcc-early-exit-1"
-  , "callcc-early-exit-2"
-  , "callcc-early-exit-3"
-  , "callcc-early-exit-4"
-  , "callcc-early-exit-5"
-  , "callcc-early-exit-6"
-  , "callcc-nested-1"
-  , "callcc-nested-2"
-  , "complicated-1"
-  , "cons-1"
-  , "factorial"
-  , "false"
-  , "fn-of-fn"
-  , "if-false"
-  , "if-number"
-  , "if-true"
-  , "lambda"
-  , "letrec-fn"
-  , "let-fn"
-  , "lit-int"
-  , "square"
-  , "true"
-  ]
+  []
+  -- [ "adder"
+  -- , "apply2"
+  -- , "apply-twice"
+  -- , "arith"
+  -- , "begin-1"
+  -- , "callcc-constant"
+  -- , "callcc-discard"
+  -- , "callcc-early-exit-1"
+  -- , "callcc-early-exit-2"
+  -- , "callcc-early-exit-3"
+  -- , "callcc-early-exit-4"
+  -- , "callcc-early-exit-5"
+  -- , "callcc-early-exit-6"
+  -- , "callcc-nested-1"
+  -- , "callcc-nested-2"
+  -- , "complicated-1"
+  -- , "cons-1"
+  -- , "factorial"
+  -- , "false"
+  -- , "fn-of-fn"
+  -- , "if-false"
+  -- , "if-number"
+  -- , "if-true"
+  -- , "lambda"
+  -- , "letrec-fn"
+  -- , "let-fn"
+  -- , "lit-int"
+  -- , "square"
+  -- , "true"
+  -- ]
 
 test_eval :: IO TestTree
 test_eval = do
   cs <- listDirectory "golden/exec"
+      <&> fmap ("golden/exec" </>)
   pure $ testGroup "cps interpreter" $ cpsCase <$> cs
 
 maybeBroken name broken = applyWhen (name `elem` broken) expectFail