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

added line-break escaping
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-01-18 22:55:50 +08:00
parent b3f363c94f
commit f01c499832
7 changed files with 36 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
t/insta-01.hcl
View File

@ -30,22 +30,22 @@ defclass B ::: A | d e f | {
};
set a ((B:newInstance 1 2 3):sum);
if (/= a 18) { printf "ERROR: a must be 18\n"; }
if (/= a 18) { printf "ERROR: a must be 18\n"; } \
else { 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" }
if (/= a 4) {printf "ERROR: a must be 4\n" } \
else { printf "OK %d\n" a };
set a (b:get-b);
if (/= a 6) { printf "ERROR: a must be 6\n" }
if (/= a 6) { printf "ERROR: a must be 6\n" } \
else { printf "OK %d\n" a };
set a (b:get-c);
if (/= a 8) { printf "ERROR: a must be 8\n" }
if (/= a 8) { printf "ERROR: a must be 8\n" } \
else {printf "OK %d\n" a };
set a (b:sum);
if (/= a 27) { printf "ERROR: a must be 27\n" }
if (/= a 27) { printf "ERROR: a must be 27\n" } \
else { printf "OK %d\n" a };

8
t/insta-02.hcl
View File

@ -7,20 +7,20 @@ set t (
set X t;
if (nqv? t X) { printf "ERROR: t must point to X\n" }
if (nqv? t X) { printf "ERROR: t must point to X\n" } \
else { printf "OK: t points to X\n" };
set t ((t:make):get-x);
if (nqv? t 1234) { printf "ERROR: t must be 1234\n" }
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);
if (nqv? v 9999) { printf "ERROR: v is not 9999\n" }
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);
if (nqv? v 1234) { printf "ERROR: v is not 1234\n" }
if (nqv? v 1234) { printf "ERROR: v is not 1234\n" } \
else { printf "OK: value is %d\n" v };

6
t/ret-01.hcl
View File

@ -15,11 +15,11 @@ defun test-non-local-ret-1(k) {
};
set a (test-non-local-ret-1 20);
if (/= a 28) { printf "ERROR: a must be 28\n" }
if (/= a 28) { printf "ERROR: a must be 28\n" } \
else { printf "OK %d\n" a };
set a (test-non-local-ret-1 21);
if (/= a 41) { printf "ERROR: a must be 41\n" }
if (/= a 41) { printf "ERROR: a must be 41\n" } \
else { printf "OK %d\n" a };
@ -27,7 +27,7 @@ defun ff() { return 999 };
## test a normal block return
set a (ff);
if (/= a 999) { printf "ERROR: a must be 999\n" }
if (/= a 999) { printf "ERROR: a must be 999\n" } \
else { printf "OK %d\n" a };
## return from top-level