[commit: testsuite] master: Handle duplicates in the brokens list (3a8b71f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3a8b71f63314a91a697a7659d7aa899f1f081736

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

commit 3a8b71f63314a91a697a7659d7aa899f1f081736
Author: Ian Lynagh <ian at well-typed.com>
Date:   Mon Feb 11 13:55:40 2013 +0000

    Handle duplicates in the brokens list

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

 driver/testlib.py |   12 ++++++++----
 1 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/driver/testlib.py b/driver/testlib.py
index 97a292d..b9104fc 100644
--- a/driver/testlib.py
+++ b/driver/testlib.py
@@ -151,18 +151,22 @@ def expect_broken( bug ):
     return lambda name, opts, b=bug: _expect_broken (name, opts, b )
 
 def _expect_broken( name, opts, bug ):
-    global brokens
-    brokens.append((bug, name))
+    record_broken(name, bug)
     opts.expect = 'fail';
 
 def expect_broken_for( bug, ways ):
     return lambda name, opts, b=bug, w=ways: _expect_broken_for( name, opts, b, w )
 
 def _expect_broken_for( name, opts, bug, ways ):
-    global brokens
-    brokens.append((bug, name))
+    record_broken(name, bug)
     opts.expect_fail_for = ways
 
+def record_broken(name, bug):
+    global brokens
+    me = (bug, name)
+    if not me in brokens:
+        brokens.append(me)
+
 # -----
 
 def omit_ways( ways ):