added a new test script
Some checks failed
continuous-integration/drone/push Build is failing

This commit is contained in:
hyung-hwan 2023-11-12 23:03:39 +09:00
parent 8cb9178820
commit 1c083885bc
3 changed files with 18 additions and 0 deletions

View File

@ -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 \

View File

@ -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
View 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")
)