summaryrefslogtreecommitdiffstats
path: root/vms
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2008-01-03 21:04:12 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2008-01-03 21:04:12 (GMT)
commitbedd5c43957be06747a59777de2a386b293a3e10 (patch)
treeeeb0c1928b4beb58446fa63d3ecff5b4a1a04a69 /vms
parent6f820c0a247ee97a35c597d2510320407f10fc7b (diff)
downloadhdf5-bedd5c43957be06747a59777de2a386b293a3e10.zip
hdf5-bedd5c43957be06747a59777de2a386b293a3e10.tar.gz
hdf5-bedd5c43957be06747a59777de2a386b293a3e10.tar.bz2
[svn-r14369] Maintenance: Cleaned up the h5import script and fixed some potential errors.
Platforms tested: not yet, waiting for the server to come back
Diffstat (limited to 'vms')
-rw-r--r--vms/tools/h5import/check_h5import.com51
1 files changed, 32 insertions, 19 deletions
diff --git a/vms/tools/h5import/check_h5import.com b/vms/tools/h5import/check_h5import.com
index 75d2a77..c174f56 100644
--- a/vms/tools/h5import/check_h5import.com
+++ b/vms/tools/h5import/check_h5import.com
@@ -37,52 +37,65 @@ $ ! h5import tests
$ !
$ ! Run h5importtest to create input files
$ !
-$ h5importtest
-$ type sys$input ASCII I32 rank 3 - Output BE
+$ run [.-]h5importtest
+$ type sys$input
+ ASCII I32 rank 3 - Output BE
$ CALL TOOLTEST "txtin32 -c textin32 -o" test1.h5
$ !
-$ type sys$input "ASCII I16 rank 3 - Output LE - CHUNKED - extended"
+$ type sys$input
+ ASCII I16 rank 3 - Output LE - CHUNKED - extended
$ CALL TOOLTEST "txtin16 -c textin16 -o" test2.h5
$ !
-$ type sys$input ASCII I8 - rank 3 - Output I16 LE-Chunked+Extended+Compressed
+$ type sys$input
+ ASCII I8 - rank 3 - Output I16 LE-Chunked+Extended+Compressed
$ CALL TOOLTEST "txtin16 -c textin8 -o" test3.h5
$ !
-$ type sys$input ASCII UI32 - rank 3 - Output BE
+$ type sys$input
+ ASCII UI32 - rank 3 - Output BE
$ CALL TOOLTEST "in1 -c textuin32 -o" test4.h5
$ !
-$ type sys$input ASCII UI16 - rank 2 - Output LE+Chunked+Compressed
+$ type sys$input
+ ASCII UI16 - rank 2 - Output LE+Chunked+Compressed
$ CALL TOOLTEST "in1 -c textuin16 -o" test5.h5
$ !
-$ type sys$input ASCII F32 - rank 3 - Output LE
+$ type sys$input
+ ASCII F32 - rank 3 - Output LE
$ CALL TOOLTEST "fp1 -c textfp32 -o" test6.h5
$ !
-$ type sys$input ASCII F64 - rank 3 - Output BE + CHUNKED+Extended+Compressed
+$ type sys$input
+ ASCII F64 - rank 3 - Output BE + CHUNKED+Extended+Compressed
$ CALL TOOLTEST "fp2 -c textfp64 -o" test7.h5
$ !
-$ type sys$input BINARY F64 - rank 3 - Output LE+CHUNKED+Extended+Compressed
+$ type sys$input
+ BINARY F64 - rank 3 - Output LE+CHUNKED+Extended+Compressed
$ CALL TOOLTEST "bfp64 -c conbfp64 -o" test8.h5
$ !
-$ type sys$input BINARY I16 - rank 3 - Output order LE + CHUNKED + extended
+$ type sys$input
+ BINARY I16 - rank 3 - Output order LE + CHUNKED + extended
$ CALL TOOLTEST "bin16 -c conbin16 -o" test9.h5
$ !
-$ type sys$input BINARY I8 - rank 3 - Output I16LE + Chunked+Extended+Compressed
+$ type sys$input
+ BINARY I8 - rank 3 - Output I16LE + Chunked+Extended+Compressed
$ CALL TOOLTEST "bin8 -c conbin8 -o" test10.h5
$ !
-$ type sys$input BINARY I32 - rank 3 - Output BE + CHUNKED
+$ type sys$input
+ BINARY I32 - rank 3 - Output BE + CHUNKED
$ CALL TOOLTEST "bin32 -c conbin32 -o" test11.h5
$ !
-$ type sys$input BINARY UI16 - rank 3 - Output byte BE + CHUNKED
+$ type sys$input
+ BINARY UI16 - rank 3 - Output byte BE + CHUNKED
$ CALL TOOLTEST "buin16 -c conbuin16 -o" test12.h5
$ !
-$ type sys$input BINARY UI32 - rank 3 - Output LE + CHUNKED
+$ type sys$input
+ BINARY UI32 - rank 3 - Output LE + CHUNKED
$ CALL TOOLTEST "buin32 -c conbuin32 -o" test13.h5
$
$
$
$TOOLTEST: SUBROUTINE
$
-$ len = F$LENGTH(P3)
-$ base = F$EXTRACT(0,len-3,P3)
+$ len = F$LENGTH(P2)
+$ base = F$EXTRACT(0,len-3,P2)
$ actual = base + "out.h5"
$ actual_dump = base + "out.txt"
$ actual_dump_err = base + "out.err"
@@ -94,7 +107,7 @@ $ !
$ ! Run h5import with output in the 'actual' file
$ !
$ ON ERROR THEN CONTINUE
-$ h5import 'P2 'actual'
+$ h5import 'P1 'actual'
$ define/nolog sys$output 'actual_dump'
$ define/nolog sys$error 'actual_dump_err'
$ !
@@ -107,11 +120,11 @@ $ if F$SEARCH(actual_dump_err) .NES. ""
$ then
$ set message/notext/nofacility/noidentification/noseverity
$ append 'actual_dump_err' 'actual_dump'
-$ set message/ntext/facility/identification/severity
+$ set message/text/facility/identification/severity
$ endif
$ define/nolog sys$output 'expected_dump'
$ define/nolog sys$error 'expected_dump_err'
-$ h5dump 'P3
+$ h5dump 'P2
$ deassign sys$output
$ deassign sys$error
$ if F$SEARCH(expected_dump_err) .NES. ""