chnaged ; to ## in test programs
Some checks failed
continuous-integration/drone/push Build is failing
Some checks failed
continuous-integration/drone/push Build is failing
This commit is contained in:
parent
23610117d6
commit
41ca7a219d
@ -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")
|
||||||
|
@ -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 |
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user