@@ -92,14 +92,16 @@ With Suite.Test("specific part of your application")
92
92
.IsEqual A, B, "(optional message, e.g. result should be 12)"
93
93
.NotEqual B, C
94
94
95
- .IsTrue C > B
96
- .IsFalse B > C
95
+ .IsOk C > B
96
+ .NotOk B > C
97
97
98
98
.IsUndefined ' Checks Nothing, Empty, Missing, or Null
99
99
.NotUndefined
100
100
101
101
.Includes Array( 1 , 2 , 3 ), 2
102
+ .NotIncludes Array( 1 , 2 , 3 ), 4
102
103
.IsApproximate 1.001 , 1 . 002 , 2
104
+ .NotApproximate 1.001 , 1 . 009 , 3
103
105
104
106
.Pass
105
107
.Fail "e.g. should not have gotten here"
@@ -108,8 +110,12 @@ With Suite.Test("specific part of your application")
108
110
End With
109
111
110
112
With Suite.Test( "complex things" )
111
- .IsEqual ThisWorkbook.Sheets( "Hidden" ).Visible, XlSheetVisibility.xlSheetVisible
112
- .IsEqual ThisWorkbook.Sheets( "Main" ).Cells( 1 , 1 ).Interior.Color, RGB( 255 , 0 , 0 )
113
+ .IsEqual _
114
+ ThisWorkbook.Sheets( "Hidden" ).Visible, _
115
+ XlSheetVisibility.xlSheetVisible
116
+ .IsEqual _
117
+ ThisWorkbook.Sheets( "Main" ).Cells( 1 , 1 ).Interior.Color, _
118
+ RGB( 255 , 0 , 0 )
113
119
End With
114
120
```
115
121
@@ -120,8 +126,8 @@ Sub ToBeWithin(Test As TestCase, Value As Variant, Min As Variant, Max As Varian
120
126
Dim Message As String
121
127
Message = "Expected " & Value & " to be within " & Min & " and " & Max
122
128
123
- Test.IsTrue Value >= Min, Message
124
- Test.IsTrue Value <= Max, Message
129
+ Test.IsOk Value >= Min, Message
130
+ Test.IsOk Value <= Max, Message
125
131
End Sub
126
132
127
133
With Suite.Test( "..." )
@@ -136,12 +142,14 @@ __TestCase API__
136
142
- ` Test.Context ` - ` Dictionary ` holding test context (useful for ` BeforeEach ` /` AfterEach ` )
137
143
- ` Test.IsEqual(A, B, [Message]) `
138
144
- ` Test.NotEqual(A, B, [Message]) `
139
- - ` Test.IsTrue (Value, [Message]) `
140
- - ` Test.IsFalse (Value, [Message]) `
145
+ - ` Test.IsOk (Value, [Message]) `
146
+ - ` Test.NotOk (Value, [Message]) `
141
147
- ` Test.IsUndefined(Value, [Message]) `
142
148
- ` Test.NotUndefined(Value, [Message]) `
143
149
- ` Test.Includes(Values, Value, [Message]) ` - Check if value is included in array or ` Collection `
150
+ - ` Test.NotIncludes(Values, Value, [Message]) `
144
151
- ` Test.IsApproximate(A, B, SignificantFigures, [Message]) ` - Check if two values are close to each other (useful for ` Double ` values)
152
+ - ` Test.NotApproximate(A, B, SignificantFigures, [Message]) `
145
153
- ` Test.Pass() ` - Explicitly pass the test
146
154
- ` Test.Fail([Message]) ` - Explicitly fail the test
147
155
- ` Test.Plan(Count) ` - For tests with loops and branches, it is important to catch if any assertions are skipped or extra
0 commit comments