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 /test/readdir0.awk | |
| parent | 2836a375814d69a2a76336a142a73e86b446cf22 (diff) | |
| download | egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.tar.gz egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.tar.bz2 egawk-9f5ec4e56b5e91b70c7f2148c6f3589453ab00f2.zip | |
Improve capability of readdir test.
Diffstat (limited to 'test/readdir0.awk')
| -rw-r--r-- | test/readdir0.awk | 8 |
1 files changed, 5 insertions, 3 deletions
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) |