[commit: ghc] wip/T16342, wip/hadrian-ghc-in-ghci, wip/trac-16201: Disable fragile test cases: T14697 T5559 T3424 (14586f5)

[git at git.haskell.org]

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

On branches: wip/T16342,wip/hadrian-ghc-in-ghci,wip/trac-16201
Link       : http://ghc.haskell.org/trac/ghc/changeset/14586f5d737ec5dc828633267b50dcf0d47e1696/ghc

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

commit 14586f5d737ec5dc828633267b50dcf0d47e1696
Author: Vladislav Zavialov <vlad.z.4096 at gmail.com>
Date:   Sun Feb 24 01:03:35 2019 +0300

    Disable fragile test cases: T14697 T5559 T3424
    
    See Trac #15072, Trac #16349, Trac #16350


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

14586f5d737ec5dc828633267b50dcf0d47e1696
 testsuite/tests/perf/compiler/all.T        |  7 +++++--
 testsuite/tests/profiling/should_run/all.T |  4 +++-
 testsuite/tests/rts/all.T                  | 10 +++++++---
 3 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/testsuite/tests/perf/compiler/all.T b/testsuite/tests/perf/compiler/all.T
index 82847c2..c6548c1 100644
--- a/testsuite/tests/perf/compiler/all.T
+++ b/testsuite/tests/perf/compiler/all.T
@@ -355,8 +355,11 @@ test('T13719',
 
 test('T14697',
      [ collect_compiler_stats('bytes allocated',10),
-       # This generates too large of a command-line for poor Windows
-       when(opsys('mingw32'), expect_broken(15072)),
+       # This generates too large of a command-line for poor Windows and
+       # Darwin. The failure is non-deterministic, so we 'skip' it rather than
+       # 'expect_broken'. The solution is to teach the testsuite driver to
+       # invoke GHC with a response file, see Trac #15072
+       when(opsys('mingw32') or opsys('darwin'), skip),
        pre_cmd('./genT14697'),
        extra_files(['genT14697']),
        extra_hc_opts('$(cat T14697-flags)'), # 10k -optP arguments
diff --git a/testsuite/tests/profiling/should_run/all.T b/testsuite/tests/profiling/should_run/all.T
index 8baddcb..9b6018c 100644
--- a/testsuite/tests/profiling/should_run/all.T
+++ b/testsuite/tests/profiling/should_run/all.T
@@ -87,7 +87,9 @@ test('prof-doc-fib', [], compile_and_run, [''])
 test('prof-doc-last', [], compile_and_run, ['-fno-full-laziness'])
 
 # unicode in cost centre names
-test('T5559', [], compile_and_run, [''])
+test('T5559',
+     [ skip # Skip due to non-deterministic failures on CI, see Trac #16350
+     ], compile_and_run, [''])
 
 # Note [consistent stacks]
 #  Certain optimisations can change the stacks we get out of the
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index 43c0764..6808e7e 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -106,9 +106,13 @@ test('atomicinc', [ c_src, only_ways(['normal','threaded1', 'threaded2']) ], com
 test('atomicxchg', [ c_src, only_ways(['threaded1', 'threaded2']) ],
 compile_and_run, [''])
 
-test('T3424', # it's slow:
-              [ when(fast(), skip), only_ways(['normal','threaded1','ghci']) ],
-              compile_and_run, [''])
+test('T3424',
+     [ # Skip due to non-deterministic timeouts on CI, see Trac #16349
+       when(unregisterised(), skip),
+       # And it's slow in general
+       only_ways(['normal','threaded1','ghci'])
+     ],
+     compile_and_run, [''])
 
 # Test for out-of-range heap size
 test('rtsflags001', [ only_ways(['normal']), exit_code(1), extra_run_opts('+RTS -H0m -RTS') ], compile_and_run, [''])