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