From 6d51949c4820f8eeebd6aacfb443c11b2465f6ab Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 20 Dec 2021 07:42:29 -0800 Subject: less: bug, vectors not supported. * lib.c (less_tab_init): Add missing initialization for VEC, with a priority above CONS: all vectors are greater than conses. The BUF priority is bumped to 7. * test/012/less.tl: New file. --- tests/012/less.tl | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 tests/012/less.tl (limited to 'tests/012') 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) -- cgit v1.2.3