add toplevel 'ignore' possibility

diff --git a/testsuite/solver/lib/solver_init.exp b/testsuite/solver/lib/solver_init.exp
index 8949194..9f69c63 100644 (file)
--- 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 } {