diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-14 21:04:00 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-14 21:04:00 -0700 |
| commit | 8e5bc6f8e7cdd2ece0a5da310fd4c3118eec3cf0 (patch) | |
| tree | 875c2b8a434f7688d4049effd48d19864756f1a8 /testcases-cons | |
| parent | 186a378870e2ceaad4cb167d0d24d4d0a3a9bb8e (diff) | |
| download | cppawk-8e5bc6f8e7cdd2ece0a5da310fd4c3118eec3cf0.tar.gz cppawk-8e5bc6f8e7cdd2ece0a5da310fd4c3118eec3cf0.tar.bz2 cppawk-8e5bc6f8e7cdd2ece0a5da310fd4c3118eec3cf0.zip | |
cons: document member function and add tests.
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 20 |
1 files changed, 20 insertions, 0 deletions
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 <cons.h> + +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 |