From cc210dbc9267ce279ca57ae9f7718317ea18bada Mon Sep 17 00:00:00 2001 From: rockofox Date: Sat, 14 Dec 2024 18:20:05 +0100 Subject: [PATCH] Fix standard test library not passing verifier --- share/std/test.in | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/std/test.in b/share/std/test.in index 732ce99..4d8adf3 100644 --- a/share/std/test.in +++ b/share/std/test.in @@ -14,13 +14,13 @@ let evalTestSuite (suite: TestSuite) => IO = do let failed = filter (\x -> !(x.result)), suite.results let passed = filter (\x -> x.result), suite.results - map (\r-> do + void (map (\r-> do if r.result then do println ("\x1b[32m✓\x1b[0m " ++ r.name) else do println ("\x1b[31m✗\x1b[0m " ++ r.name) end - end), suite.results + end), suite.results) println ("Passed: " ++ ((length passed) as String) ++ "/" ++ ((length suite.results) as String)) if (length failed) > 0 then do