[commit: ghc] wip/dmd-arity: testsuite: Introduce fragile modifier (4ca271d)

[git at git.haskell.org]

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

On branch  : wip/dmd-arity
Link       : http://ghc.haskell.org/trac/ghc/changeset/4ca271d1880a6f4c5f49869de7f1920a2073adb6/ghc

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

commit 4ca271d1880a6f4c5f49869de7f1920a2073adb6
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.


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

4ca271d1880a6f4c5f49869de7f1920a2073adb6
 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 )