[uim-ja 115] Re: test/test-util.scm -> test/util/test-*.scm

[Kouhei Sutou]

須藤です。

In <[&#x30E1;&#x30FC;&#x30EB;&#x30A2;&#x30C9;&#x30EC;&#x30B9;&#x4FDD;&#x8B77;]>
  "[uim-ja 114] Re: test/test-util.scm -> test/util/test-*.scm" on Sat, 8 Nov 
2008 22:40:24 +0900,
  "Etsushi Kato" 
<[&#x30E1;&#x30FC;&#x30EB;&#x30A2;&#x30C9;&#x30EC;&#x30B9;&#x4FDD;&#x8B77;]> 
wrote:

> > 一気には大変なので、少しずつやろうかと思っているのですが、と
> > りあえず、test/test-util.scmをtest/util/test-*.scmに分割する
> > 変更（の一部）です。作業の途中でも他の部分は動くようにしたま
> > まにしたいので、test/uim-test-utils.scmは変更せずに、一時的に
> > test/uim-test-utils-new.scmというファイルを作ってそちらを変更
> > します。
> 
> 了解です。いろいろ考えてくださってありがとうございます。
> 作業しておきました。

ありがとうございます。

test/util/以下ができたので、引数なしでtest/run-test.scmを起
動したときにtest/util/以下もテスト対象にするパッチです。

Index: test/run-test.scm
===================================================================
--- test/run-test.scm   (リビジョン 5618)
+++ test/run-test.scm   (作業コピー)
@@ -29,6 +29,7 @@
 ;;; ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 ;;;;
 
+(use gauche.version)
 (use gauche.interactive)
 (use file.util)
 (use test.unit)
@@ -47,10 +48,13 @@
 
 (define gaunit-main main)
 (define (main args)
-  (let ((args (if (null? (cdr args))
-                (append args
-                        (if (symbol-bound? 'glob)
-                          (glob (uim-test-build-path "test" "test-*.scm"))
-                          (sys-glob (uim-test-build-path "test" 
"test-*.scm"))))
-                args)))
+  (let ((args
+         (if (null? (cdr args))
+           (append args
+                   (if (version<? (gauche-version) "0.8.3")
+                     (append
+                      (sys-glob (uim-test-build-path "test" "test-*.scm"))
+                      (sys-glob (uim-test-build-path "test" "*" "test-*.scm")))
+                     (glob (uim-test-build-path "test" "**" "test-*.scm"))))
+           args)))
     (gaunit-main args)))

--~--~---------~--~----~------------~-------~--~----~
Google Groups "uim-ja" group
uim-ja@googlegroups.com
http://groups.google.com/group/uim-ja/about
-~----------~----~----~----~------~----~------~--~---