Date:  Thu, 03 Oct 2002 01:46:47 +0900
From:  あまの <amapyon@....jp>
Subject:  [XP-jp:03788] Re: xUnit が最低限持つべき機能とは？   (was:  ExcelUnit)
To:  extremeprogramming-jp@....jp
Message-Id:  <3D9B22F7.7080003@....jp>
References:  <20021001005857ando@....jp> <20021001004224.17A9A331B8@....jp> <DAV60OeyX6LCFeXumoL00003559@....com>
X-Mail-Count: 03788

あまぴょんと申します。

iamcf2nd@....com wrote:
> 最後に。
> 
> 実は Excel だと、エラー検知が出来ません。TestRunner を動かして、エラーが
> あればそこで止まってしまいます。
> 
> エラー検知の出来ない xUnit って、ありですか？

ありだとは思います。が、ちょっと使いづらそうですね。
LSUnitというマイナーなxUnitを作ったときには

For i = 0 to TestCases.Count
    Call TestCases(i).RunTest
Next

Public Sub RunTest()
    On Error Goto ErrorEntry
    Call Test()
    Exit Sub
ErrorEntry:
    Call Errors.CountUp()
    Resume Next
End Sub

Public Sub Test()
    Call AssertEqualsString(....)
    Call AssertEqualsString(....)
End Sub

のように、On Error Gotoを使って、上がってきたエラーを
キャッチして、続けて処理をするようにしました。
VBAでも同じようなことが出来るような気がします。どうなんでしょう？