3030 assert_match /1 ,
3131 assert_comparison /1 ,
3232 assert_map_comprehension /1 ,
33- assert_call_with_bindings /1 ,
34- assert_greater_than /1 ,
35- assert_less_than /1 ,
36- assert_greater_than_or_equal /1 ,
37- assert_less_than_or_equal /1 ,
38- assert_in_range /1 ,
39- assert_equal_with_delta /1
33+ assert_call_with_bindings /1
4034]).
4135
4236all () ->
@@ -46,13 +40,7 @@ all() ->
4640 assert_match ,
4741 assert_comparison ,
4842 assert_map_comprehension ,
49- assert_call_with_bindings ,
50- assert_less_than ,
51- assert_less_than_or_equal ,
52- assert_greater_than ,
53- assert_greater_than_or_equal ,
54- assert_in_range ,
55- assert_equal_with_delta
43+ assert_call_with_bindings
5644 ].
5745
5846% %--------------------------------------------------------------------
@@ -99,137 +87,3 @@ actual(X) -> X.
9987
10088actual_list () -> [1 , 2 , 3 , 4 , 5 ].
10189expected_list () -> [1 , 5 , 3 , 2 , 4 ].
102-
103- % %--------------------------------------------------------------------
104- % % Comparison Assertion Tests
105- % %
106- % % Should be able to compare:
107- % % - Timestamps (large integers)
108- % % - Counts (small non-negative integers)
109- % % - Percentages
110- % % - Floats (for delta comparisons)
111- % % - Negative numbers (for some range checks)
112- % %--------------------------------------------------------------------
113-
114- assert_less_than (_Config ) ->
115- % % Basic integer comparisons
116- ok = ? assertLessThan (5 , 10 ),
117- ok = ? assertLessThan (0 , 100 ),
118- % % Counts (eg: queue sizes, error counts)
119- QueueSize = 50 ,
120- MaxQueue = 100 ,
121- ok = ? assertLessThan (QueueSize , MaxQueue ),
122- % % Negative numbers
123- ok = ? assertLessThan (- 10 , - 5 ),
124- % % Floats
125- ok = ? assertLessThan (1.0 , 1.5 ),
126- ok = ? assertLessThan (0.0 , 0.001 ),
127- % % Failure cases
128- ? assertException (error , {assert , _ }, ? assertLessThan (10 , 5 )),
129- ? assertException (error , {assert , _ }, ? assertLessThan (10 , 10 )),
130- % % With comment
131- ok = ? assertLessThan (5 , 10 , " should be less" ).
132-
133- assert_less_than_or_equal (_Config ) ->
134- % % Basic integer comparisons
135- ok = ? assertLessThanOrEqual (5 , 10 ),
136- ok = ? assertLessThanOrEqual (10 , 10 ),
137- % % Counts (eg: capacity used =< max)
138- Used = 80 ,
139- Max = 100 ,
140- ok = ? assertLessThanOrEqual (Used , Max ),
141- % % Negative numbers
142- ok = ? assertLessThanOrEqual (- 10 , - 5 ),
143- ok = ? assertLessThanOrEqual (- 5 , - 5 ),
144- % % Floats
145- ok = ? assertLessThanOrEqual (1.5 , 1.5 ),
146- ok = ? assertLessThanOrEqual (1.4 , 1.5 ),
147- % % Failure cases
148- ? assertException (error , {assert , _ }, ? assertLessThanOrEqual (10 , 5 )),
149- ? assertException (error , {assert , _ }, ? assertLessThanOrEqual (101 , 100 )),
150- % % With comment
151- ok = ? assertLessThanOrEqual (10 , 10 , " should not exceed threshold" ).
152-
153- assert_greater_than (_Config ) ->
154- % % Basic integer comparisons
155- ok = ? assertGreaterThan (10 , 5 ),
156- ok = ? assertGreaterThan (100 , 0 ),
157- % % Timestamp comparisons
158- Ts1 = 1737471235 ,
159- Ts2 = 1737471234 ,
160- ok = ? assertGreaterThan (Ts1 , Ts2 ),
161- % % Negative numbers
162- ok = ? assertGreaterThan (- 5 , - 10 ),
163- % % Floats
164- ok = ? assertGreaterThan (1.5 , 1.0 ),
165- ok = ? assertGreaterThan (0.001 , 0.0 ),
166- % % Failure cases
167- ? assertException (error , {assert , _ }, ? assertGreaterThan (5 , 10 )),
168- ? assertException (error , {assert , _ }, ? assertGreaterThan (10 , 10 )),
169- ? assertException (error , {assert , _ }, ? assertGreaterThan (Ts2 , Ts2 )),
170- % % With comment
171- ok = ? assertGreaterThan (10 , 5 , " should be greater" ).
172-
173- assert_greater_than_or_equal (_Config ) ->
174- % % Basic integer comparisons
175- ok = ? assertGreaterThanOrEqual (10 , 5 ),
176- ok = ? assertGreaterThanOrEqual (10 , 10 ),
177- % % Zero checks (eg: balance >= 0)
178- Balance = 100 ,
179- ok = ? assertGreaterThanOrEqual (Balance , 0 ),
180- ok = ? assertGreaterThanOrEqual (0 , 0 ),
181- % % Negative numbers
182- ok = ? assertGreaterThanOrEqual (- 5 , - 10 ),
183- ok = ? assertGreaterThanOrEqual (- 5 , - 5 ),
184- % % Floats
185- ok = ? assertGreaterThanOrEqual (1.5 , 1.5 ),
186- ok = ? assertGreaterThanOrEqual (1.6 , 1.5 ),
187- % % Failure cases
188- ? assertException (error , {assert , _ }, ? assertGreaterThanOrEqual (5 , 10 )),
189- ? assertException (error , {assert , _ }, ? assertGreaterThanOrEqual (- 1 , 0 )),
190- % % With comment
191- ok = ? assertGreaterThanOrEqual (10 , 10 , " should be at least threshold" ).
192-
193- assert_in_range (_Config ) ->
194- % % Percentage range (0-100)
195- Percentage = 75 ,
196- ok = ? assertInRange (Percentage , 0 , 100 ),
197- ok = ? assertInRange (0 , 0 , 100 ),
198- ok = ? assertInRange (100 , 0 , 100 ),
199- % % HTTP status codes
200- ok = ? assertInRange (200 , 200 , 299 ),
201- ok = ? assertInRange (404 , 400 , 499 ),
202- % % Negative ranges
203- ok = ? assertInRange (- 5 , - 10 , 0 ),
204- ok = ? assertInRange (- 10 , - 10 , - 5 ),
205- % % Floats
206- ok = ? assertInRange (1.5 , 1.0 , 2.0 ),
207- ok = ? assertInRange (0.5 , 0.0 , 1.0 ),
208- % % Failure cases
209- ? assertException (error , {assert , _ }, ? assertInRange (- 1 , 0 , 100 )),
210- ? assertException (error , {assert , _ }, ? assertInRange (101 , 0 , 100 )),
211- ? assertException (error , {assert , _ }, ? assertInRange (199 , 200 , 299 )),
212- % % With comment
213- ok = ? assertInRange (50 , 0 , 100 , " percentage must be valid" ).
214-
215- assert_equal_with_delta (_Config ) ->
216- % % Float comparisons with tolerance
217- ok = ? assertEqualWithDelta (3.14159 , 3.14 , 0.01 ),
218- ok = ? assertEqualWithDelta (3.14159 , 3.141 , 0.001 ),
219- % % Integer approximations
220- ok = ? assertEqualWithDelta (100 , 100.5 , 1 ),
221- ok = ? assertEqualWithDelta (100 , 99 , 1 ),
222- % % Zero handling
223- ok = ? assertEqualWithDelta (0.0 , 0.0 , 0.001 ),
224- ok = ? assertEqualWithDelta (0.0 , 0.0001 , 0.001 ),
225- % % Negative values
226- ok = ? assertEqualWithDelta (- 5.0 , - 5.1 , 0.2 ),
227- ok = ? assertEqualWithDelta (- 100 , - 99 , 2 ),
228- % % Large values with delta
229- ok = ? assertEqualWithDelta (1000000 , 1000001 , 10 ),
230- % % Failure cases
231- ? assertException (error , {assert , _ }, ? assertEqualWithDelta (3.14159 , 3.0 , 0.01 )),
232- ? assertException (error , {assert , _ }, ? assertEqualWithDelta (100 , 102 , 1 )),
233- ? assertException (error , {assert , _ }, ? assertEqualWithDelta (0.0 , 0.1 , 0.01 )),
234- % % With comment
235- ok = ? assertEqualWithDelta (3.14 , 3.14159 , 0.01 , " pi approximation" ).
0 commit comments