diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-17 22:45:49 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-17 22:45:49 +0100 |
| commit | 6fb07d45cba2fea6c984ad27e31f3ac598b0dbe6 (patch) | |
| tree | 17cbacf1623ff4a7deb5aeebb0457525796b1764 /test | |
| parent | ad0427d4c31856c4f0fe57c1ed6cf7b4fec1ab6e (diff) | |
ignore performance tests
Diffstat (limited to 'test')
| -rw-r--r-- | test/PerfReport.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/PerfReport.hs b/test/PerfReport.hs index 7ad0b9b8..17cbb0af 100644 --- a/test/PerfReport.hs +++ b/test/PerfReport.hs | |||
| @@ -24,7 +24,7 @@ main = do | |||
| 24 | peakAllocF a = toDouble $ a ! "peak_megabytes_allocated" | 24 | peakAllocF a = toDouble $ a ! "peak_megabytes_allocated" |
| 25 | overallTime a = toDouble $ a ! "overall_time" | 25 | overallTime a = toDouble $ a ! "overall_time" |
| 26 | 26 | ||
| 27 | putStrLn $ printf "%-20s time: % 6.3fs \tpeak mem: % 6d MBytes total alloc: %d bytes" "current" (overallTime new) (peakAlloc new) (totalAlloc new) | 27 | putStrLn $ printf "%-20s time: % 6.3fs \tpeak mem: % 6d MBytes total alloc: %d bytes" "CURRENT" (overallTime new) (peakAlloc new) (totalAlloc new) |
| 28 | -- read previous results | 28 | -- read previous results |
| 29 | perfs <- filter ((".perf" ==) . takeExtension) <$> getDirectoryContents "performance" >>= mapM (\n -> (n,) . read <$> readFile (resultPath </> n)) :: IO [(String,Map String String)] | 29 | perfs <- filter ((".perf" ==) . takeExtension) <$> getDirectoryContents "performance" >>= mapM (\n -> (n,) . read <$> readFile (resultPath </> n)) :: IO [(String,Map String String)] |
| 30 | forM_ perfs $ \(name,old) -> do | 30 | forM_ perfs $ \(name,old) -> do |