Move literate test files

pull/357/head
Taylor Fausak 2021-11-06 21:28:23 +00:00 committed by GitHub
parent 79be0ed200
commit e22a647baa
8 changed files with 4 additions and 4 deletions

View File

@ -24,7 +24,7 @@ extra-doc-files:
README.md README.md
doc/implementation/*.md doc/implementation/*.md
extra-source-files: extra-source-files:
src-literatetests/*.blt data/*.blt
source-repository head source-repository head
type: git type: git

View File

@ -84,14 +84,14 @@ data TestCase = TestCase
main :: IO () main :: IO ()
main = do main = do
files <- System.Directory.listDirectory "src-literatetests/" files <- System.Directory.listDirectory "data/"
let blts = let blts =
List.sort List.sort
$ filter (\x -> not ("tests-context-free.blt" `isSuffixOf` x)) $ filter (\x -> not ("tests-context-free.blt" `isSuffixOf` x))
$ filter (".blt" `isSuffixOf`) files $ filter (".blt" `isSuffixOf`) files
inputs <- blts `forM` \blt -> Text.IO.readFile ("src-literatetests" </> blt) inputs <- blts `forM` \blt -> Text.IO.readFile ("data" </> blt)
let groups = createChunks =<< inputs let groups = createChunks =<< inputs
inputCtxFree <- Text.IO.readFile "src-literatetests/30-tests-context-free.blt" inputCtxFree <- Text.IO.readFile "data/30-tests-context-free.blt"
let groupsCtxFree = createChunks inputCtxFree let groupsCtxFree = createChunks inputCtxFree
hspec $ do hspec $ do
describe "asymptotic perf roundtrips" $ asymptoticPerfTest describe "asymptotic perf roundtrips" $ asymptoticPerfTest