From: Klaus Kaempf <kkaempf@suse.de>
Date: Wed, 1 Feb 2006 17:01:43 +0000 (+0000)
Subject: add toplevel 'ignore' possibility
X-Git-Tag: BASE-SuSE-SLE-10-SP2-Branch~2788
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b20190f772ec244177bde3a4947889bacd55ab31;p=platform%2Fupstream%2Flibzypp.git

add toplevel 'ignore' possibility
---

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 } {