Merge branch 'extgawk'

1 files changed, 33 insertions, 0 deletions

diff --git a/test/rwarray.awk b/test/rwarray.awk
new file mode 100644
index 00000000..5d1b7e9d
--- /dev/null
+++ b/test/rwarray.awk
@@ -0,0 +1,33 @@
+@load "rwarray"
+
+BEGIN {
+	while ((getline word) > 0)
+		dict[word] = word word
+
+	n = asorti(dict, dictindices)
+	for (i = 1; i <= n; i++)
+		printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "orig.out"
+	close("orig.out");
+
+	ret = writea("orig.bin", dict)
+	printf "writea() returned %d, expecting 1\n", ret
+
+ 
+	ret = reada("orig.bin", dict)
+	printf "reada() returned %d, expecting 1\n", ret
+
+	n = asorti(dict, dictindices)
+	for (i = 1; i <= n; i++)
+		printf("dict[%s] = %s\n", dictindices[i], dict[dictindices[i]]) > "new.out"
+	close("new.out");
+
+	ret = system("cmp orig.out new.out")
+
+	if (ret == 0)
+		print "old and new are equal - GOOD"
+	else
+		print "old and new are not equal - BAD"
+
+	if (ret == 0 && !("KEEPIT" in ENVIRON))
+		system("rm -f orig.bin orig.out new.out")
+}