diff options
| -rw-r--r-- | lib.c | 3 | ||||
| -rw-r--r-- | tests/012/less.tl | 21 |
2 files changed, 23 insertions, 1 deletions
@@ -6227,11 +6227,12 @@ static void less_tab_init(void) type_prec[STR] = 3; type_prec[SYM] = 4; type_prec[LCONS] = 5; + type_prec[VEC] = 6; type_prec[LSTR] = 3; type_prec[BGNUM] = 1; type_prec[FLNUM] = 1; type_prec[RNG] = 2; - type_prec[BUF] = 6; + type_prec[BUF] = 7; for (l = 0; l <= MAXTYPE; l++) for (r = 0; r <= MAXTYPE; r++) { diff --git a/tests/012/less.tl b/tests/012/less.tl new file mode 100644 index 00000000..11748c7f --- /dev/null +++ b/tests/012/less.tl @@ -0,0 +1,21 @@ +(load "../common") + +(mtest + (less #() #(a)) t + (greater #() #(a)) nil + (less #(0) #(1)) t + (greater #(0) #(1)) nil + (less #(1) #(0)) nil + (greater #(1) #(0)) t + (less #(0) #(0 0)) t + (less #(1) #(0 0)) nil + (less #(0 0) #(0 1)) t + (less #(0 0) #(0 0)) nil + (less #(0 0) #(0 0 0)) t) + +(mtest + (less '() #()) t + (less '(0) #(0)) t + (less "a" #(#\a)) t + (less #() #b'') t + (less #(0) #b'00') t) |