diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-01-09 22:27:55 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-01-09 22:27:55 (GMT) |
| commit | e982a364fecc22652b73ef789f073bd6a617ec26 (patch) | |
| tree | 2287e0f1be4b376ddb85843f99fe978ea24bf2e2 /vms/tools/h5ls/check_h5ls.com | |
| parent | 0545c915c368b69e613b4b86108ad0b1d644b3d4 (diff) | |
| download | hdf5-e982a364fecc22652b73ef789f073bd6a617ec26.zip hdf5-e982a364fecc22652b73ef789f073bd6a617ec26.tar.gz hdf5-e982a364fecc22652b73ef789f073bd6a617ec26.tar.bz2 | |
[svn-r14390] Maintenance for VMS system before the final release:
Updated utilities test scripts to make output more legible; fixed some typos.
Added four new expected output files to avoid false negative reports
for the h5dump tests (for ones that expect to have error report in them).
Updated MANIFEST to reflect the changes.
Platforms tested:
VMS server (more testing is on the way)
Diffstat (limited to 'vms/tools/h5ls/check_h5ls.com')
| -rw-r--r-- | vms/tools/h5ls/check_h5ls.com | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/vms/tools/h5ls/check_h5ls.com b/vms/tools/h5ls/check_h5ls.com index f9865a9..daa601d 100644 --- a/vms/tools/h5ls/check_h5ls.com +++ b/vms/tools/h5ls/check_h5ls.com @@ -97,8 +97,8 @@ $TOOLTEST: SUBROUTINE $ $ len = F$LENGTH(P1) $ base = F$EXTRACT(0,len-2,P1) -$ actual = base + "out" -$ actual_err = base + "err" +$ actual = base + "h5lsout" +$ actual_err = base + "h5lserr" $ $ begin = "Testing h5ls " $ ! @@ -117,7 +117,7 @@ $ if F$SEARCH(actual_err) .NES. "" $ then $ set message/notext/nofacility/noidentification/noseverity $ append 'actual_err' 'actual' -$ set message/ntext/facility/identification/severity +$ set message/text/facility/identification/severity $ endif $ ! $ ! Compare the results @@ -150,8 +150,9 @@ $ append h5ls_temp.dif h5ls.log $ ! $ ! Delete temporary files $ ! -$! del *.out;* -$! del *.dif;* +$ if F$SEARCH("*.h5lserr;*") then del *.h5lserr;* +$ if F$SEARCH("*.h5lsout;*") then del *.h5lsout;* +$ if F$SEARCH("*.dif;*") then del *.dif;* $ ! $ENDSUBROUTINE |