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
|
module Utils where
files :: [FilePath]
files = map ("test/"++)
[ "nonmoving-gc.eventlog"
, "nonmoving-gc-census.eventlog"
, "parallelTest.eventlog"
, "sleep.h.eventlog"
, "sleep.hC.eventlog"
, "sleep.hm.eventlog"
, "sleep.hd.eventlog"
, "sleep.hy.eventlog"
, "stop.hT.eventlog"
, "hello-ghc-8.2.2.eventlog", "hello-ghc-8.6.5.eventlog"
, "biographical-samples.eventlog"
, "time-prof.eventlog"
, "trace-binary-event.eventlog"
, "trace-binary-nonutf.eventlog"
, "unicode.eventlog"
, "ticky-ticky.eventlog"
, "ticky-begin-sample.eventlog"
, "ticky-new.eventlog"
, "ticky-json.eventlog"
]
-- Code to help print the differences between a working test and a failing test.
diffLines :: String -> String -> String
diffLines o n = diff 1 (lines o) (lines n)
diff :: Int -> [String] -> [String] -> String
diff _ [] [] = "Logs match"
diff l [] (n:ns) = "Extra lines in new log at line " ++ show l ++ ":\n" ++
(unlines (n:ns))
diff l (o:os) [] = "Missing lines in new log at line " ++ show l ++ ":\n" ++
(unlines (o:os))
diff l (o:os) (n:ns) = if (o == n)
then diff (l+1) os ns
else "Different output at line " ++ show l ++ ":\n" ++
"Original: " ++ o ++ "\n" ++
"New: " ++ n
|
