[lunit] lunit-test-case#lunit-test-case-setup

[Koichiro Ohba]

大場です。

FLIM に付属している lunit を使用して test-case を記述しています。lunit
では JUnit 同様に lunit-test-case#lunit-test-case-setup,
lunit-test-case#lunit-test-case-teardown といった method を override
して test の前処理と後処理を実行できるようになっています。

しかし、(lunit-make-test-suite-from-class) では test-case class に記述
したすべての method が、呼ばれるようになっており -setup,-terdown も、
ひとつの test method として実行されてしまいます。

ここは JUnit 同様に test の prefix から始まる method のみを呼び出すの
がよいと思いましたが、後方互換性が崩れそうなので、かなり安直な方法で
-setup,-terdown を test method から除外するように対処してみました。一応
期待するような動作にはなりましたが、本当はどうするのがよいのでしょうか?


diff -c -r1.1.4.2 lunit.el
*** lunit.el    25 Apr 2001 04:15:19 -0000      1.1.4.2
--- lunit.el    28 Jan 2003 13:27:15 -0000
***************
*** 265,270 ****
--- 265,272 ----
      (mapatoms
       (lambda (symbol)
         (if (and (fboundp symbol)
+               (null (equal (symbol-name symbol) "lunit-test-case-setup"))
+               (null (equal (symbol-name symbol) "lunit-test-case-teardown"))
                (null (get symbol 'luna-method-qualifier)))
           (push (lunit-make-test-case class symbol) tests)))
       (luna-class-obarray (luna-find-class class)))


-- 
koichiro <koichiro ＠ meadowy.org>