diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 11:10:14 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-03 11:10:14 +0200 |
commit | 860612b5ad0f977800071970a76416ae301d3b55 (patch) | |
tree | 3fd2c0911026910f2a91e35dfefa5bc2a8b1776f /test/runTests.hs | |
parent | ae11122ec0acdedf11d7fdf443088d61e8a2bd42 (diff) |
remove more color formattins from out files
Diffstat (limited to 'test/runTests.hs')
-rw-r--r-- | test/runTests.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index 4b2d71fb..4f0f38c7 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
@@ -211,9 +211,9 @@ doTest Config{..} (i, fn) = do | |||
211 | e: listAllInfos i) | 211 | e: listAllInfos i) |
212 | Right (fname, Right (e, te)) | 212 | Right (fname, Right (e, te)) |
213 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te)) | 213 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (e, te)) |
214 | | e == trueExp -> Right ("reducted main", ppShow $ unfixlabel e) | 214 | | e == trueExp -> Right ("reducted main", simpleShow $ unfixlabel e) |
215 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) | 215 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) |
216 | | otherwise -> Right ("reduced main " ++ ppShow te, ppShow e) | 216 | | otherwise -> Right ("reduced main " ++ ppShow te, simpleShow e) |
217 | | otherwise = case e of | 217 | | otherwise = case e of |
218 | Left (pShow -> e) -> Right ("error message", simpleShow $ vcat $ e: listAllInfos i) | 218 | Left (pShow -> e) -> Right ("error message", simpleShow $ vcat $ e: listAllInfos i) |
219 | Right _ -> Left (tab "!Failed" "failed to catch error", Failed) | 219 | Right _ -> Left (tab "!Failed" "failed to catch error", Failed) |