less noisy output from Rhino tests

seliopou · Dec 23, 2008 · 66224f7 · 66224f7
1 parent ed3e863
commit 66224f7
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/tests/Rhino.hs b/tests/Rhino.hs
@@ -43,11 +43,12 @@ commandIO path args stdinStr = do
   B.hPutStr hStdin stdinStr
   stdoutStr <- B.hGetContents hStdout
   stderrStr <- hGetContents hStderr
-  hPutStrLn stderr (take 50 stderrStr) -- echo errors to our stderr
+  hPutStrLn stderr stderrStr -- echo errors to our stderr
   exitCode <- waitForProcess hProcess
   case exitCode of
     ExitSuccess -> return (Just stdoutStr)
     ExitFailure n -> do
+      B.hPutStrLn stdout stdoutStr -- echo for errors
       hPutStrLn stderr $ "Sub-process died with exit code " ++ show n
       return Nothing
 
@@ -69,7 +70,9 @@ testRhino src str = TestCase $ do
   let src' = src ++ " (pretty-printed)"
   lhs <- ((rhino src') . B.pack . pretty . (parse src)) str
   rhs <- rhino src (B.pack str)
-  assertEqual ("testRhino on " ++ src) lhs rhs
+  if lhs == rhs 
+    then return ()
+    else assertFailure ("testRhino failed on " ++ src)
 
 
 main = do

diff --git a/tests/parse-pretty/numbers.js b/tests/parse-pretty/numbers.js
@@ -0,0 +1,2 @@
+var x = 23;
+var y = 23.0;