Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/318481ea7f1e1374c88a3629da39236c02402013

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

commit 318481ea7f1e1374c88a3629da39236c02402013
Author: Simon Peyton Jones <[email protected]>
Date:   Thu May 26 16:45:48 2011 +0100

    Mark T3064, IndTypesPerf, and T4801 as expected-broken
    pending attention to Trac #5224

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

 .../ghc-regress/indexed-types/should_compile/all.T |    6 ++++--
 tests/ghc-regress/perf/compiler/all.T              |    6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/tests/ghc-regress/indexed-types/should_compile/all.T 
b/tests/ghc-regress/indexed-types/should_compile/all.T
index d467c9c..04ad013 100644
--- a/tests/ghc-regress/indexed-types/should_compile/all.T
+++ b/tests/ghc-regress/indexed-types/should_compile/all.T
@@ -144,8 +144,10 @@ test('CoTest3', normal, compile, [''])
 test('Roman1', normal, compile, [''])
 test('T4160', normal, compile, [''])
 test('IndTypesPerf',
-     extra_clean(['IndTypesPerf.o', 'IndTypesPerf.hi',
-                  'IndTypesPerfMerge.o', 'IndTypesPerfMerge.hi']),
+     [ expect_broken(5224)
+     , extra_clean(['IndTypesPerf.o', 'IndTypesPerf.hi',
+                    'IndTypesPerfMerge.o', 'IndTypesPerfMerge.hi'])
+     ] ,
      run_command,
      ['$MAKE -s --no-print-directory IndTypesPerf'])
 
diff --git a/tests/ghc-regress/perf/compiler/all.T 
b/tests/ghc-regress/perf/compiler/all.T
index 1388463..2d3b010 100644
--- a/tests/ghc-regress/perf/compiler/all.T
+++ b/tests/ghc-regress/perf/compiler/all.T
@@ -73,7 +73,8 @@ test('T3294',
      [''])
 
 test('T4801',
-     [# expected value: 11 (x86/OSX):
+     [expect_broken(5224),
+      # expected value: 11 (x86/OSX):
       if_wordsize(32,
           compiler_stats_num_field('peak_megabytes_allocated', 35, 45)),
       # expected value: 66 (amd64/Linux):
@@ -102,7 +103,8 @@ test('T4801',
      [''])
 
 test('T3064',
-     [# expected value: 9 (x86/Linux 30-03-2011):
+     [expect_broken(5224),
+      # expected value: 9 (x86/Linux 30-03-2011):
       if_wordsize(32,
           compiler_stats_num_field('peak_megabytes_allocated', 8, 11)),
       # expected value: 18 (amd64/Linux):



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to