diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-15 00:33:56 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-15 00:33:56 -0700 |
| commit | 3450c06137836d4cb00d5f98d8490c85948913c0 (patch) | |
| tree | a4f5357fa9830aa21daaf6d23a2e12bfb1522f69 /testcases-cons | |
| parent | aeca5d81592de6bdbf485505fa867e36301d726a (diff) | |
| download | cppawk-3450c06137836d4cb00d5f98d8490c85948913c0.tar.gz cppawk-3450c06137836d4cb00d5f98d8490c85948913c0.tar.bz2 cppawk-3450c06137836d4cb00d5f98d8490c85948913c0.zip | |
cons: ldiff, last, butlast: doc, tests, fixes.
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 30 |
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 |