Move literate test files
parent
79be0ed200
commit
e22a647baa
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue