diff options
| author | Ivan Kasatenko <sky.31338@gmail.com> | 2019-11-15 08:47:02 +0300 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2019-11-17 06:49:22 -0500 |
| commit | 002b284269de63504ed3b0c1e22c8ecfd74e78d9 (patch) | |
| tree | c5ec46f3efaca88ba7c5465361bc63c461816ddd | |
| parent | fa98f82348b268043dce918e6eb9dab434eb3108 (diff) | |
| download | haskell-002b284269de63504ed3b0c1e22c8ecfd74e78d9.tar.gz | |
Make test 16916 more stable across runs
| -rw-r--r-- | testsuite/tests/lib/base/T16916.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/lib/base/T16916.hs b/testsuite/tests/lib/base/T16916.hs index 6084c95572..a81bbd02bd 100644 --- a/testsuite/tests/lib/base/T16916.hs +++ b/testsuite/tests/lib/base/T16916.hs @@ -27,7 +27,7 @@ idleCpuUsage :: IO Double idleCpuUsage = do startTime <- getMonotonicTime startCPUTime <- getCPUTime - threadDelay 1000000 + threadDelay 5000000 endCPUTime <- getCPUTime endTime <- getMonotonicTime return $ fromIntegral (endCPUTime - startCPUTime) / (endTime - startTime) @@ -46,4 +46,4 @@ main = do -- CPU consumption should roughly be the same when just idling vs -- when idling after the event been triggered - print $ eventTriggeredUsage / noEventUsage < 2.0 + print $ eventTriggeredUsage / noEventUsage < 10.0 |