diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-05-04 09:06:54 +0200 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-04 09:06:54 +0200 |
| commit | fdcbfc66bf98cb4c463de3cf5d8572afd4ab7dad (patch) | |
| tree | 56f00bee9c9d185439c61a9a9b6693e089fac9b3 /test | |
| parent | 4425f4c90361927a7a1b839e69b89d56d9b77e8a (diff) | |
bugfix: do not overnormalize
Diffstat (limited to 'test')
| -rw-r--r-- | test/runTests.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/runTests.hs b/test/runTests.hs index ff780702..f8d354b2 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
| @@ -218,7 +218,7 @@ doTest Config{..} (i, fn) = do | |||
| 218 | listAllInfos i) | 218 | listAllInfos i) |
| 219 | Right (fname, Right (ET e te)) | 219 | Right (fname, Right (ET e te)) |
| 220 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (ET e te)) | 220 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (ET e te)) |
| 221 | | e == trueExp -> Right ("reducted main", simpleShow $ unfixlabel e) | 221 | | e == trueExp -> Right ("reducted main", simpleShow $ hnf e) |
| 222 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) | 222 | | te == boolType -> Left (tab "!Failed" $ "main should be True but it is \n" ++ ppShow e, Failed) |
| 223 | | otherwise -> Right ("reduced main " ++ ppShow te, simpleShow e) | 223 | | otherwise -> Right ("reduced main " ++ ppShow te, simpleShow e) |
| 224 | | otherwise = case e of | 224 | | otherwise = case e of |