[uim-commit] r2003 - trunk/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-05 06:50:27 -0800 (Sat, 05 Nov 2005)
New Revision: 2003

Modified:
   trunk/test/run-test.scm
Log:
* test/run-test.scm
  - (main): Exclude test-example.scm from test


Modified: trunk/test/run-test.scm
===================================================================
--- trunk/test/run-test.scm	2005-11-05 14:47:35 UTC (rev 2002)
+++ trunk/test/run-test.scm	2005-11-05 14:50:27 UTC (rev 2003)
@@ -44,7 +44,9 @@
                 (load (string-join (list dir test-script) "/")))
               (directory-list dir
                               :filter (lambda (x)
-                                        (rxmatch #/^test-.+\.scm$/ x))))
+                                        (and (rxmatch #/^test-.+\.scm$/ x)
+					     (not (string=? "test-example.scm"
+							    x))))))
     (if (symbol-bound? '_main)
         (_main `(,(car args) "-vp" ,@(cdr args)))
         (run-all-test))))