[commit: packages/base] master: Run length001 test with +RTS -K8m (fcadae1)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/fcadae17da5b656cb33d493b2f4b16716c60573e/base

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

commit fcadae17da5b656cb33d493b2f4b16716c60573e
Author: Austin Seipp <aseipp at pobox.com>
Date:   Fri Oct 25 05:05:44 2013 -0500

    Run length001 test with +RTS -K8m
    
    Otherwise it uses excessive amounts of stack space (~1GB at peak) when
    compiled without -O.
    
    Signed-off-by: Austin Seipp <aseipp at pobox.com>


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

fcadae17da5b656cb33d493b2f4b16716c60573e
 tests/all.T |   10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/tests/all.T b/tests/all.T
index 37e3c13..55b9e9d 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -54,10 +54,12 @@ test('char002', 	normal, compile_and_run, [''])
 test('cstring001', 	normal, compile_and_run, [''])
 
 test('length001',
-     # This fails without -O, as it relies on a RULE being applied
-     expect_fail_for(['normal', 'threaded1', 'llvm']),
-     compile_and_run,
-     [''])
+     # length001 depends on a RULE being applied, and without -O takes
+     # excessive amounts of stack space. So we specifically set a low
+     # stack limit and mark it as failing under a few conditions.
+     [extra_run_opts('+RTS -K8m -RTS'),
+     expect_fail_for(['normal', 'threaded1', 'llvm'])],
+     compile_and_run, [''])
 
 test('ratio001', 	normal, compile_and_run, [''])