[commit: ghc] wip/T16193, wip/fix-json-profiling-report-i386: testsuite: Mark print037 as broken when GHC is built with LLVM (626b63b)

[git at git.haskell.org]

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

On branches: wip/T16193,wip/fix-json-profiling-report-i386
Link       : http://ghc.haskell.org/trac/ghc/changeset/626b63b28a91b26b51ad47e56fdd7bcfd61e7327/ghc

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

commit 626b63b28a91b26b51ad47e56fdd7bcfd61e7327
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon Jan 28 19:26:10 2019 -0500

    testsuite: Mark print037 as broken when GHC is built with LLVM
    
    As noted in #16205 this configuration reliably segfaults.


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

626b63b28a91b26b51ad47e56fdd7bcfd61e7327
 testsuite/driver/testlib.py                 | 9 +++++++++
 testsuite/tests/ghci.debugger/scripts/all.T | 5 ++++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index 040e674..dd3b426 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -468,6 +468,15 @@ def have_gdb( ):
 def have_readelf( ):
     return config.have_readelf
 
+def integer_gmp( ):
+    return have_library("integer-gmp")
+
+def integer_simple( ):
+    return have_library("integer-simple")
+
+def llvm_build ( ):
+    return config.ghc_built_by_llvm
+
 # ---
 
 def high_memory_usage(name, opts):
diff --git a/testsuite/tests/ghci.debugger/scripts/all.T b/testsuite/tests/ghci.debugger/scripts/all.T
index 4095cf2..7240594 100644
--- a/testsuite/tests/ghci.debugger/scripts/all.T
+++ b/testsuite/tests/ghci.debugger/scripts/all.T
@@ -45,7 +45,10 @@ test('print033', normal, ghci_script, ['print033.script'])
 test('print034', extra_files(['../GADT.hs', '../Test.hs']), ghci_script, ['print034.script'])
 test('print035', extra_files(['../Unboxed.hs']), ghci_script, ['print035.script'])
 test('print036', expect_broken(9046), ghci_script, ['print036.script'])
-test('print037', normal, ghci_script, ['print037.script'])
+test('print037', when(llvm_build() and integer_gmp()
+                     , expect_broken_for(16205, ['ghci-ext']))
+               , ghci_script
+               , ['print037.script'])
 
 test('break001', extra_files(['../Test2.hs']), ghci_script, ['break001.script'])
 test('break002', extra_files(['../Test2.hs']), ghci_script, ['break002.script'])