diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-03-29 08:36:06 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-03-29 08:36:06 -0700 |
| commit | de1edfb63a874d62fee0a3bfe176712d48c4927b (patch) | |
| tree | 1e13348ea4cdb8a977406695de72814385b1860e /testcases-narg | |
| parent | e1586f173a45902fa29cd3727e0a5f74be952094 (diff) | |
| download | cppawk-de1edfb63a874d62fee0a3bfe176712d48c4927b.tar.gz cppawk-de1edfb63a874d62fee0a3bfe176712d48c4927b.tar.bz2 cppawk-de1edfb63a874d62fee0a3bfe176712d48c4927b.zip | |
narg: test case exercising all arg list lengths.
Diffstat (limited to 'testcases-narg')
| -rw-r--r-- | testcases-narg | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testcases-narg b/testcases-narg index 67ccee6..9f8f55c 100644 --- a/testcases-narg +++ b/testcases-narg @@ -55,3 +55,18 @@ $cppawk ' BEGIN { print scol(1, (2, 3)) }' : [1 : 2 : 3] +-- +6: +x=2 +args=1 +revargs=1 +while [ $x -lt 33 ] ; do + args="$args, $x" + revargs="$x $revargs" + [ "$($cppawk "#include <narg.h> + BEGIN { print revarg($args) }")" = "$revargs" ] || exit 1 + x=$((x + 1)) +done +echo okay +: +okay |