1 files changed, 30 insertions, 0 deletions
diff --git a/testcases-cons b/testcases-cons
index 6211be6..6b7751d 100644
--- a/testcases-cons
+++ b/testcases-cons
@@ -619,3 +619,33 @@ nil
 (1 2 3)
 (3)
 (1 2 3)
+--
+34:
+$cppawk '
+#include <cons.h>
+
+BEGIN {
+  print sexp(ldiff(list(1, 2, 3, 4), list(3, 4)))
+  print sexp(ldiff(list(1, 2, 3, 4), list(1, 2, 3, 4)))
+  print sexp(ldiff(list(1, 2, 3, 4), list(4)))
+  print sexp(ldiff(list(1, 2, 3, 4), list(5, 6)))
+  print sexp(ldiff(list(1, 2, 3, 4), "abc"))
+  print sexp(ldiff(cons(1, cons(2, 3)), 3))
+  print sexp(last(list(1, 2, 3)))
+  print sexp(last(list(1, 2, 3), 2))
+  print sexp(last(cons(1, cons(2, 3)), 0))
+  print sexp(butlast(list(1, 2, 3), 2))
+  print sexp(butlast(list(1, 2, 3), 15))
+}'
+:
+(1 2)
+nil
+(1 2 3)
+(1 2 3 4)
+(1 2 3 4)
+(1 2)
+(3)
+(2 3)
+3
+(1)
+nil