hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added a test case for vlist inside the 'do' expression inside a data list

Browse Source
This commit is contained in:
hyung-hwan 2022-07-30 16:07:39 +00:00
parent fd204b1d93
commit 7263ddf7e9
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
t/var-01.hcl
View File

@ -95,3 +95,17 @@
(if (nqv? R false) (print "ERROR: R is not false\n") (if (nqv? R false) (print "ERROR: R is not false\n")
else (printf "OK: %O\n" R)) else (printf "OK: %O\n" R))
(set v
#(
(do |a b| (set a 10) (set b 20) (+ a b) )
(do |a b| (set a 11) (set b 21) (+ a b) )
999
)
)
(set v2 #(30 32 999))
(if (nql? v v2) (print "ERROR: v1 and v2 are not equal\n")
else (printf "OK: v and v2 equal\n"))