hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enhanced the test runner for errors to support multiple scripts in a single file
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-02-05 02:43:50 +09:00
parent d99a514278
commit 4d5f2266b4
13 changed files with 137 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/insta-02.hcl
View File

@ -1,6 +1,6 @@
set t (
class | x | {
defun :* make() { set x 1234; return self; };
defun :* make() { x := 1234; return self; };
defun get-x() { return x };
}
);
@ -16,11 +16,11 @@ if (nqv? t 1234) { printf "ERROR: t must be 1234\n" } \
else { printf "OK: t is %d\n" t };
set j #{ ((X:make):get-x): 9999, 4512: ((X: make): get-x) };
set v (dic.get j 1234);
j := #{ ((X:make):get-x): 9999, 4512: ((X: make): get-x) };
v := (dic.get j 1234);
if (nqv? v 9999) { printf "ERROR: v is not 9999\n" } \
else { printf "OK: value is %d\n" v };
set v (dic.get j 4512);
v := (dic.get j 4512);
if (nqv? v 1234) { printf "ERROR: v is not 1234\n" } \
else { printf "OK: value is %d\n" v };