1 files changed, 40 insertions, 0 deletions
diff --git a/test/rwarray.awk b/test/rwarray.awk
new file mode 100644
index 00000000..0cb214ee
--- /dev/null
+++ b/test/rwarray.awk
@@ -0,0 +1,40 @@
+@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");
+
+	os = ""
+	if (ENVIRON["AWKLIBPATH"] == "sys$disk:[-]") {
+		os = "VMS"
+		# return status from system() on VMS can not be used here
+	}
+	if (os != "VMS") {
+		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")
+	}
+}