diff options
| author | Péter Diviánszky <divipp@gmail.com> | 2016-05-04 08:39:23 +0200 |
|---|---|---|
| committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-04 08:39:23 +0200 |
| commit | 4425f4c90361927a7a1b839e69b89d56d9b77e8a (patch) | |
| tree | 4c59501509aa6e083e2a88f023c8e6b8697944e5 /test | |
| parent | e23ea133eb598e822183b44fe97ea0f6bdc4d4c9 (diff) | |
refactoring
Diffstat (limited to 'test')
| -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 cc21014f..ff780702 100644 --- a/test/runTests.hs +++ b/test/runTests.hs | |||
| @@ -216,8 +216,8 @@ doTest Config{..} (i, fn) = do | |||
| 216 | -> Right ("typechecked module" | 216 | -> Right ("typechecked module" |
| 217 | , simpleShow $ vcat $ e: "------------ desugared source code": intersperse "" (map pShow desug) ++ | 217 | , simpleShow $ vcat $ e: "------------ desugared source code": intersperse "" (map pShow desug) ++ |
| 218 | listAllInfos i) | 218 | listAllInfos i) |
| 219 | Right (fname, Right (e, te)) | 219 | Right (fname, Right (ET e te)) |
| 220 | | te == outputType -> Right ("compiled pipeline", prettyShowUnlines $ compilePipeline OpenGL33 (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 $ unfixlabel 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) |