Showing the changes to test (1 of 5 files). Show all
Unified · Split
| @@ -148,6 +148,12 @@ · 147 unmodified lines | ||
| 148 | 148 | (assert (>= "ab" "aa")) |
| 149 | 149 | (assert (>= "ab" "aa" "aa")) |
| 150 | 150 | |
| 151 | +; one or more than two arguments | |
| 152 | +(assert (and (> 0) (< 0) (>= 0) (<= 0))) | |
| 153 | +(assert (and (> 2 1 0) (< 0 1 2) (>= 2 1 0) (<= 0 1 2))) | |
| 154 | +(assert (and (>= 2 1 1) (<= 1 1 2))) | |
| 155 | +(assert (not (and (>= 2 1 2) (<= 2 1 2)))) | |
| 156 | + | |
| 151 | 157 | ; comparing numbers and runes |
| 152 | 158 | (assert (< 9 #\newline)) |
| 153 | 159 | (assert (not (< 10 #\newline))) |