Merge branch 'xgawk'

1 files changed, 25 insertions, 0 deletions

diff --git a/test/filefuncs.awk b/test/filefuncs.awk
new file mode 100644
index 00000000..aa532741
--- /dev/null
+++ b/test/filefuncs.awk
@@ -0,0 +1,25 @@
+@load "filefuncs"
+
+BEGIN {
+   if (chdir("..") < 0) {
+      printf "Error: chdir failed with ERRNO %s\n", ERRNO
+      exit 1
+   }
+
+   if (stat(ARGV[0], st) < 0) {
+      printf "Error: stat(%s) failed with ERRNO %s\n", ARGV[0], ERRNO
+      exit 1
+   }
+
+   nf = split("name dev ino mode nlink uid gid size blocks atime mtime ctime pmode type", f)
+
+   for (i = 1; i <= nf; i++) {
+      if (!(f[i] in st)) {
+	 printf "stat value for %s is missing\n",f[i]
+	 rc = 1
+      }
+      else
+	 delete st[f[i]]
+   }
+   exit rc+0
+}