More improvements to array sorting.

1 files changed, 77 insertions, 7 deletions

diff --git a/test/arraysort.awk b/test/arraysort.awk
index 28535528..912d5880 100644
--- a/test/arraysort.awk
+++ b/test/arraysort.awk
@@ -1,11 +1,81 @@
-# Date: Thu, 31 Mar 2011 12:29:09 -0600
 # From: j.eh@mchsi.com
+# March and April 2010
 
-BEGIN { a[100]=a[1]=a["x"]=a["y"]=1; PROCINFO["sorted_in"]="num";
-for (i in a) print i, a[i] }
+BEGIN {
+	print "--- test1 ---"
+	a[1] = b[3] = 5
+	a[2] = b[2] = "3D"
+	a[3] = b[1] = 10
+	asort(a)
+	asort(b)
+	for (i = 1; i <= 3; ++i)
+		printf("  %2s  %-2s\n", (a[i] ""), (b[i] ""))
 
-BEGIN { a[100]=a[1]=a["x"]=1; PROCINFO["sorted_in"]="num";
-for (i in a) print i, a[i] }
+	delete a
+	delete b
+}
 
-BEGIN { a[0]=a[100]=a[1]=a["x"]=1;  PROCINFO["sorted_in"]="num";
-for (i in a) print i, a[i] }
+BEGIN {
+	print "--- test2 ---"
+	a[100] = a[1] = a["x"] = a["y"] = 1
+	PROCINFO["sorted_in"] = "num"
+	for (i in a)
+		print i, a[i]
+	delete a
+}
+
+BEGIN {
+	print "--- test3 ---"
+	a[100] = a[1] = a["x"] = 1
+	PROCINFO["sorted_in"] = "num"
+	for (i in a)
+		print i, a[i]
+	delete a
+}
+
+BEGIN {
+	print "--- test4 ---"
+	a[0] = a[100] = a[1] = a["x"] = 1
+	PROCINFO["sorted_in"] = "num"
+	for (i in a)
+		print i, a[i]
+	delete a
+}
+
+BEGIN {
+	print "--- test5 ---"
+	a[""] = a["y"] = a[0] = 1
+	PROCINFO["sorted_in"] = "num"
+	for (i in a)
+		print i, a[i]
+	delete a
+}
+
+BEGIN {
+	print "--- test6 ---"
+	a[2] = a[1] = a[4] = a["3 "] = 1
+	PROCINFO["sorted_in"] = "num"
+	for (i in a)
+		print "\""i"\""
+	delete a
+}
+
+
+BEGIN {
+        print "--- test7 ---"
+	n = split(" 4 \n 3\n3D\nD3\n3\n0\n2\n4\n1\n5", a, "\n")
+	for (i = 1; i <= n; i++)
+		b[a[i]] = a[i]
+	print "--asc ind str--"
+	PROCINFO["sorted_in"] = "asc ind str"
+	for (i in b)
+		print "|"i"|"b[i]
+	print "--asc ind num--"
+	PROCINFO["sorted_in"] = "asc ind num"
+	for (i in b)
+		print "|"i"|"b[i]
+	print "--asc val num--"
+	PROCINFO["sorted_in"] = "asc val num"
+	for (i in b)
+		print "|"i"|"b[i]
+}