diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-30 20:38:32 -0700 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2018-04-30 20:38:32 -0700 |
commit | 9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2 (patch) | |
tree | eb2933ce1c78db4603cfa9eb10d9aa9c23481bfb | |
parent | 2836a375814d69a2a76336a142a73e86b446cf22 (diff) | |
download | egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.tar.gz egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.tar.bz2 egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.zip |
Improve capability of readdir test.
-rw-r--r-- | test/ChangeLog | 6 | ||||
-rw-r--r-- | test/readdir0.awk | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 77666536..ad18eb6e 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,9 @@ +2018-04-30 Arnold D. Robbins <arnold@skeeve.com> + + * readdir0.awk: Handle symbolic links in the top level + source directory. (Useful if testing for PC where the PC + test makefile wants a gawk.exe to exist.) + 2018-04-20 Arnold D. Robbins <arnold@skeeve.com> * Makefile.am (readdir_retest): Use $(srcdir) to reference source diff --git a/test/readdir0.awk b/test/readdir0.awk index 2b7674a4..012826ed 100644 --- a/test/readdir0.awk +++ b/test/readdir0.awk @@ -1,7 +1,6 @@ # NOTE: This program is not a generalized parser for the output of 'ls'. # It's job is to read the output of ls from the gawk source code directory, -# where we know there are no symbolic links, nor are there files with -# spaces in their file names, etc. +# where we know there are no files with spaces in their file names, etc. BEGIN { # analyze results from readdir extension while ((getline x < extout) > 0) { @@ -32,7 +31,10 @@ BEGIN { type_let = substr($0, 1, 1) if (type_let == "-") type_let = "f" - type[$NF] = type_let + if (type_let == "l") + type[$(NF-2)] = type_let + else + type[$NF] = type_let } close(longlist) |