summaryrefslogtreecommitdiffstats
path: root/vms/tools/h5dump/check_h5dump.com
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-01-09 22:27:55 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-01-09 22:27:55 (GMT)
commite982a364fecc22652b73ef789f073bd6a617ec26 (patch)
tree2287e0f1be4b376ddb85843f99fe978ea24bf2e2 /vms/tools/h5dump/check_h5dump.com
parent0545c915c368b69e613b4b86108ad0b1d644b3d4 (diff)
downloadhdf5-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/h5dump/check_h5dump.com')
-rw-r--r--vms/tools/h5dump/check_h5dump.com89
1 files changed, 19 insertions, 70 deletions
diff --git a/vms/tools/h5dump/check_h5dump.com b/vms/tools/h5dump/check_h5dump.com
index 59ded4f..b6268d1 100644
--- a/vms/tools/h5dump/check_h5dump.com
+++ b/vms/tools/h5dump/check_h5dump.com
@@ -16,6 +16,13 @@ $ !
$ ! This command file tests h5dump utility. The command file has to
$ ! run in the [hdf5-top.tools.testfiles] directory.
$ !
+$ type sys$input
+
+===================================
+ Testing h5dump utiltity
+===================================
+
+$
$ !
$ ! Define h5dump symbol
$ !
@@ -40,23 +47,17 @@ $
$ ! Test for displaying groups
$ CALL TOOLTEST tgroup-1.ddl "tgroup.h5"
$ ! Test for displaying the selected groups
-$ type sys$input
- This test reports false negative; check h5dump_output.txt file
$ 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
-$ type sys$input
- This test reports false negative; check h5dump_output.txt file
$ CALL TOOLTEST tdset-2.ddl "-"""H""" -d dset1 -d /dset2 --dataset=dset3 tdset.h5"
$ ! Test for displaying attributes
$ CALL TOOLTEST tattr-1.ddl "tattr.h5"
$ ! Test for displaying the selected attributes of string type and scalar space
$ CALL TOOLTEST tattr-2.ddl "-a /attr1 --attribute /attr4 --attribute=/attr5 tattr.h5"
$ ! Test for header and error messages
-$ type sys$input
- This test reports false negative; check h5dump_output.txt file
$ CALL TOOLTEST tattr-3.ddl "--header -a /attr2 --attribute=/attr tattr.h5"
$ ! Test for displaying attributes in shared datatype (also in group and dataset)
$ CALL TOOLTEST tnamed_dtype_attr.ddl "tnamed_dtype_attr.h5"
@@ -159,8 +160,6 @@ $ CALL TOOLTEST tboot1.ddl "-"""H""" -"""B""" -d dset tfcontents1.h5"
$ CALL TOOLTEST tboot2.ddl "-"""B""" tfcontents2.h5"
$
$ ! Test -p with a non existing dataset
-$ type sys$input
- This test reports false negative; check h5dump_output.txt file
$ CALL TOOLTEST tperror.ddl "-p -d bogus tfcontents1.h5"
$
$ ! Test for file contents
@@ -191,58 +190,6 @@ $
$ ! Array indices print/not print
$ CALL TOOLTEST tindicesyes.ddl "taindices.h5"
$ CALL TOOLTEST tindicesno.ddl "-y taindices.h5"
-$
-$
-$ ! tests for filters
-$ ! SZIP
-$ !option="-H -p -d szip tfilters.h5"
-$ !if test $USE_FILTER_SZIP != "yes"; then
-$ !SKIP $option
-$ !else
-$ !CALL TOOLTEST tszip.ddl $option
-$ !fi
-$ !# deflate
-$ !option="-H -p -d deflate tfilters.h5"
-$ !if test $USE_FILTER_DEFLATE != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tdeflate.ddl $option
-$ !fi
-$ !# shuffle
-$ !option="-H -p -d shuffle tfilters.h5"
-$ !if test $USE_FILTER_SHUFFLE != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tshuffle.ddl $option
-$ !fi
-$ !# fletcher32
-$ !option="-H -p -d fletcher32 tfilters.h5"
-$ !if test $USE_FILTER_FLETCHER32 != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tfletcher32.ddl $option
-$ !fi
-$ !# nbit
-$ !option="-H -p -d nbit tfilters.h5"
-$ !if test $USE_FILTER_NBIT != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tnbit.ddl $option
-$ !fi
-$ !# scaleoffset
-$ !option="-H -p -d scaleoffset tfilters.h5"
-$ !if test $USE_FILTER_SCALEOFFSET != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tscaleoffset.ddl $option
-$ !fi
-$ !# all
-$ !option="-H -p -d all tfilters.h5"
-$ !if test $USE_FILTER_FLETCHER32 != "yes" -o $USE_FILTER_SZIP != "yes" -o $USE_FILTER_DEFLATE != "yes" -o $USE_FILTER_SHUFFLE != "yes" -o $USE_FILTER_NBIT != "yes" -o $USE_FILTER_SCALEOFFSET != "yes"; then
-$ ! SKIP $option
-$ !else
-$ ! CALL TOOLTEST tallfilters.ddl $option
-$ !fi
$ ! User defined
$ CALL TOOLTEST tuserfilter.ddl "-"""H""" -p -d myfilter tfilters.h5"
$
@@ -283,8 +230,8 @@ $TOOLTEST: SUBROUTINE
$
$ len = F$LENGTH(P1)
$ base = F$EXTRACT(0,len-3,P1)
-$ actual = base + "out"
-$ actual_err = base + "err"
+$ actual = base + "h5dumpout"
+$ actual_err = base + "h5dumperr"
$
$ begin = "Testing h5dump "
$ !
@@ -303,7 +250,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
@@ -337,8 +284,9 @@ $ append 'actual' h5dump_output.txt
$ !
$ ! Delete temporary files
$ !
-$ del *.out;*
-$ del *.dif;*
+$ if F$SEARCH("*.h5dumpout;*") then del *.h5dumpout;*
+$ if F$SEARCH("*.h5dumperr;*") then del *.h5dumperr;*
+$ if F$SEARCH("*.dif;*") then del *.dif;*
$ !
$ENDSUBROUTINE
$
@@ -346,8 +294,8 @@ $TOOLTEST1: SUBROUTINE
$
$ len = F$LENGTH(P1)
$ base = F$EXTRACT(0,len-3,P1)
-$ actual = base + "out"
-$ actual_err = base + "err"
+$ actual = base + "h5dumpout"
+$ actual_err = base + "h5dumperr"
$
$ begin = "Testing h5dump "
$ !
@@ -363,7 +311,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
@@ -397,8 +345,9 @@ $ append 'actual' h5dump_output.txt
$ !
$ ! Delete temporary files
$ !
-$ del *.out;*
-$ del *.dif;*
+$ if F$SEARCH("*.h5dumpout;*") then del *.h5dumpout;*
+$ if F$SEARCH("*.h5dumperr;*") then del *.h5dumperr;*
+$ if F$SEARCH("*.dif;*") then del *.dif;*
$ !
$ENDSUBROUTINE