diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-14 21:29:25 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-14 21:29:25 -0700 |
| commit | aeca5d81592de6bdbf485505fa867e36301d726a (patch) | |
| tree | 82007d53f603cc6dded9f5949178da735ee31133 /testcases-cons | |
| parent | e33a5c88d867eb8b7e518d9ca113757d8c5f650e (diff) | |
| download | cppawk-aeca5d81592de6bdbf485505fa867e36301d726a.tar.gz cppawk-aeca5d81592de6bdbf485505fa867e36301d726a.tar.bz2 cppawk-aeca5d81592de6bdbf485505fa867e36301d726a.zip | |
cons: document nth and nthcdr; add tests
Fixing semantics of nth for negative values.
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 6d14401..6211be6 100644 --- a/testcases-cons +++ b/testcases-cons @@ -599,3 +599,23 @@ BEGIN { nil nil nil +-- +33: +$cppawk ' +#include <cons.h> + +BEGIN { + print sexp(nth(-1, list(1, 2, 3))) + print sexp(nth(1, list(1, 2, 3))) + print sexp(nth(15, list(1, 2, 3))) + print sexp(nthcdr(0, list(1, 2, 3))) + print sexp(nthcdr(2, list(1, 2, 3))) + print sexp(nthcdr(-1, list(1, 2, 3))) +}' +: +nil +2 +nil +(1 2 3) +(3) +(1 2 3) |