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

fixed a syntax error in var-01.hcl

Browse Source
This commit is contained in:
hyung-hwan 2022-05-06 00:17:26 +00:00
parent c80dd5820d
commit 3c5dd6de57
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/run.sh
View File

@ -1,3 +1,3 @@
#!/bin/sh #!/bin/sh
$@ | grep -E ^ERROR: && exit 1 $@ 2>&1 | grep -Eq ^ERROR: && exit 1
exit 0 exit 0

19
t/var-01.hcl
View File

@ -74,14 +74,16 @@
) )
(defun x() (defun x()
(do (set R
| x | (do
(set x 1) | x |
(while (< x j) (set x 1)
(defun Q() x) (while (< x j)
(set x (+ x 1)) (defun Q() x)
(set x (+ x 1))
)
) )
} )
) )
) )
@ -90,3 +92,6 @@
(set t (Q)) (set t (Q))
(if (/= t 99) (print "ERROR: t is not 99\n") (if (/= t 99) (print "ERROR: t is not 99\n")
else (printf "OK: %d\n" t)) else (printf "OK: %d\n" t))
(if (nqv? R false) (print "ERROR: R is not false\n")
else (printf "OK: %O\n" R))