This commit is contained in:
parent
8cb9178820
commit
1c083885bc
@ -1,6 +1,7 @@
|
|||||||
AUTOMAKE_OPTIONS = nostdinc
|
AUTOMAKE_OPTIONS = nostdinc
|
||||||
|
|
||||||
check_SCRIPTS = \
|
check_SCRIPTS = \
|
||||||
|
fun-01.hcl \
|
||||||
insta-01.hcl \
|
insta-01.hcl \
|
||||||
insta-02.hcl \
|
insta-02.hcl \
|
||||||
ret-01.hcl \
|
ret-01.hcl \
|
||||||
|
@ -468,6 +468,7 @@ top_builddir = @top_builddir@
|
|||||||
top_srcdir = @top_srcdir@
|
top_srcdir = @top_srcdir@
|
||||||
AUTOMAKE_OPTIONS = nostdinc
|
AUTOMAKE_OPTIONS = nostdinc
|
||||||
check_SCRIPTS = \
|
check_SCRIPTS = \
|
||||||
|
fun-01.hcl \
|
||||||
insta-01.hcl \
|
insta-01.hcl \
|
||||||
insta-02.hcl \
|
insta-02.hcl \
|
||||||
ret-01.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