philipp/hdf5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[svn-r14394] Maintenance on VMS: cleaned up the scripts to avoid the annoying warning messages

Browse Source 
and to delete temporary files

Platforms tested: VMS server
This commit is contained in:
Elena Pourmal
2008-01-10 12:59:00 -05:00
parent 905ff444f4
commit 3c27797b21
4 changed files with 61 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
vms/tools/h5dump/check_h5dump.com
View File

@@ -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