1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{-
This test parses sample event logs from each major GHC version and compares
the pretty printed output with reference output.
When tests fail, use a diff tool to compare the output of "ghc-events show" with
the reference file. Resolve the differences in either the library code or the
reference file, and 'darcs record' the changes.
Steps to produce event log and reference output:
$ ghc --make queens.hs -o queens-ghc-$VERSION -threaded -eventlog
$ queens-ghc-$VERSION 8 +RTS -N4 -ls
$ ghc-events show queens-ghc-$VERSION.eventlog > queens-ghc-$VERSION.eventlog.reference
Where queens.hs is http://darcs.haskell.org/nofib/parallel/queens/Main.hs
-}
import System.Exit (exitFailure)
import GHC.RTS.Events
import Utils (files, diffLines)
testFile :: FilePath -> IO Bool
testFile f = do
e <- readEventLogFromFile f
let oops s = putStrLn (f ++ ": failure " ++ s) >> return False
case e of
Left m -> oops m
Right newlogdata -> do
oldlog <- readFile (f ++ ".reference")
let newlog = ppEventLog newlogdata ++ "\n" in
if oldlog == newlog
then putStrLn (f ++ ": success") >> return True
else do putStrLn $ diffLines oldlog newlog
oops "pretty print output does not match"
main :: IO ()
main = do
successes <- mapM testFile files
if and successes
then return ()
else exitFailure
|
