@@ -93,9 +93,9 @@ stackifyTests files = do
|
||||
|
||||
test_reader :: IO TestTree
|
||||
test_reader = do
|
||||
all_cases <- listDirectory "golden/reader"
|
||||
all_cases <- listDirectory "golden/read"
|
||||
let tests = all_cases
|
||||
& fmap ("golden/reader"</>)
|
||||
& fmap ("golden/read"</>)
|
||||
pure . testGroup "reader" $ tests <&> \test ->
|
||||
let testname = takeFileName test
|
||||
scmfile = test </> "source.scm"
|
||||
|
||||
Reference in New Issue
Block a user