From 6a2caf2157d87b4b582b2494bdd7d6a688dd0b1f Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Fri, 16 Jul 2010 14:49:57 +0300
Subject: Move to gawk-3.1.6.

---
 test/fmtspcl.awk | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 test/fmtspcl.awk

(limited to 'test/fmtspcl.awk')

diff --git a/test/fmtspcl.awk b/test/fmtspcl.awk
new file mode 100644
index 00000000..6f037a3a
--- /dev/null
+++ b/test/fmtspcl.awk
@@ -0,0 +1,26 @@
+function display(x,str,  i,res) {
+	for (i = 0; i < n; i++) {
+		if ((res = sprintf(formats[i],x)) != str)
+			printf "sprintf(%s,%s) = %s (!= %s)\n",
+			       formats[i],x,res,str
+	}
+}
+
+BEGIN {
+	nan = sqrt(-1)
+	nan_str = sprintf("%f",nan)
+	nnan_str = sprintf("%f",-nan)
+	inf = -log(0)
+	inf_str = sprintf("%f",inf)
+
+	n = 0
+	formats[n++] = "%f"
+	formats[n++] = "%s"
+	formats[n++] = "%g"
+	formats[n++] = "%x"
+	formats[n++] = "%d"
+	display(nan,nan_str)
+	display(-nan,nnan_str)
+	display(inf,inf)
+	display(-inf,"-"inf_str)
+}
-- 
cgit v1.2.3