HCoop / jackhill / mal.git / blame
| Commit | Line | Data |
|---|---|---|
| 59038a10 C |
1 | require printer.fs |
| 2 | ||
| 3 | \ === basic testing util === / | |
| 4 | : test= | |
| 69972a83 | 5 | 2dup m= if |
| 59038a10 C |
6 | 2drop |
| 7 | else | |
| 8 | cr ." assert failed on line " sourceline# . | |
| 9 | swap cr ." | got " . cr ." | expected " . cr | |
| 10 | endif ; | |
| 11 | ||
| 12 | \ array function tests | |
| 13 | create za 2 , 6 , 7 , 10 , 15 , 80 , 81 , | |
| 14 | ||
| 15 | 7 za 2 array-find -1 test= 0 test= | |
| 16 | 7 za 6 array-find -1 test= 1 test= | |
| 17 | 7 za 10 array-find -1 test= 3 test= | |
| 18 | 7 za 81 array-find -1 test= 6 test= | |
| 19 | 7 za 12 array-find 0 test= 4 test= | |
| 20 | 7 za 8 array-find 0 test= 3 test= | |
| 21 | 7 za 100 array-find 0 test= 7 test= | |
| 22 | 7 za 1 array-find 0 test= 0 test= | |
| 23 | ||
| 24 | 10 new-array | |
| 25 | 1 swap 0 5 array-insert | |
| 26 | 2 swap 1 7 array-insert | |
| 27 | 3 swap 3 12 array-insert | |
| 28 | 4 swap 4 15 array-insert | |
| 29 | 5 swap 5 20 array-insert | |
| 30 | ||
| 31 | dup 0 cells + @ 5 test= | |
| 32 | dup 1 cells + @ 7 test= | |
| 33 | dup 2 cells + @ 10 test= | |
| 34 | dup 3 cells + @ 12 test= | |
| 35 | dup 4 cells + @ 15 test= | |
| 36 | dup 5 cells + @ 20 test= | |
| 37 | ||
| 38 | ||
| 59038a10 C |
39 | \ Protocol tests |
| 40 | ||
| 41 | mal-nil | |
| 42 | 42 MalInt. mal-nil conj | |
| 43 | 10 MalInt. mal-nil conj conj | |
| 44 | 20 MalInt. swap conj | |
| 45 | 23 MalInt. mal-nil conj conj conj | |
| 46 | pr-str s" (nil (20 (42) 10) 23)" str= -1 test= | |
| 9da223a3 | 47 | |
| c05d35e8 C |
48 | 1500 MalInt. 1500 MalInt. test= |
| 49 | ||
| 50 | \ MalList tests | |
| 69972a83 | 51 | |
| c05d35e8 | 52 | here 1 MalInt. , 2 MalInt. , 3 MalInt. , here>MalList |
| 69972a83 C |
53 | 4 MalInt. swap conj |
| 54 | 5 MalInt. swap conj | |
| 55 | pr-str s" (5 4 1 2 3)" str= -1 test= | |
| 56 | ||
| 9da223a3 C |
57 | \ map tests |
| 58 | ||
| 69972a83 C |
59 | s" one" MalString. s" one" MalString. test= |
| 60 | s" one" MalString. s" x" MalString. m= 0 test= | |
| 61 | ||
| 62 | MalMap/Empty | |
| 63 | 1000 MalInt. 1100 rot assoc | |
| 64 | 2000 MalInt. 2100 rot assoc | |
| 65 | 3000 MalInt. 3100 rot assoc | |
| 66 | ||
| 67 | dup 99 2000 MalInt. rot get 2100 test= | |
| 68 | dup 99 4000 MalInt. rot get 99 test= | |
| 69 | drop | |
| 9da223a3 C |
70 | |
| 71 | MalMap/Empty | |
| 72 | s" one" MalString. s" first" MalString. rot assoc | |
| 73 | s" two" MalString. s" second" MalString. rot assoc | |
| 74 | s" three" MalString. s" third" MalString. rot assoc | |
| 75 | ||
| 69972a83 | 76 | dup 99 s" two" MalString. rot get s" second" MalString. test= |
| 9da223a3 C |
77 | dup 99 s" none" MalString. rot get 99 test= |
| 78 | drop | |
| 79 | ||
| 69972a83 C |
80 | 99 MalInt. 10 MalInt. MalMap/Empty get 99 MalInt. test= |
| 81 | ||
| 9da223a3 C |
82 | \ eval tests |
| 83 | ||
| 84 | require step2_eval.fs | |
| 85 | ||
| 86 | mal-nil | |
| 87 | 1 MalInt. swap conj | |
| 88 | 2 MalInt. swap conj | |
| 89 | 3 MalInt. swap conj | |
| 9da223a3 | 90 | mal-eval |
| 9da223a3 C |
91 | |
| 92 | bye |