File tree Expand file tree Collapse file tree 1 file changed +25
-5
lines changed Expand file tree Collapse file tree 1 file changed +25
-5
lines changed Original file line number Diff line number Diff line change 18
18
(set failed (+ 1 failed))))
19
19
(let register_failure (fun (description) (append! failures description)))
20
20
21
- (let add_case (fun (name ) {
21
+ (let add_case (fun (case_name ) {
22
22
# keep track of the current case we're in
23
- (set case_desc name )
24
- (append! cases name ) }))
23
+ (set case_desc case_name )
24
+ (append! cases case_name ) }))
25
25
26
26
(let pop_case (fun () {
27
27
(set case_desc "")
28
28
(pop! cases -1) }))
29
29
30
30
(let update_case_ptr (fun (val)
31
31
(set case_pointer val)))
32
- (let need_case? (fun () (and (not (empty? case_desc)) (!= case_pointer (len cases)))))
33
- (fun (&name &passed &failed &failures &cases &case_pointer &case_desc &display_cases_success &toggle_display_cases_success &inc_passed &inc_failed ®ister_failure &add_case &pop_case &update_case_ptr &need_case?) ()) }))
32
+
33
+ (let need_case? (fun ()
34
+ (and (not (empty? case_desc)) (!= case_pointer (len cases)))))
35
+
36
+ (fun (
37
+ &name
38
+ &passed
39
+ &failed
40
+ &failures
41
+ &cases
42
+ &case_pointer
43
+ &case_desc
44
+ &display_cases_success
45
+ &toggle_display_cases_success
46
+ &inc_passed
47
+ &inc_failed
48
+ ®ister_failure
49
+ &add_case
50
+ &pop_case
51
+ &update_case_ptr
52
+ &need_case?)
53
+ ()) }))
34
54
35
55
# internal, do not use
36
56
(mut _suite nil)
You can’t perform that action at this time.
0 commit comments