1 files changed, 18 insertions, 0 deletions
diff --git a/old-extension/testsparr.awk b/old-extension/testsparr.awk
new file mode 100644
index 00000000..648a21a2
--- /dev/null
+++ b/old-extension/testsparr.awk
@@ -0,0 +1,18 @@
+# ../gawk -lsparr -f testsparr.awk
+BEGIN {
+	extension("sparr")
+	print SYS["time"]
+	SYS["readline"] = "sparr.c";
+	printf("File %s has %d lines\n", SYS["readline"], length(READLINE)) 
+	SYS["readline"] = "testsparr.awk";
+	printf("File %s has %d lines\n", SYS["readline"], length(READLINE)) 
+	for (i = 1; i in READLINE; i++)
+		print READLINE[i]
+
+	system("sleep 1")
+
+#	PROCINFO["/dev/stdin", "READ_TIMEOUT"] = 1000
+#	getline < "/dev/stdin"
+
+	print SYS["time"]
+}