diff options
| -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) |