testsuite: Mark broken tests on powerpc64le

Mark all failing tests that have a ticket for powerpc64 as broken. Most
of these failures are due to the lack of linker support in the runtime
system.

Test Plan: validate on powerpc and AIX

Reviewers: erikd, bgamari, simonmar, hvr, austin

Reviewed By: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2289

GHC Trac Issues: #11261, #11259, #11260, #11323

11 files changed, 31 insertions, 18 deletions

diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 9402b7d73a..57ae5eb492 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -27,11 +27,13 @@ test('T9303', normal, compile, ['-O2'])
 test('T9329', [cmm_src], compile, [''])
 
 test('debug', [ extra_clean(['debug.cmm']), 
-                when(arch('powerpc64'), expect_broken(11261))],
+                when((arch('powerpc64') or arch('powerpc64le')), 
+                     expect_broken(11261))],
      run_command,
      ['$MAKE -s --no-print-directory debug'])
 test('T9964', normal, compile, ['-O'])
 test('T10518', [cmm_src], compile, [''])
-test('T10667', [ when(arch('powerpc64'), expect_broken(11261)) ],
+test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')), 
+                      expect_broken(11261))],
      compile, ['-g'])
-test('T12115', normal, compile, [''])
\ No newline at end of file
+test('T12115', normal, compile, [''])
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 761ad621d4..1adf482956 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -326,7 +326,7 @@ test('dynHelloWorld',
      [''])
 
 test('T5313',
-     [ when(arch('powerpc64'), expect_broken(11259)),
+     [ when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11259)),
        extra_run_opts('"' + config.libdir + '"')],
      compile_and_run,
      ['-package ghc'])
diff --git a/testsuite/tests/driver/recomp011/all.T b/testsuite/tests/driver/recomp011/all.T
index 9d568660a4..e5a4287147 100644
--- a/testsuite/tests/driver/recomp011/all.T
+++ b/testsuite/tests/driver/recomp011/all.T
@@ -1,7 +1,7 @@
 # Test for #3589, recompiling when #included files change
 
 test('recomp011',
-     [ when(arch('powerpc64'), expect_broken(11260)),
+     [ when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11260)),
        clean_cmd('$MAKE -s clean') ],
      run_command,
      ['$MAKE -s --no-print-directory recomp011'])
diff --git a/testsuite/tests/driver/recomp015/all.T b/testsuite/tests/driver/recomp015/all.T
index 4e1512a8ae..fe29078b7c 100644
--- a/testsuite/tests/driver/recomp015/all.T
+++ b/testsuite/tests/driver/recomp015/all.T
@@ -5,7 +5,7 @@ test('recomp015',
        # See ticket:11022#comment:7
        unless(opsys('linux') or opsys('solaris2') or opsys('openbsd'), skip),
        when(arch('arm'), skip),
-       when(arch('powerpc64'), expect_broken(11323))],
+       when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11323))],
      run_command,
      ['$MAKE -s --no-print-directory recomp015'])
 
