Skip to content

GitLab

GHC
GHC
Commit 002b2842 authored by Ivan Kasatenko's avatar Ivan Kasatenko Committed by Ben Gamari
1 Browse files
Options

Make test 16916 more stable across runs

parent fa98f823
Pipeline #12866 failed with stages
                  in 29 seconds
                  Hide whitespace changes
                  Inline Side-by-side
                  Showing with 2 additions and 2 deletions
                  testsuite/tests/lib/base/T16916.hs
                  View file @ 002b2842
                  ......@@ -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
                  Markdown is supported
                  0% or .
                  You are about to add 0 people to the discussion. Proceed with caution.
                  Finish editing this message first!
                  Please register or to comment