1 files changed, 21 insertions, 5 deletions
diff --git a/test/functab4.awk b/test/functab4.awk
index 0d9d4267..196fcc6d 100644
--- a/test/functab4.awk
+++ b/test/functab4.awk
@@ -6,9 +6,25 @@ function foo()
 }
 
 BEGIN {
-	x = FUNCTAB["chdir"]
-	print "x =", x
-	@x("/tmp")
-	printf "we are now in --> "
-	system("/bin/pwd || /usr/bin/pwd")
+	f = FUNCTAB["foo"]
+	@f()
+
+	ret1 = stat(".", data1)
+	print "ret1 =", ret1
+
+	f = "stat"
+	ret2 = @f(".", data2)
+	print "ret2 =", ret2
+
+	problem = 0
+	for (i in data1) {
+		if (! isarray(data1[i])) {
+#			print i, data1[i]
+			if (! (i in data2) || data1[i] != data2[i]) {
+				printf("mismatch element \"%s\"\n", i)
+				problems++
+			}
+		}
+	}
+	print(problems ? (problems+0) "encountered" : "no problems encountered")
 }