@@ -92,14 +92,16 @@ With Suite.Test("specific part of your application")
9292 .IsEqual A, B, "(optional message, e.g. result should be 12)"
9393 .NotEqual B, C
9494
95- .IsTrue C > B
96- .IsFalse B > C
95+ .IsOk C > B
96+ .NotOk B > C
9797
9898 .IsUndefined ' Checks Nothing, Empty, Missing, or Null
9999 .NotUndefined
100100
101101 .Includes Array( 1 , 2 , 3 ), 2
102+ .NotIncludes Array( 1 , 2 , 3 ), 4
102103 .IsApproximate 1.001 , 1 . 002 , 2
104+ .NotApproximate 1.001 , 1 . 009 , 3
103105
104106 .Pass
105107 .Fail "e.g. should not have gotten here"
@@ -108,8 +110,12 @@ With Suite.Test("specific part of your application")
108110End With
109111
110112With 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 )
113119End With
114120```
115121
@@ -120,8 +126,8 @@ Sub ToBeWithin(Test As TestCase, Value As Variant, Min As Variant, Max As Varian
120126 Dim Message As String
121127 Message = "Expected " & Value & " to be within " & Min & " and " & Max
122128
123- Test.IsTrue Value >= Min, Message
124- Test.IsTrue Value <= Max, Message
129+ Test.IsOk Value >= Min, Message
130+ Test.IsOk Value <= Max, Message
125131End Sub
126132
127133With Suite.Test( "..." )
@@ -136,12 +142,14 @@ __TestCase API__
136142- ` Test.Context ` - ` Dictionary ` holding test context (useful for ` BeforeEach ` /` AfterEach ` )
137143- ` Test.IsEqual(A, B, [Message]) `
138144- ` 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]) `
141147- ` Test.IsUndefined(Value, [Message]) `
142148- ` Test.NotUndefined(Value, [Message]) `
143149- ` Test.Includes(Values, Value, [Message]) ` - Check if value is included in array or ` Collection `
150+ - ` Test.NotIncludes(Values, Value, [Message]) `
144151- ` 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]) `
145153- ` Test.Pass() ` - Explicitly pass the test
146154- ` Test.Fail([Message]) ` - Explicitly fail the test
147155- ` Test.Plan(Count) ` - For tests with loops and branches, it is important to catch if any assertions are skipped or extra
0 commit comments