[commit: ghc] wip/T14068: Disable test case for #4030 and #5644 (9e902ca)

[git at git.haskell.org]

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

On branch  : wip/T14068
Link       : http://ghc.haskell.org/trac/ghc/changeset/9e902ca6cb43ba8a2154bfeb2126aa4299c040cc/ghc

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

commit 9e902ca6cb43ba8a2154bfeb2126aa4299c040cc
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Wed Aug 2 10:43:04 2017 -0400

    Disable test case for #4030 and #5644
    
    With loopification, T4030 always goes into an infinite loop. Not nice when
    running the test suite.
    
    Also, with loopification, T5644 no longer runs out of heap, so it does
    not trigger the out-of-heap exception that the test case was testing.


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

9e902ca6cb43ba8a2154bfeb2126aa4299c040cc
 testsuite/tests/concurrent/should_run/all.T | 4 +++-
 testsuite/tests/rts/T5644/ManyQueue.hs      | 0
 testsuite/tests/rts/T5644/all.T             | 4 +++-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T
index 69b8ad7..797804c 100644
--- a/testsuite/tests/concurrent/should_run/all.T
+++ b/testsuite/tests/concurrent/should_run/all.T
@@ -41,7 +41,9 @@ test('T3429', [ extra_run_opts('+RTS -C0.001 -RTS'),
 
 # without -O, goes into an infinite loop
 # GHCi does not detect the infinite loop.  We should really fix this.
-test('T4030', omit_ways('ghci'), compile_and_run, ['-O'])
+# With loopification (#14068), always goes into an infinite loop. Disabling for
+# now.
+# test('T4030', omit_ways('ghci'), compile_and_run, ['-O'])
 
 # each of these runs for about a second
 test('throwto001', [reqlib('random'), extra_run_opts('1000 2000')],
diff --git a/testsuite/tests/rts/T5644/all.T b/testsuite/tests/rts/T5644/all.T
index 7dd120d..1711992 100644
--- a/testsuite/tests/rts/T5644/all.T
+++ b/testsuite/tests/rts/T5644/all.T
@@ -2,7 +2,9 @@ test('T5644', [extra_files(['Conf.hs', 'ManyQueue.hs', 'Util.hs', 'heap-overflow
                
                 only_ways(['optasm','threaded1','threaded2']),
                 extra_run_opts('+RTS -M20m -RTS'),
-                exit_code(251) # RTS exit code for "out of memory"
+                exit_code(251), # RTS exit code for "out of memory"
+		# With loopification, the code does no longer run out of heap space:
+		expect_broken(14068)
               ],
               multimod_compile_and_run,
               ['heap-overflow.hs','-O'])