testsuite: Mark print037 as broken when GHC is built with LLVM
authorBen Gamari <ben@smart-cactus.org>
Tue, 29 Jan 2019 00:26:10 +0000 (19:26 -0500)
committerMarge Bot <ben+marge-bot@smart-cactus.org>
Mon, 4 Feb 2019 11:30:47 +0000 (06:30 -0500)
As noted in #16205 this configuration reliably segfaults.

testsuite/driver/testlib.py
testsuite/tests/ghci.debugger/scripts/all.T

index 040e674..dd3b426 100644 (file)
@@ -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):
index 4095cf2..7240594 100644 (file)
@@ -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'])