From cfc5b18e3ee5be75865d3c0e7c3caeab9199e0d6 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Thu, 20 Mar 2008 23:56:13 +0000
Subject: [PATCH] Don't show the state when a pass unexpectedly succeeds. This
 used not to be a problem, but there's now quite a lot of stuff predefined in
 the state when testing the typechecker, so it tends to obscure the real
 error...

---
 common/TestUtils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/common/TestUtils.hs b/common/TestUtils.hs
index ace132d..d3dc382 100644
--- a/common/TestUtils.hs
+++ b/common/TestUtils.hs
@@ -505,7 +505,7 @@ testPassShouldFail testName actualPass startStateTrans =
     do ret <- runPass actualPass (execState startStateTrans emptyState)
        case ret of
          Left err -> return ()
-         _ -> testFailure $ testName ++ " pass succeeded when expected to fail, data: " ++ (pshow ret)
+         Right (state, output) -> testFailure $ testName ++ " pass succeeded when expected to fail; output: " ++ pshow output
 
 --}}}
 --{{{  miscellaneous utilities