From 8e5bc6f8e7cdd2ece0a5da310fd4c3118eec3cf0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 14 Apr 2022 21:04:00 -0700 Subject: cons: document member function and add tests. --- testcases-cons | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'testcases-cons') diff --git a/testcases-cons b/testcases-cons index c4f9cd8..1295cbc 100644 --- a/testcases-cons +++ b/testcases-cons @@ -559,3 +559,23 @@ __cons(1, __cons(2, __cons(3, ""))) 1 __cons(1, 2) __cons(1, __cons(2, 3)) +-- +31: +$cppawk ' +#include + +BEGIN { + print sexp(member(1, list(1, 2, 3))) + print sexp(member(2, list(1, 2, 3))) + print sexp(member(3, list(1, 2, 3))) + print sexp(member(4, list(1, 2, 3))) + print sexp(member(1, nil)) + print sexp(member(nil, nil)) +}' +: +(1 2 3) +(2 3) +(3) +nil +nil +nil -- cgit v1.2.3