ref: 10e72d182aad860492f6ec2e80b0c05a4dc20b7a
parent: 4defc0a705893f36adeed5ffd358b4d178ee8f31
author: qwx <qwx@sciops.net>
date: Mon Oct 13 23:10:32 EDT 2025
test: add testcase for printf %c truncation, make Compare.T1 useful
--- a/test/Compare.T1
+++ b/test/Compare.T1
@@ -3,5 +3,44 @@
oldawk=trueawk
awk=kwa
-for(i in T.*)
+working=(\
+ T.-f-f \
+ T.chem \
+ T.csconcat \
+ T.delete \
+ T.exprconv \
+ T.func \
+ T.getline \
+ T.lilly \
+ T.main \
+ T.redir \
+ T.system \
+)
+
+broken=(\
+ T.argv \
+ T.arnold \
+ T.builtin \
+ T.close \
+ T.clv \
+ T.errmsg \
+ T.expr \
+ T.flags \
+ T.int-expr \
+ T.latin1 \
+ T.misc \
+ T.nextfile \
+ T.overflow \
+ T.re \
+ T.recache \
+ T.split \
+ T.sub \
+ T.utf \
+ T.utfre \
+)
+
+for(i in $working)
+ ./$i
+echo known broken
+for(i in $broken)
./$i
--- /dev/null
+++ b/test/t.printf3
@@ -1,0 +1,6 @@
+{+ printf "%%: %s ... %s \t", $2, $1
+ x = sprintf("%8d %10.10s %u %o %x", $1, $2, $3, $3, $3*$4)+ x = x sprintf(" %c_%c_", $1, $2)+ print x
+}
--
⑨