diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-04-05 19:22:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-04-05 19:22:52 -0700 |
| commit | 1c77097f7ebb99142ac349d98b3e87cb8b96020a (patch) | |
| tree | 4ed1c1aace49e1e2e69063a4f3ec337b37888351 /testcases-cons | |
| parent | 4bd486a99fff29ad18eef64dee6c704319874048 (diff) | |
| download | cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.tar.gz cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.tar.bz2 cppawk-1c77097f7ebb99142ac349d98b3e87cb8b96020a.zip | |
Add box_str function.
Diffstat (limited to 'testcases-cons')
| -rw-r--r-- | testcases-cons | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/testcases-cons b/testcases-cons index b4352ae..99c150b 100644 --- a/testcases-cons +++ b/testcases-cons @@ -216,10 +216,14 @@ $cppawk ' BEGIN { print box_sym(undef), box_sym(1), box_sym("1a"), box_sym(0), box_sym(-1.34) print "A" box_sym("nil") "B", box_sym("abc"), box_sym("()") + print box_str(undef), box_str(1), box_str("1a"), box_str(0), box_str(-1.34) + print "A" box_str("nil") "B", box_str("abc"), box_str("()") }' : S S1 S1a S0 S-1.34 AB Sabc S() +T T1 T1a T0 T-1.34 +ATnilB Tabc T() -- 16: $cppawk ' |