edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-29 15:52:29 +03:00
Code Issues Projects Releases Wiki Activity

reactivate all tests

Browse Source
This commit is contained in:
Arnaud Bailly 2019-07-27 17:18:06 +02:00
parent 5a555641a0
commit 775c67452a
No known key found for this signature in database
GPG Key ID: 389CC2BC5448321E
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/Main.idr
View File

@ -113,9 +113,9 @@ main : IO ()
main main
= do [_, idris2] <- getArgs = do [_, idris2] <- getArgs
| _ => do putStrLn "Usage: runtests [ttimp path]" | _ => do putStrLn "Usage: runtests [ttimp path]"
-- ttimps <- traverse (runTest "ttimp" idris2) ttimpTests ttimps <- traverse (runTest "ttimp" idris2) ttimpTests
-- idrs <- traverse (runTest "idris2" idris2) idrisTests idrs <- traverse (runTest "idris2" idris2) idrisTests
-- typedds <- traverse (runTest "typedd-book" idris2) typeddTests typedds <- traverse (runTest "typedd-book" idris2) typeddTests
ideModes <- traverse (runTest "ideMode" idris2) ideModeTests ideModes <- traverse (runTest "ideMode" idris2) ideModeTests
chexec <- findChez chexec <- findChez
chezs <- maybe (do putStrLn "Chez Scheme not found" chezs <- maybe (do putStrLn "Chez Scheme not found"
@ -123,7 +123,7 @@ main
(\c => do putStrLn $ "Found Chez Scheme at " ++ c (\c => do putStrLn $ "Found Chez Scheme at " ++ c
traverse (runTest "chez" idris2) chezTests) traverse (runTest "chez" idris2) chezTests)
chexec chexec
let res = --ttimps ++ typedds ++ idrs ++ let res = ttimps ++ typedds ++ idrs ++
ideModes ++ chezs ideModes ++ chezs
putStrLn (show (length (filter id res)) ++ "/" ++ show (length res) putStrLn (show (length (filter id res)) ++ "/" ++ show (length res)
++ " tests successful") ++ " tests successful")