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

chnaged ; to ## in test programs
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
hyung-hwan 2023-11-11 17:57:18 +09:00
parent 23610117d6
commit 41ca7a219d
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
t/ret-01.hcl
View File

@ -25,11 +25,11 @@
(defun ff() (return 999)) (defun ff() (return 999))
; test a normal block return ## test a normal block return
(set a (ff)) (set a (ff))
(if (/= a 999) (printf "ERROR: a must be 999\n")) (if (/= a 999) (printf "ERROR: a must be 999\n"))
(printf "OK %d\n" a) (printf "OK %d\n" a)
; return from top-level ## return from top-level
(return 10) (return 10)
(printf "ERROR: this line must not be printed\n") (printf "ERROR: this line must not be printed\n")

6
t/retvar-01.hcl
View File

@ -1,5 +1,5 @@
((lambda () ((lambda ()
; test return variables ## test return variables
| v1 v2 v3 i a b c d | | v1 v2 v3 i a b c d |
@ -18,7 +18,7 @@
(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n")) (if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
(printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3) (printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3)
(set-r v1 v2 (ff 1 2)) ; using 2 return variables only. not assigning to v3 (set-r v1 v2 (ff 1 2)) ## using 2 return variables only. not assigning to v3
(if (/= v1 1003) (printf "ERROR: v1 must be 1003\n")) (if (/= v1 1003) (printf "ERROR: v1 must be 1003\n"))
(if (/= v2 2006) (printf "ERROR: v2 must be 2006\n")) (if (/= v2 2006) (printf "ERROR: v2 must be 2006\n"))
(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n")) (if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
@ -27,7 +27,7 @@
; test return variables in message sends ## test return variables in message sends
(defclass B (defclass B
::: | X1 X2 | ::: | X1 X2 |