diff options
Diffstat (limited to 'vms/tools/h5dump/check_h5dump.com')
-rw-r--r-- | vms/tools/h5dump/check_h5dump.com | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/vms/tools/h5dump/check_h5dump.com b/vms/tools/h5dump/check_h5dump.com index b6268d1..2c34731 100644 --- a/vms/tools/h5dump/check_h5dump.com +++ b/vms/tools/h5dump/check_h5dump.com @@ -33,12 +33,6 @@ $ temp = F$EXTRACT(0, len-10, current_dir) $ h5dump_dir = temp + "H5DUMP]" $ h5dump :== $sys$disk:'h5dump_dir'h5dump.exe $ ! -$ ! Define output for diff command that compares expected and actual -$ ! outputs of h5dump -$ ! -$ create h5dump.log -$ create h5dump_output.txt -$ ! $ ! h5dump tests $ ! $ @@ -48,7 +42,6 @@ $ ! Test for displaying groups $ CALL TOOLTEST tgroup-1.ddl "tgroup.h5" $ ! Test for displaying the selected groups $ CALL TOOLTEST tgroup-2.ddl "--group=/g2 --group / -g /y tgroup.h5" -$ $ ! Test for displaying simple space datasets $ CALL TOOLTEST tdset-1.ddl "tdset.h5" $ ! Test for displaying selected datasets @@ -237,6 +230,7 @@ $ begin = "Testing h5dump " $ ! $ ! Run the test and save output in the 'actual' file $ ! +$ $ define/nolog sys$output 'actual' $ define/nolog sys$error 'actual_err' $ write sys$output "#############################" @@ -279,14 +273,17 @@ $ write sys$output line $ ! $ ! Append the result to the log file $ ! -$ append h5dump_temp.dif h5dump.log -$ append 'actual' h5dump_output.txt +$ append/new_version h5dump_temp.dif h5dump.log +$ append/new_version 'actual' h5dump_output.txt $ ! $ ! Delete temporary files $ ! -$ if F$SEARCH("*.h5dumpout;*") then del *.h5dumpout;* -$ if F$SEARCH("*.h5dumperr;*") then del *.h5dumperr;* -$ if F$SEARCH("*.dif;*") then del *.dif;* +$ if F$SEARCH(actual_err) .NES. "" +$ then +$ del *.h5dumperr;* +$ endif +$ del *.h5dumpout;* +$ del h5dump_temp.dif;* $ ! $ENDSUBROUTINE $ @@ -340,14 +337,17 @@ $ write sys$output line $ ! $ ! Append the result to the log file $ ! -$ append h5dump_temp.dif h5dump.log -$ append 'actual' h5dump_output.txt +$ append/new_version h5dump_temp.dif h5dump.log +$ append/new_version 'actual' h5dump_output.txt $ ! $ ! Delete temporary files $ ! -$ if F$SEARCH("*.h5dumpout;*") then del *.h5dumpout;* -$ if F$SEARCH("*.h5dumperr;*") then del *.h5dumperr;* -$ if F$SEARCH("*.dif;*") then del *.dif;* +$ if F$SEARCH(actual_err) .NES. "" +$ then +$ del *.h5dumperr;* +$ endif +$ del *.h5dumpout;* +$ del h5dump_temp.dif;* $ ! $ENDSUBROUTINE |