From 66f74b0b9ed2f86da5eaebbab6e3d5d8da97ddd3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 13 Apr 2022 21:49:47 -0700 Subject: testcases-cons: test list, append, li, listar. --- testcases-cons | 144 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 144 insertions(+) diff --git a/testcases-cons b/testcases-cons index b2fce7f..c4f9cd8 100644 --- a/testcases-cons +++ b/testcases-cons @@ -415,3 +415,147 @@ brk 1 0 0 +-- +25: +$cppawk ' +#include + +BEGIN { + print sexp(list()) + print sexp(list(1)) + print sexp(list(1, 2)) + print sexp(list(1, 2, 3)) + print sexp(list(1, 2, 3, 4)) + print sexp(list(1, 2, 3, 4, 5)) + print sexp(list(1, 2, 3, 4, 5, 6)) + print sexp(list(1, 2, 3, 4, 5, 6, 7)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)) + print sexp(list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)) + print sexp(list(list(list(1, 2), list(3, 4)), list(list(5, 6), list(7, 8)))) +}' +: +nil +(1) +(1 2) +(1 2 3) +(1 2 3 4) +(1 2 3 4 5) +(1 2 3 4 5 6) +(1 2 3 4 5 6 7) +(1 2 3 4 5 6 7 8) +(1 2 3 4 5 6 7 8 9) +(1 2 3 4 5 6 7 8 9 10) +(1 2 3 4 5 6 7 8 9 10 11) +(1 2 3 4 5 6 7 8 9 10 11 12) +(1 2 3 4 5 6 7 8 9 10 11 12 13) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) +(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32) +(((1 2) (3 4)) ((5 6) (7 8))) +-- +26: +$cppawk ' +#include +BEGIN { + list(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33) +}' +: +ERR +-- +27: +$cppawk ' +#include + +BEGIN { + print sexp(append()) + print sexp(append(nil)) + print sexp(append(1)) + print sexp(append(list(1), 1)) + print sexp(append(list(1), list(2), 3)) + print sexp(append(list(1, 2), list(3, 4), list(5, 6, 7))) +}' +: +nil +nil +1 +(1 . 1) +(1 2 . 3) +(1 2 3 4 5 6 7) +-- +28: +$cppawk ' +#include + +BEGIN { + print append(nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil) +}' +: +ERR +-- +29: +$cppawk ' +#include + +BEGIN { + print append(1, 2) +}' +: +ERR +-- +30: +$cppawk --prepro-only ' +#include + +li(1) +li(1, 2) +li(1, 2, 3) +listar(1) +listar(1, 2) +listar(1, 2, 3) +' | $cppawk '/^__cons/,0' +: +__cons(1, "") +__cons(1, __cons(2, "")) +__cons(1, __cons(2, __cons(3, ""))) +1 +__cons(1, 2) +__cons(1, __cons(2, 3)) -- cgit v1.2.3