diff options
Diffstat (limited to 'forth/misc-tests.fs')
| -rw-r--r-- | forth/misc-tests.fs | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/forth/misc-tests.fs b/forth/misc-tests.fs index ede5119..2526067 100644 --- a/forth/misc-tests.fs +++ b/forth/misc-tests.fs @@ -36,13 +36,6 @@ dup 4 cells + @ 15 test= dup 5 cells + @ 20 test= -\ MalType tests - -MalList new MalList new = 0 test= - -MalList new dup MalList/car 5 swap ! MalList/car @ 5 test= - - \ Protocol tests mal-nil @@ -52,9 +45,11 @@ mal-nil 23 MalInt. mal-nil conj conj conj pr-str s" (nil (20 (42) 10) 23)" str= -1 test= -\ MalArray tests +1500 MalInt. 1500 MalInt. test= + +\ MalList tests -here 1 MalInt. , 2 MalInt. , 3 MalInt. , here>MalArray +here 1 MalInt. , 2 MalInt. , 3 MalInt. , here>MalList 4 MalInt. swap conj 5 MalInt. swap conj pr-str s" (5 4 1 2 3)" str= -1 test= |