golden/exec/lit-int/exec

@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > 123

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"
+  -- [ "adder"
-  , "apply-twice"
+  -- , "apply2"
-  , "arith"
+  -- , "apply-twice"
-  , "begin-1"
+  -- , "arith"
-  , "callcc-constant"
+  -- , "begin-1"
-  , "callcc-discard"
+  -- , "callcc-constant"
-  , "callcc-early-exit-1"
+  -- , "callcc-discard"
-  , "callcc-early-exit-2"
+  -- , "callcc-early-exit-1"
-  , "callcc-early-exit-3"
+  -- , "callcc-early-exit-2"
-  , "callcc-early-exit-4"
+  -- , "callcc-early-exit-3"
-  , "callcc-early-exit-5"
+  -- , "callcc-early-exit-4"
-  , "callcc-early-exit-6"
+  -- , "callcc-early-exit-5"
-  , "callcc-nested-1"
+  -- , "callcc-early-exit-6"
-  , "callcc-nested-2"
+  -- , "callcc-nested-1"
-  , "complicated-1"
+  -- , "callcc-nested-2"
-  , "cons-1"
+  -- , "complicated-1"
-  , "factorial"
+  -- , "cons-1"
-  , "false"
+  -- , "factorial"
-  , "fn-of-fn"
+  -- , "false"
-  , "if-false"
+  -- , "fn-of-fn"
-  , "if-number"
+  -- , "if-false"
-  , "if-true"
+  -- , "if-number"
-  , "lambda"
+  -- , "if-true"
-  , "letrec-fn"
+  -- , "lambda"
-  , "let-fn"
+  -- , "letrec-fn"
-  , "lit-int"
+  -- , "let-fn"
-  , "square"
+  -- , "lit-int"
-  , "true"
+  -- , "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