luxferre/clyx
1
0
Fork 0
Code Actions Activity

v0.3.3: is lib word, UTF–8 string support

Browse Source
This commit is contained in:
Luxferre
2026-07-07 08:13:36 +03:00
parent 052d58b6f7
commit 836a7c5380
7 changed files with 37 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test.clx
+13
View File
@@ -173,6 +173,14 @@ if [
] [
" q2s, streq, lower, and upper FAIL" puts cr
]
"ñ" s2q [ 195 177 ] streq
[ 195 177 ] q2s "ñ" streq and
"ñ" slen 1 = and
if [
" Unicode and s2q/q2s PASS" puts cr
] [
" Unicode and s2q/q2s FAIL" puts cr
]
# 8. Q-form Operations
"Testing Q-form operations..." puts cr
@@ -216,6 +224,11 @@ if [
my_inline 100 = if [ " :: (inline) PASS" puts cr ] [ " :: (inline) FAIL" puts cr ] # Test inline ::
5 then 5 = if [ " then PASS" puts cr ] [ " then FAIL" puts cr ] # Test then
":: source_test_word [ 99 ]" "test_source.clx" writef drop source test_source.clx source_test_word 99 = if [ "test_source.clx" delf " source PASS" puts cr ] [ "test_source.clx" delf " source FAIL" puts cr ] # Test source
is my_is_word [ 200 ]
my_is_word 200 =
is "my_is_string_word" [ 300 ]
my_is_string_word 300 = and
if [ " is PASS" puts cr ] [ " is FAIL" puts cr ] # Test is
" _start PASS" puts cr # Test _start (executed via entry point)
# 11. Host Language Evaluation: hseval