[commit: ghc] wip/heapprof001-fragile: testsuite: Introduce fragile modifier (15f27ff)

[git at git.haskell.org]

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

On branch  : wip/heapprof001-fragile
Link       : http://ghc.haskell.org/trac/ghc/changeset/15f27ff75bd6786265f89a2d9b861530f8fd3e0f/ghc

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

commit 15f27ff75bd6786265f89a2d9b861530f8fd3e0f
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue Feb 26 10:13:44 2019 -0500

    testsuite: Introduce fragile modifier
    
    Now since we have been a bit more stringent in testsuite cleanliness we
    have been marking a lot of tests as fragile using the `skip` modifier.
    However, this unfortunately means that we lose the association with the
    ticket number documenting the fragility.
    
    Here we introduce `fragile` and `fragile_for` to retain this
    information.


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

15f27ff75bd6786265f89a2d9b861530f8fd3e0f
 testsuite/driver/testlib.py | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index edd43fb..309a910 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -247,6 +247,30 @@ def _expect_pass(way):
 
 # -----
 
+def fragile( bug ):
+    """
+    Indicates that the test should be skipped due to fragility documented in
+    the given ticket.
+    """
+    def helper( name, opts, bug=bug ):
+        record_broken(name, opts, bug)
+        opts.skip = True
+
+    return helper
+
+def fragile_for( name, opts, bug, ways ):
+    """
+    Indicates that the test should be skipped due to fragility in the given
+    test ways as documented in the given ticket.
+    """
+    def helper( name, opts, bug=bug, ways=ways ):
+        record_broken(name, opts, bug)
+        opts.omit_ways = ways
+
+    return helper
+
+# -----
+
 def omit_ways( ways ):
     return lambda name, opts, w=ways: _omit_ways( name, opts, w )