54 lines
938 B
HCL
54 lines
938 B
HCL
; test class instantiation methods
|
|
|
|
(defclass A
|
|
| a b c |
|
|
|
|
(defun ::* newInstance(x y z)
|
|
(set a x)
|
|
(set b y)
|
|
(set c z)
|
|
(return self)
|
|
)
|
|
|
|
(defun get-a() a)
|
|
(defun get-b() b)
|
|
(defun get-c() c)
|
|
)
|
|
|
|
(defclass B ::: A
|
|
| d e f |
|
|
|
|
(defun ::* newInstance(x y z)
|
|
(:super newInstance (* x 2) (* y 2) (* z 2))
|
|
(set d x)
|
|
(set e y)
|
|
(set f z)
|
|
(return self)
|
|
)
|
|
|
|
(defun sum()
|
|
(+ (:super get-a) (:super get-b) (:super get-c) d e f)
|
|
)
|
|
|
|
)
|
|
|
|
(set a (:(:B newInstance 1 2 3) sum))
|
|
(if (/= a 18) (printf "ERROR: a must be 18\n"))
|
|
(printf "OK %d\n" a)
|
|
|
|
(set b (:B newInstance 2 3 4))
|
|
(set a (:b get-a))
|
|
(if (/= a 4) (printf "ERROR: a must be 4\n"))
|
|
(printf "OK %d\n" a)
|
|
(set a (:b get-b))
|
|
(if (/= a 6) (printf "ERROR: a must be 6\n"))
|
|
(printf "OK %d\n" a)
|
|
(set a (:b get-c))
|
|
(if (/= a 8) (printf "ERROR: a must be 8\n"))
|
|
(printf "OK %d\n" a)
|
|
(set a (:b sum))
|
|
(if (/= a 27) (printf "ERROR: a must be 27\n"))
|
|
(printf "OK %d\n" a)
|
|
|
|
|