From b20190f772ec244177bde3a4947889bacd55ab31 Mon Sep 17 00:00:00 2001
From: Klaus Kaempf <kkaempf@suse.de>
Date: Wed, 1 Feb 2006 17:01:43 +0000
Subject: [PATCH] add toplevel 'ignore' possibility

---
 testsuite/solver/lib/solver_init.exp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/testsuite/solver/lib/solver_init.exp b/testsuite/solver/lib/solver_init.exp
index 8949194..9f69c63 100644
--- a/testsuite/solver/lib/solver_init.exp
+++ b/testsuite/solver/lib/solver_init.exp
@@ -122,8 +122,16 @@ proc multi-run { src } {
 
   puts "Running $basedir_name..."
 
+  set dirignores [list ]
+  set dirignorename "$basedir_name/ignore"
+  if { [ file exists $dirignorename] != 0 } {
+    set fp [open $dirignorename r]
+    set dirignores [read $fp]
+    close $fp
+  }
+
   #							scan through all subdirs below data.<name>
-  set dircases [glob $basedir_name/* ]
+  set dircases [glob $basedir_name/*-tests $basedir_name/*-exercises ]
 
   foreach dircase $dircases { 
       set testPath [split $dircase "/"]
@@ -136,6 +144,10 @@ proc multi-run { src } {
 	  continue
       }
 
+      if { [lsearch $dirignores $testBase_name] != -1} {
+	continue
+      }
+
       set xfails [list ]
       set xfailname "$dircase/xfail"
       if { [ file exists $xfailname] != 0 } {
-- 
2.7.4