This commit is contained in:
parent
8cb9178820
commit
1c083885bc
@ -1,6 +1,7 @@
|
||||
AUTOMAKE_OPTIONS = nostdinc
|
||||
|
||||
check_SCRIPTS = \
|
||||
fun-01.hcl \
|
||||
insta-01.hcl \
|
||||
insta-02.hcl \
|
||||
ret-01.hcl \
|
||||
|
@ -468,6 +468,7 @@ top_builddir = @top_builddir@
|
||||
top_srcdir = @top_srcdir@
|
||||
AUTOMAKE_OPTIONS = nostdinc
|
||||
check_SCRIPTS = \
|
||||
fun-01.hcl \
|
||||
insta-01.hcl \
|
||||
insta-02.hcl \
|
||||
ret-01.hcl \
|
||||
|
16
t/fun-01.hcl
Normal file
16
t/fun-01.hcl
Normal file
@ -0,0 +1,16 @@
|
||||
defun aaa(a b) {
|
||||
| c |
|
||||
set c (+ a b);
|
||||
return c;
|
||||
};
|
||||
|
||||
set k (aaa 10 20);
|
||||
|
||||
(if (= k 30)
|
||||
(printf "OK\n")
|
||||
else
|
||||
(printf "ERROR\n")
|
||||
)
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user