diff --git a/testsuite/tests/ghc-api/T10052/all.T b/testsuite/tests/ghc-api/T10052/all.T
index 04f4b16645..e76eae0705 100644
--- a/testsuite/tests/ghc-api/T10052/all.T
+++ b/testsuite/tests/ghc-api/T10052/all.T
@@ -1,2 +1,3 @@
-test('T10052', [when(arch('powerpc64'), expect_broken(11259)), req_interp],
+test('T10052', [when(arch('powerpc64') or arch('powerpc64le'),
+                expect_broken(11259)), req_interp],
      run_command, ['$MAKE -s --no-print-directory T10052'])
diff --git a/testsuite/tests/ghc-api/all.T b/testsuite/tests/ghc-api/all.T
index 3859d538c5..12c64ebf80 100644
--- a/testsuite/tests/ghc-api/all.T
+++ b/testsuite/tests/ghc-api/all.T
@@ -2,17 +2,20 @@ test('ghcApi', normal, compile_and_run, ['-package ghc'])
 test('T6145', normal,
               run_command,
               ['$MAKE -s --no-print-directory T6145'])
-test('T8639_api', when(arch('powerpc64'), expect_broken(11259)),
+test('T8639_api', when(arch('powerpc64') or arch('powerpc64le'),
+                       expect_broken(11259)),
               run_command,
               ['$MAKE -s --no-print-directory T8639_api'])
-test('T8628', when(arch('powerpc64'), expect_broken(11259)),
+test('T8628', when(arch('powerpc64') or arch('powerpc64le'),
+                   expect_broken(11259)),
               run_command,
               ['$MAKE -s --no-print-directory T8628'])
 test('T9595', extra_run_opts('"' + config.libdir + '"'),
               compile_and_run,
               ['-package ghc'])
 test('T10508_api', [ extra_run_opts('"' + config.libdir + '"'),
-                     when(arch('powerpc64'), expect_broken(11259))],
+                     when(arch('powerpc64') or arch('powerpc64le'),
+                          expect_broken(11259))],
                    compile_and_run,
                    ['-package ghc'])
 test('T10942', extra_run_opts('"' + config.libdir + '"'),
diff --git a/testsuite/tests/ghc-api/dynCompileExpr/all.T b/testsuite/tests/ghc-api/dynCompileExpr/all.T
index cefbe691f1..29c7ac695e 100644
--- a/testsuite/tests/ghc-api/dynCompileExpr/all.T
+++ b/testsuite/tests/ghc-api/dynCompileExpr/all.T
@@ -1,6 +1,6 @@
 test('dynCompileExpr',
      [ extra_run_opts('"' + config.libdir + '"'),
        when(opsys('mingw32'), expect_broken_for(5987, ['dyn'])),
-       when(arch('powerpc64'), expect_broken(11259)),
+       when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11259)),
        omit_ways(prof_ways) ], # cannot run interpreted code with -prof
      compile_and_run, ['-package ghc'])
diff --git a/testsuite/tests/ghci/linking/all.T b/testsuite/tests/ghci/linking/all.T
index b542c16415..699802fe4b 100644
--- a/testsuite/tests/ghci/linking/all.T
+++ b/testsuite/tests/ghci/linking/all.T
@@ -20,7 +20,7 @@ test('ghcilink003',
 
 test('ghcilink004',
      [unless(doing_ghci, skip),
-      when(arch('powerpc64'), expect_broken(11259)),
+      when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11259)),
       extra_clean(['dir004/local.package.conf/*', 'dir004/*', 'dir004'])
      ],
      run_command,
diff --git a/testsuite/tests/ghci/prog001/prog001.T b/testsuite/tests/ghci/prog001/prog001.T
index 7c8e43068c..30b228c55f 100644
--- a/testsuite/tests/ghci/prog001/prog001.T
+++ b/testsuite/tests/ghci/prog001/prog001.T
@@ -1,6 +1,7 @@
 test('prog001',
      [extra_clean(['C.hs', 'D.hs', 'D.hi', 'D.o']),
       cmd_prefix('ghciWayFlags=' + config.ghci_way_flags),
-      when(arch('powerpc64'), expect_broken_for(11259,['ghci-ext'])),
+      when(arch('powerpc64') or arch('powerpc64le'),
+           expect_broken_for(11259,['ghci-ext'])),
       unless(opsys('mingw32'),extra_ways(['ghci-ext']))],
      ghci_script, ['prog001.script'])
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 680bc8d4ff..ace7e62174 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -4,12 +4,14 @@ test('ghci001', combined_output, ghci_script, ['ghci001.script'])
 test('ghci002', combined_output, ghci_script, ['ghci002.script'])
 test('ghci003', combined_output, ghci_script, ['ghci003.script'])
 test('ghci004', [ combined_output,
-		  when(arch('powerpc64'), expect_broken_for(11259,['ghci-ext'])),
+		  when(arch('powerpc64') or arch('powerpc64le'),
+                       expect_broken_for(11259,['ghci-ext'])),
                   unless(opsys('mingw32'),extra_ways(['ghci-ext'])) ],
                 ghci_script, ['ghci004.script'])
 test('ghci005', combined_output, ghci_script, ['ghci005.script'])
 test('ghci006', [ combined_output,
-                  when(arch('powerpc64'), expect_broken_for(11259,['ghci-ext'])),
+                  when(arch('powerpc64') or arch('powerpc64le'),
+                       expect_broken_for(11259,['ghci-ext'])),
                   unless(opsys('mingw32'),extra_ways(['ghci-ext'])) ],
                 ghci_script, ['ghci006.script'])
 test('ghci007', combined_output, ghci_script, ['ghci007.script'])
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T
index d462e39c72..94328466d2 100644
--- a/testsuite/tests/rts/all.T
+++ b/testsuite/tests/rts/all.T
@@ -171,8 +171,12 @@ def checkDynAsm(actual_file, normaliser):
 # These should have extra_clean() arguments, but I need
 # to somehow extract out the name of DLLs to do that
 
-test('T5435_v_asm', when(arch('powerpc64'), expect_broken(11259)), run_command, ['$MAKE -s --no-print-directory T5435_v_asm'])
-test('T5435_v_gcc', when(arch('powerpc64'), expect_broken(11259)), run_command, ['$MAKE -s --no-print-directory T5435_v_gcc'])
+test('T5435_v_asm', when(arch('powerpc64') or arch('powerpc64le'),
+     expect_broken(11259)), 
+     run_command, ['$MAKE -s --no-print-directory T5435_v_asm'])
+test('T5435_v_gcc', when(arch('powerpc64') or arch('powerpc64le'),
+     expect_broken(11259)),
+     run_command, ['$MAKE -s --no-print-directory T5435_v_gcc'])
 test('T5435_dyn_asm', check_stdout(checkDynAsm), run_command, ['$MAKE -s --no-print-directory T5435_dyn_asm'])
 test('T5435_dyn_gcc', normal , run_command, ['$MAKE -s --no-print-directory T5435_dyn_gcc'])
 
@@ -229,7 +233,7 @@ test('T7919',
 test('T8035', normal, compile_and_run, [''])
 
 test('linker_unload',
-     [ when(arch('powerpc64'), expect_broken(11259)),
+     [ when(arch('powerpc64') or arch('powerpc64le'), expect_broken(11259)),
        extra_clean(['Test.o','Test.hi', 'linker_unload']) ],
      run_command,
      ['$MAKE -s --no-print-directory linker_unload'])