From feb11c09caa22207cbf53bf7cfcdeca42d661b8b Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Sun, 14 Aug 2016 16:55:56 +0300
Subject: Update intarray test and ok files.

---
 test/intarray.awk | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

(limited to 'test/intarray.awk')

diff --git a/test/intarray.awk b/test/intarray.awk
index 2c30bd5f..8785ea9e 100644
--- a/test/intarray.awk
+++ b/test/intarray.awk
@@ -1,10 +1,19 @@
 BEGIN {
-	nf = split("5 |05|0x4|00| 5|-0x12| 011|-013", f, "|")
+	nf = split("5 |05|0x4|00| 5|-0x12| 011|-013|1.0|5.1e1|-5|-05|+2", f, "|")
 	for (i = 1; i <= nf; i++) {
+		delete g
+		g[f[i]]
+		for (x in g) {
+			if (x"" != f[i]"")
+				printf "Error in string test: [%s] != [%s]\n", x, f[i]
+		}
+
 		delete g
 		z = f[i]+0	# trigger numeric conversion
 		g[f[i]]
-		for (x in g)
-			printf "[%s]\n", x
+		for (x in g) {
+			if (x"" != f[i]"")
+				printf "Error in strnum test: [%s] != [%s]\n", x, f[i]
+		}
 	}
 }
-- 
cgit v1.2.3