Skip to content

Commit 18894b9

Browse files
committed
fix(testing): fixing shadowing bug when adding a new test case
1 parent 69d782b commit 18894b9

File tree

1 file changed

+25
-5
lines changed

1 file changed

+25
-5
lines changed

Testing.ark

Lines changed: 25 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -18,19 +18,39 @@
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 &register_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+
&register_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)

0 commit comments

Comments
 (0)