parse meta vars

test/Gyehoek/Test/Golden.hs

@@ -35,12 +35,6 @@ brokenStackifyTests =
   -- , "callcc-nested1" -- requires closure-conversion
   -- ]
 
-brokenReaderTests =
-  [ "delimited-identifier"
-  , "string-line-continuation"
-  , "peculiar-identifier-dot"
-  ]
-
 test_root :: IO TestTree
 test_root = do
   all_cases <- listDirectory "golden/exec"
@@ -91,22 +85,3 @@ stackifyTests files = do
        resultfile
        action
        printProcResult
-
-test_reader :: IO TestTree
-test_reader = do
-  all_cases <- listDirectory "golden/read"
-  let tests = all_cases
-            & fmap ("golden/read"</>)
-  pure . testGroup "reader" $ tests <&> \test ->
-    let testname = takeFileName test
-        scmfile = test </> "source.scm"
-        resultfile = test </> "read"
-        action = runEff $ Read.readFile scmfile
-    in maybeBroken testname brokenReaderTests $ goldenVsAction
-        testname
-        resultfile
-        action
-        (view strict . pShowNoColor)
-
--- readTests files = pure . testGroup "reader" $ files <&> \test ->
---   let