cons: document and test uniq, new uniqual function.

1 files changed, 30 insertions, 0 deletions

diff --git a/testcases-cons b/testcases-cons
index 9962970..0e0b2db 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -673,3 +673,33 @@ BEGIN {
 nil
 (2.5)
 (2.5)
+--
+36:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  print sexp(uniq(nil))
+  print sexp(uniq(list(1, 2, 1, 3, 2, 4, 2, 1, 5, 6, 5)))
+  print sexp(uniqual(nil))
+  print sexp(uniqual(list(1, 2, 1, 3, 2, 4, 2, 1, 5, 6, 5)))
+  print sexp(uniq(list(1, 1.0)))
+  print sexp(uniq(list(1, "1.0")))
+  print sexp(uniqual(list(1, 1.0)))
+  print sexp(uniqual(list(1, "1.0")))
+  print sexp(uniq(list(box_str("abc"), "abc")))
+  print sexp(uniqual(list(box_str("abc"), "abc")))
+  print sexp(uniq(list(cons(1, 2), cons(3, 4), cons(1, 2), cons(3, 5))))
+}'
+:
+nil
+(1 2 3 4 5 6)
+nil
+(1 2 3 4 5 6)
+(1)
+(1 1.0)
+(1)
+(1)
+("abc" "abc")
+("abc")
+((1 . 2) (3 . 4) (3 . 5))