|
0 |
module Test.Falderal.Reporter.Standard (report) where
|
|
1 |
|
|
2 |
--
|
|
3 |
-- Test.Falderal.Reporter.Standard -- Std. report for Falderal test results
|
|
4 |
-- Copyright (c)2011 Cat's Eye Technologies. All rights reserved.
|
|
5 |
--
|
|
6 |
-- Redistribution and use in source and binary forms, with or without
|
|
7 |
-- modification, are permitted provided that the following conditions
|
|
8 |
-- are met:
|
|
9 |
--
|
|
10 |
-- 1. Redistributions of source code must retain the above copyright
|
|
11 |
-- notices, this list of conditions and the following disclaimer.
|
|
12 |
-- 2. Redistributions in binary form must reproduce the above copyright
|
|
13 |
-- notices, this list of conditions, and the following disclaimer in
|
|
14 |
-- the documentation and/or other materials provided with the
|
|
15 |
-- distribution.
|
|
16 |
-- 3. Neither the names of the copyright holders nor the names of their
|
|
17 |
-- contributors may be used to endorse or promote products derived
|
|
18 |
-- from this software without specific prior written permission.
|
|
19 |
--
|
|
20 |
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
21 |
-- ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
22 |
-- LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
|
|
23 |
-- FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
|
|
24 |
-- COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
25 |
-- INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
|
|
26 |
-- BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
27 |
-- LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
28 |
-- CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
29 |
-- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
|
|
30 |
-- ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
31 |
-- POSSIBILITY OF SUCH DAMAGE.
|
|
32 |
--
|
|
33 |
|
|
34 |
import Test.Falderal.Common
|
|
35 |
|
|
36 |
report testTuples failures = let
|
|
37 |
numTests = length (filter (isTest) testTuples)
|
|
38 |
in do
|
|
39 |
putStrLn "--------------------------------"
|
|
40 |
putStrLn ("Total tests: " ++ (show numTests) ++ ", failures: " ++ (show (length failures)))
|
|
41 |
putStrLn "--------------------------------\n"
|
|
42 |
reportEachTest failures
|
|
43 |
|
|
44 |
reportEachTest [] = do
|
|
45 |
return ()
|
|
46 |
reportEachTest ((Failure literalText testText expected actual):rest) = do
|
|
47 |
reportText 8 "FAILED" (stripLeading '\n' (stripTrailing '\n' literalText))
|
|
48 |
putStrLn ""
|
|
49 |
reportText 8 "Input" testText
|
|
50 |
reportText 8 "Expected" (show expected)
|
|
51 |
reportText 8 "Actual" (show actual)
|
|
52 |
putStrLn ""
|
|
53 |
reportEachTest rest
|
|
54 |
|
|
55 |
reportText width fieldName text =
|
|
56 |
if
|
|
57 |
contains text '\n'
|
|
58 |
then do
|
|
59 |
putStrLn (fieldName ++ ":")
|
|
60 |
putStrLn text
|
|
61 |
else do
|
|
62 |
putStrLn ((pad fieldName width) ++ ": " ++ text)
|
|
63 |
|
|
64 |
isTest (_, (Test _ _ _)) = True
|
|
65 |
isTest _ = False
|