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 1818 (set failed (+ 1 failed))))
1919 (let register_failure (fun (description) (append! failures description)))
2020
21- (let add_case (fun (name ) {
21+ (let add_case (fun (case_name ) {
2222 # 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 ) }))
2525
2626 (let pop_case (fun () {
2727 (set case_desc "")
2828 (pop! cases -1) }))
2929
3030 (let update_case_ptr (fun (val)
3131 (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+ ()) }))
3454
3555# internal, do not use
3656(mut _suite nil)
You can’t perform that action at this time.
0 commit comments