implemented hseval
This commit is contained in:
@@ -204,3 +204,14 @@ if [
|
||||
"my_const" [ 99 ] defw my_const 99 = if [ " defw (no-inline) PASS" puts cr ] [ " defw (no-inline) FAIL" puts cr ] # Test defw
|
||||
:: my_inline [ 100 ]
|
||||
my_inline 100 = if [ " :: (inline) PASS" puts cr ] [ " :: (inline) FAIL" puts cr ] # Test inline ::
|
||||
|
||||
# 11. Host Language Evaluation: hseval
|
||||
"Testing host language evaluation..." puts cr
|
||||
"[1, 2] * 2" hseval [ 1 2 1 2 ] streq
|
||||
"1 + 2" hseval 3 = and
|
||||
if [
|
||||
" hseval PASS" puts cr
|
||||
] [
|
||||
" hseval FAIL" puts cr
|
||||
]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user