Function TriangleArea(base As Double, height As Double) As Double
TriangleArea = 0.5 * base * height
End Function
STEP
Rubberduck ➡ Unit Tests ➡ Test Explorerを開く
STEP
Rubberduck ➡ Unit Tests ➡ Test Module でテスト用のモジュールを追加
STEP
コードの説明
追加されるコードに説明を追記しました。
'@TestModule
'@Folder("Tests")
Option Explicit ' 変数を明示的に宣言することを要求します
Option Private Module ' このモジュールをプライベートにします（他のモジュールからはアクセスできません）
Private Assert As Object ' アサートオブジェクトを宣言
Private Fakes As Object ' フェイクオブジェクトを宣言
'@ModuleInitialize
Private Sub ModuleInitialize()
' このメソッドはモジュールごとに一度だけ実行されます。
' Rubberduckライブラリのアサートクラスとフェイクプロバイダーを初期化します。
Set Assert = CreateObject("Rubberduck.AssertClass")
Set Fakes = CreateObject("Rubberduck.FakesProvider")
End Sub
'@ModuleCleanup
Private Sub ModuleCleanup()
' このメソッドはモジュールごとに一度だけ実行されます。
' 使用したオブジェクトを解放します。
Set Assert = Nothing
Set Fakes = Nothing
End Sub
'@TestInitialize
Private Sub TestInitialize()
' このメソッドはモジュール内の各テストの前に実行されます。
' ここに初期化コードを記述できます。
End Sub
'@TestCleanup
Private Sub TestCleanup()
' このメソッドはモジュール内の各テストの後に実行されます。
' ここでリソースの解放やクリーンアップを行います。
End Sub
'@TestMethod("Uncategorized")
Private Sub TestMethod1() ' TODO: テスト名をリネームする
On Error GoTo TestFail ' エラーが発生した場合はTestFailラベルにジャンプします。
' Arrange:
' テストの前準備をここに記述します。
' Act:
' テスト対象のコードをここに記述します。
' Assert:
' 結果を検証するためのアサーションをここに記述します。
Assert.Succeed ' テストが成功した場合
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
STEP
テストコードを作成する
'@TestModule
'@Folder("Tests")
Option Explicit ' 変数を明示的に宣言することを要求します
Option Private Module ' このモジュールをプライベートにします（他のモジュールからはアクセスできません）
Private Assert As Object ' アサートオブジェクトを宣言
Private Fakes As Object ' フェイクオブジェクトを宣言
'@ModuleInitialize
Private Sub ModuleInitialize()
' このメソッドはモジュールごとに一度だけ実行されます。
' Rubberduckライブラリのアサートクラスとフェイクプロバイダーを初期化します。
Set Assert = CreateObject("Rubberduck.AssertClass")
Set Fakes = CreateObject("Rubberduck.FakesProvider")
End Sub
'@ModuleCleanup
Private Sub ModuleCleanup()
' このメソッドはモジュールごとに一度だけ実行されます。
' 使用したオブジェクトを解放します。
Set Assert = Nothing
Set Fakes = Nothing
End Sub
'@TestInitialize
Private Sub TestInitialize()
' このメソッドはモジュール内の各テストの前に実行されます。
' ここに初期化コードを記述できます。
End Sub
'@TestCleanup
Private Sub TestCleanup()
' このメソッドはモジュール内の各テストの後に実行されます。
' ここでリソースの解放やクリーンアップを行います。
End Sub
' テストケース1: 基本的なケース
'@TestMethod("Basic Case")
Private Sub TestTriangleAreaBasicCase()
Dim result As Double
Dim base As Double
Dim height As Double
base = 10
height = 5
result = TriangleArea(base, height)
Assert.AreEqual 25#, result, "面積が正しく計算されていません。" ' 25をDouble型として指定
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
' テストケース2: 高さが0の場合
'@TestMethod("Height Zero Case")
Private Sub TestTriangleAreaHeightZero()
Dim result As Double
Dim base As Double
Dim height As Double
base = 10
height = 0
result = TriangleArea(base, height)
Assert.AreEqual 0#, result, "高さが0のとき、面積は0でなければなりません。"
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
' テストケース3: 負の底辺
'@TestMethod("Negative Base Case")
Private Sub TestTriangleAreaNegativeBase()
Dim result As Double
Dim base As Double
Dim height As Double
base = -10
height = 5
result = TriangleArea(base, height)
Assert.AreEqual -25#, result, "負の底辺の場合、面積は負の値でなければなりません。"
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
' テストケース4: 負の高さ
'@TestMethod("Negative Height Case")
Private Sub TestTriangleAreaNegativeHeight()
Dim result As Double
Dim base As Double
Dim height As Double
base = 10
height = -5
result = TriangleArea(base, height)
Assert.AreEqual -25#, result, "負の高さの場合、面積は負の値でなければなりません。"
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
' テストケース5: 両方が0の場合
'@TestMethod("Both Zero Case")
Private Sub TestTriangleAreaBothZero()
Dim result As Double
Dim base As Double
Dim height As Double
base = 0
height = 0
result = TriangleArea(base, height)
Assert.AreEqual 0#, result, "両方が0のとき、面積は0でなければなりません。"
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
STEP
Test Explorerをリフレッシュする
STEP
作成したテストが表示される
STEP
Run ➡ AllTest ですべてのユニットテストを実施できる
STEP
ユニットテストの結果が表示される
STEP
失敗した場合の表示
テストの期待値を24にしてみます。関数の結果は、25が返ってくるのでテストが失敗します。
' テストケース1: 基本的なケース
'@TestMethod("Basic Case")
Private Sub TestTriangleAreaBasicCase()
Dim result As Double
Dim base As Double
Dim height As Double
base = 10
height = 5
result = TriangleArea(base, height)
Assert.AreEqual 24#, result, "面積が正しく計算されていません。" ' 24をDouble型として指定
TestExit: ' テストの正常終了時の処理
'@Ignore UnhandledOnErrorResumeNext
On Error Resume Next ' 以降のエラーを無視する設定
Exit Sub ' 正常に終了します
TestFail: ' エラーが発生した場合の処理
' エラーメッセージをアサートに渡して失敗を記録します。
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
Resume TestExit ' 正常終了処理に戻ります
End Sub
Option Explicit
' Studentクラス
Private pName As String
Private pAge As Integer
Private pGrade As Double
' Nameプロパティ
Public Property Get Name() As String
Name = pName
End Property
Public Property Let Name(ByVal value As String)
pName = value
End Property
' Ageプロパティ
Public Property Get Age() As Integer
Age = pAge
End Property
Public Property Let Age(ByVal value As Integer)
If value < 0 Then
Err.Raise vbObjectError + 1, "Student", "年齢は0以上でなければなりません。"
End If
pAge = value
End Property
' Gradeプロパティ
Public Property Get Grade() As Double
Grade = pGrade
End Property
Public Property Let Grade(ByVal value As Double)
If value < 0 Or value > 100 Then
Err.Raise vbObjectError + 2, "Student", "成績は0から100の範囲でなければなりません。"
End If
pGrade = value
End Property
' 学生の情報を表示するメソッド
Public Function DisplayInfo() As String
DisplayInfo = "名前: " & pName & vbCrLf & _
"年齢: " & pAge & vbCrLf & _
"成績: " & pGrade
End Function
Option Explicit
Implements IStudent
Private Property Get IStudent_Name() As String
Err.Raise 5 'TODO implement interface member
End Property
Private Property Let IStudent_Name(ByVal value As String)
Err.Raise 5 'TODO implement interface member
End Property
Private Property Get IStudent_Age() As Integer
Err.Raise 5 'TODO implement interface member
End Property
Private Property Let IStudent_Age(ByVal value As Integer)
Err.Raise 5 'TODO implement interface member
End Property
Private Property Get IStudent_Grade() As Double
Err.Raise 5 'TODO implement interface member
End Property
Private Property Let IStudent_Grade(ByVal value As Double)
Err.Raise 5 'TODO implement interface member
End Property
Private Function IStudent_DisplayInfo() As String
Err.Raise 5 'TODO implement interface member
End Function
稲垣
初心者
コメント