[commit: ghc] master: Remove the 'legroom' part of the timeout-accurate-pure test. (3825b7e)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3825b7e222bc1b7d643fce0755cf6b728fb1d854/ghc

>---------------------------------------------------------------

commit 3825b7e222bc1b7d643fce0755cf6b728fb1d854
Author: Tom Sydney Kerckhove <syd at fpcomplete.com>
Date:   Wed Oct 25 08:09:35 2017 +0100

    Remove the 'legroom' part of the timeout-accurate-pure test.
    
    Summary:
    This removes the part of the test that checks whether the timeout happened in
    a 'reasonable' amount of time, because it is flaky.
    In subsequent work, we can turn this into a benchmark.
    
    Test Plan: This _is_ a test
    
    Reviewers: nh2, bgamari, Phyx, austin, hvr
    
    Reviewed By: Phyx
    
    Subscribers: rwbarton, thomie
    
    GHC Trac Issues: #8684
    
    Differential Revision: https://phabricator.haskell.org/D4120


>---------------------------------------------------------------

3825b7e222bc1b7d643fce0755cf6b728fb1d854
 libraries/base/tests/all.T                        |  1 -
 libraries/base/tests/timeout-accurate-pure.hs     | 28 -----------------------
 libraries/base/tests/timeout-accurate-pure.stdout |  2 --
 3 files changed, 31 deletions(-)

diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T
index a1eba6a..9055bd5 100644
--- a/libraries/base/tests/all.T
+++ b/libraries/base/tests/all.T
@@ -190,7 +190,6 @@ test('T8089',
      [exit_code(99), run_timeout_multiplier(0.01)],
      compile_and_run, [''])
 test('T8684', expect_broken(8684), compile_and_run, [''])
-test('timeout-accurate-pure', normal, compile_and_run, [''])
 test('T9826',normal, compile_and_run,[''])
 test('T9848',
         [ stats_num_field('bytes allocated',
diff --git a/libraries/base/tests/timeout-accurate-pure.hs b/libraries/base/tests/timeout-accurate-pure.hs
deleted file mode 100644
index a59e785..0000000
--- a/libraries/base/tests/timeout-accurate-pure.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-import Control.Concurrent
-import Control.Monad
-import GHC.Clock
-import System.IO
-import System.Timeout
-
-ack :: Integer -> Integer -> Integer
-ack 0 n = n + 1
-ack m 0 = ack (m - 1) 1
-ack m n = ack (m - 1) (ack m (n - 1))
-
-main :: IO ()
-main = do
-    let microsecondsPerSecond = 1000 * 1000
-    let timeToSpend = 1 * microsecondsPerSecond -- One second in microseconds
-    start <- getMonotonicTimeNSec
-    timeout timeToSpend $
-        -- Something that is guaranteed not to be done in 'timeToSpend'
-        print $ ack 4 2
-    end <- getMonotonicTimeNSec
-    let timeSpentNano = fromIntegral $ end - start -- in nanoseconds
-    let nanosecondsPerMicrosecond = 1000
-    let timeToSpendNano = timeToSpend * nanosecondsPerMicrosecond
-    let legRoom = 1 * 1000 * nanosecondsPerMicrosecond -- Nanoseconds
-    let delta = timeSpentNano - timeToSpendNano
-    -- We can never wait for a shorter amount of time than specified
-    putStrLn $ "delta > 0: " ++ show (delta > 0)
-    putStrLn $ "delta < legroom: " ++ show (delta < legRoom)
diff --git a/libraries/base/tests/timeout-accurate-pure.stdout b/libraries/base/tests/timeout-accurate-pure.stdout
deleted file mode 100644
index 90f4a4c..0000000
--- a/libraries/base/tests/timeout-accurate-pure.stdout
+++ /dev/null
@@ -1,2 +0,0 @@
-delta > 0: True
-delta < legroom: True