diff options
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) |