diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2014-02-14 13:25:02 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2014-02-14 13:25:02 +0200 |
| commit | ddf5569cacf57c9dfebb3dd3db325da7fbbd033e (patch) | |
| tree | 30e36aa562196c03bfb53d06b050bc75df693a06 /vms/vmstest.com | |
| parent | 858d9d8eeb7c0869b035c850e0646204302c2229 (diff) | |
| parent | a6131306dd49537de45afdfdc6d4ad2dcac7655b (diff) | |
| download | egawk-ddf5569cacf57c9dfebb3dd3db325da7fbbd033e.tar.gz egawk-ddf5569cacf57c9dfebb3dd3db325da7fbbd033e.tar.bz2 egawk-ddf5569cacf57c9dfebb3dd3db325da7fbbd033e.zip | |
Merge branch 'gawk-4.1-stable'
Diffstat (limited to 'vms/vmstest.com')
| -rw-r--r-- | vms/vmstest.com | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/vms/vmstest.com b/vms/vmstest.com index 4b5e2d5c..30bdbf22 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -606,6 +606,14 @@ $ ! this test could fail on slow machines or on a second boundary, $ ! so if it does, double check the actual results $ ! This test needs SYS$TIMEZONE_NAME and SYS$TIMEZONE_RULE $ ! to be properly defined. +$ ! This test now needs GNV Corutils to work +$ date_bin = "gnv$gnu:[bin]gnv$date.exe" +$ if f$search(date_bin) .eqs. "" +$ then +$ echo "''test' skipped" +$ return +$ endif +$ date := $'date_bin' $!! date | gawk -v "OUTPUT"=_strftime.tmp -f strftime.awk $ now = f$time() $ wkd = f$extract(0,3,f$cvtime(now,,"WEEKDAY")) @@ -1902,7 +1910,8 @@ $ then $ call exit_code '$status' _'test'.tmp $ write sys$output _'test'.tmp $ else -$ rm _'test'.tmp;*,_'test'.;* +$ if f$search("_''test'.tmp") .nes. "" then rm _'test'.tmp;* +$ if f$search("_''test'.") .nes. "" then rm _'test'.;* $ endif $ set On $ return |