Showing the changes to test (1 of 5 files). Show all
Unified · Split
| @@ -148,6 +148,12 @@ · 147 unmodified lines | |||
| 148 | (assert (>= "ab" "aa")) | 148 | (assert (>= "ab" "aa")) |
| 149 | (assert (>= "ab" "aa" "aa")) | 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 | ; comparing numbers and runes | 157 | ; comparing numbers and runes |
| 152 | (assert (< 9 #\newline)) | 158 | (assert (< 9 #\newline)) |
| 153 | (assert (not (< 10 #\newline))) | 159 | (assert (not (< 10 #\newline))) |