=======================================================================
  BVUnit2`[gA

    $Date: 2004-06-26 17:40:20 +0900 (Sat, 26 Jun 2004) $
      MATSUMOTO Soutaro <soutaro@score.is.tsukuba.ac.jp>
=======================================================================

TvViI

쐬̂́CVector.clsVectorUtil.BasD
ꂼCDoublẽxN^ƁCxNgɊւ鑀`W[D

VectoŕC
  Public Property Get|Let Val(Byval index As Long) As Double
  Public Property Get Dimention() As Long
  Friend Sub Init(Byval dim As Long)
JD

VectorUtiĺC
  Public Function CreateVector(ParamArray values() As Variant) As Vector
  Public Function Normalize(Byval vec As Vector) As Vector
  Public Function Add(Byval vec1 As Vector, Byval vec2 As Vector) As Vector
  Public Sub Normalize_(Byval vec As Vector)
  Public Sub Add_(Byval dest As Vector, Byval operand As Vector)
JDNormalize_Add_́CjIȐKƉZD

̃NX́CWExe痘p邱ƂOD


Step1.eXgpvWFNg쐬

eXgpvWFNgƂāCTestVector쐬܂DŁCTestVector
WExevWFNgɂĂD

܂CTestVector̃vpeBݒ肵܂D

EuSʁX^[gAbv̐ݒvuSub Mainv

ɐݒ肵ĂD

ɁCeXgvWFNgɕKvȃt@Cǉ܂D

EWW[ǉ(Module1.bas)
ETEST_Vector.clsCTEST_VectorUtil.cls

ꂼǉ܂DModule1.basɂSub Main`ĂĂD

ɁCړIƂȂt@C

EVector.cls, VectorUtil.basǉ

ǉ܂D

Sub Mainɂ́Cȉ̂悤ɋLqĂD

----
Sub Main()
    BVUnit2.TestInGUI True, BVUnit2.CreateSuite("VectorEVectorUtil̃eXg", _
                                                New TEST_Vector, _
                                                New TEST_VectorUtil)
End Sub
----

̃R[h́C

ETestInGUIR[
EɃeXgsɁC[U[̓͂҂(True)
ETestSuite쐬(CreateSuite)
ETestSuiteɂ́CTEST_VectorTEST_VectorUtilo^

ƂӖłD

eXg̃NXCTEST_VectorTEST_VectorUtiĺCBVUnit2.ITest̃C^t
F[XKv̂ŁCꂼ

----
Implements BVUnit2.ITest
----

ƋLq܂D܂CITest̃oSetupTeardownCƂ肠`Ă
ĂD(`ȂƃeXgvWFNgRpCł܂)

----
Private Sub ITest_Setup(ByVal ast_ As BVUnit2.IAssert)

End Sub

Private Sub ITest_Teardown()

End Sub
----

܂łŁCeXgvWFNgRpCł͂ł̂ŁCxs
ĂDGUĨeXgʂ\͂łD

ɁCeXgNXɂ܂ȂLq܂D

Setupœnast_:BVUnit2.IAssertCCX^XɕێĂKv
̂ŁCKX

----
Private ast As IAssert
----

ȂǂƂāCoϐ錾C

----
Private Sub ITest_Setup(ByVal ast_ As BVUnit2.IAssert)
    Set ast = ast_
End Sub
----

ȂǂƂāCast_܂ĂĂD

ȏŁCeXgR[hLq̑O̍Ƃ͏IłDStep2ɐi݁CeXgR[h
KKāCeXg܂傤D


Step2.eXgR[hLq


Step3.[X


