mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-21 07:51:46 +08:00
228 lines
6.4 KiB
Plaintext
228 lines
6.4 KiB
Plaintext
$!#
|
|
$!# Copyright by The HDF Group.
|
|
$!# Copyright by the Board of Trustees of the University of Illinois.
|
|
$!# All rights reserved.
|
|
$!#
|
|
$!# This file is part of HDF5. The full HDF5 copyright notice, including
|
|
$!# terms governing use, modification, and redistribution, is contained in
|
|
$!# the files COPYING and Copyright.html. COPYING can be found at the root
|
|
$!# of the source code distribution tree; Copyright.html can be found at the
|
|
$!# root level of an installed copy of the electronic HDF5 document set and
|
|
$!# is linked from the top-level documents page. It can also be found at
|
|
$!# http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have
|
|
$!# access to either file, you may request a copy from help@hdfgroup.org.
|
|
$!#
|
|
$ !
|
|
$ ! This command file tests h5import utility. The command file has to
|
|
$ ! run in the [hdf5-top.tools.h5import.testfiles] directory.
|
|
$ !
|
|
$ !
|
|
$ type sys$input
|
|
|
|
===================================
|
|
Testing h5import utiltity
|
|
===================================
|
|
|
|
$ ! Define symbols
|
|
$ !
|
|
$
|
|
$ current_dir = F$DIRECTRY()
|
|
$ len = F$LENGTH(current_dir)
|
|
$ temp = F$EXTRACT(0, len-19, current_dir)
|
|
$ h5dump_dir = temp + "H5DUMP]"
|
|
$ h5dump :== $sys$disk:'h5dump_dir'h5dump.exe
|
|
$ h5import_dir = temp + "H5IMPORT]"
|
|
$ h5import :== $sys$disk:'h5import_dir'h5import.exe
|
|
$ h5importtest :== $sys$disk:'h5import_dir'h5importtest.exe
|
|
$ !
|
|
$ ! Define output for diff command that compares expected and actual
|
|
$ ! outputs of h5dump
|
|
$ !
|
|
$ create h5import.log
|
|
$ !
|
|
$ ! h5import tests
|
|
$ !
|
|
$ ! Run h5importtest to create input files
|
|
$ !
|
|
$ run [.-]h5importtest
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII I32 rank 3 - Output BE
|
|
$ CALL TOOLTEST "txtin16.txt -c txtin32.conf -o" txtin32.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII I16 rank 3 - Output LE - CHUNKED - extended
|
|
$ CALL TOOLTEST "txtin16.txt -c txtin16.conf -o" txtin16.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII I8 - rank 3 - Output I8 LE-Chunked+Extended+Compressed
|
|
$ CALL TOOLTEST "txtin16.txt -c txtin8.conf -o" txtin8.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII UI32 - rank 3 - Output BE
|
|
$ CALL TOOLTEST "txtuin32.txt -c txtuin32.conf -o" txtuin32.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII UI16 - rank 2 - Output LE+Chunked+Compressed
|
|
$ CALL TOOLTEST "txtuin32.txt -c txtuin16.conf -o" txtuin16.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII F32 - rank 3 - Output LE
|
|
$ CALL TOOLTEST "txtfp32.txt -c txtfp32.conf -o" txtfp32.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII F64 - rank 3 - Output BE + CHUNKED+Extended+Compressed
|
|
$ CALL TOOLTEST "txtfp64.txt -c txtfp64.conf -o" txtfp64.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY F64 - rank 3 - Output LE+CHUNKED+Extended+Compressed
|
|
$ CALL TOOLTEST "binfp64.bin -c binfp64.conf -o" binfp64.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY I16 - rank 3 - Output order LE + CHUNKED + extended
|
|
$ CALL TOOLTEST "binin16.bin -c binin16.conf -o" binin16.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY I8 - rank 3 - Output I16LE + Chunked+Extended+Compressed
|
|
$ CALL TOOLTEST "binin8.bin -c binin8.conf -o" binin8.h5
|
|
$ !
|
|
$ type sys$input
|
|
|
|
Testing BINARY I32 - rank 3 - Output BE + CHUNKED
|
|
$ CALL TOOLTEST "binin32.bin -c binin32.conf -o" binin32.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY UI16 - rank 3 - Output byte BE + CHUNKED
|
|
$ CALL TOOLTEST "binuin16.bin -c binuin16.conf -o" binuin16.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY UI32 - rank 3 - Output LE + CHUNKED
|
|
$ CALL TOOLTEST "binuin32.bin -c binuin32.conf -o" binuin32.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing STR
|
|
$ CALL TOOLTEST "txtstr.txt -c txtstr.conf -o" txtstr.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing BINARY I8 CR LF EOF
|
|
$ CALL TOOLTEST "binin8w.bin -c binin8w.conf -o" binin8w.h5
|
|
$ !
|
|
$ type sys$input
|
|
Testing ASCII F64 - rank 1 - INPUT-CLASS TEXTFPE
|
|
$ CALL TOOLTEST "in64.txt -c textpfe.conf -o" test15.h5
|
|
$
|
|
$
|
|
$ ! Delete temporary files
|
|
$ del *_out.h5;*
|
|
$ del *.h5importtxt;*
|
|
$ del b*.h5;*
|
|
$ del txti*.h5;*
|
|
$ del *.dif;*
|
|
$ !
|
|
$
|
|
$TOOLTEST: SUBROUTINE
|
|
$
|
|
$ len = F$LENGTH(P2)
|
|
$ base = F$EXTRACT(0,len-3,P2)
|
|
$ actual = base + "_out.h5"
|
|
$ actual_dump = base + "out.h5importtxt"
|
|
$ actual_dump_err = base + "out.h5importerr"
|
|
$ expected_dump = base + ".h5importtxt"
|
|
$ expected_dump_err = base + ".h5importerr"
|
|
$
|
|
$ begin = "Testing"
|
|
$ !
|
|
$ ! Run h5import with output in the 'actual' file
|
|
$ !
|
|
$ ON ERROR THEN CONTINUE
|
|
$ h5import 'P1 'actual'
|
|
$ define/nolog sys$output 'actual_dump'
|
|
$ define/nolog sys$error 'actual_dump_err'
|
|
$ !
|
|
$ ! Dump the atual and expected files
|
|
$ !
|
|
$ h5dump 'actual'
|
|
$ deassign sys$output
|
|
$ deassign sys$error
|
|
$ if F$SEARCH(actual_dump_err) .NES. ""
|
|
$ then
|
|
$ set message/notext/nofacility/noidentification/noseverity
|
|
$ append 'actual_dump_err' 'actual_dump'
|
|
$ set message/text/facility/identification/severity
|
|
$ endif
|
|
$ define/nolog sys$output 'expected_dump'
|
|
$ define/nolog sys$error 'expected_dump_err'
|
|
$ h5dump 'P2
|
|
$ deassign sys$output
|
|
$ deassign sys$error
|
|
$ if F$SEARCH(expected_dump_err) .NES. ""
|
|
$ then
|
|
$ set message/notex/nofacility/noidentification/noseverity
|
|
$ append 'expected_dump_err' 'expected_dump'
|
|
$ set message/ntext/facility/identification/severity
|
|
$ endif
|
|
$ !
|
|
$ ! Compare the results
|
|
$ !
|
|
$ diff/output=h5dump_temp/ignore=(spacing,trailing_spaces,blank_lines)-
|
|
'actual_dump' -
|
|
'expected_dump'
|
|
$ open/read temp_out h5dump_temp.dif
|
|
$ !
|
|
$READ_DATA:
|
|
$ read/end_of_file=end_read temp_out record1
|
|
$ !
|
|
$ ! Skip blank lines
|
|
$ !
|
|
$ if record1 .EQS. "" then goto READ_DATA
|
|
$ !
|
|
$ ! Find record with "Number" and exit the loop
|
|
$ !
|
|
$ len = F$LENGTH(record1)
|
|
$ pos = F$LOCATE("Number", record1)
|
|
$ !
|
|
$ if pos .EQ. 0
|
|
$ then
|
|
$ err_code = F$EXTRACT(len-1,1,record1)
|
|
$ goto END_READ
|
|
$ endif
|
|
$ !
|
|
$ goto READ_DATA
|
|
$
|
|
$ !
|
|
$END_READ:
|
|
$ close temp_out
|
|
$ !
|
|
$ ! File names are different, so we allow only one difference
|
|
$ ! in h5dump
|
|
$ if err_code .eqs. "1"
|
|
$ then
|
|
$ result = "PASSED"
|
|
$ line = F$FAO("!8AS !62AS !80AS", begin, P1, result)
|
|
$ else
|
|
$ result = "*FAILED*"
|
|
$ line = F$FAO("!8AS !61AS !79AS", begin, P1, result)
|
|
$ endif
|
|
$ !
|
|
$ ! Print test result
|
|
$ !
|
|
$ write sys$output line
|
|
$ !
|
|
$ ! Append the result to the log file
|
|
$ !
|
|
$ append h5dump_temp.dif h5import.log
|
|
$ !
|
|
$ !
|
|
$ !
|
|
$ ! Delete temporary files
|
|
$ !
|
|
$ if F$SEARCH(actual_dump_err) .NES. ""
|
|
$ then
|
|
$ del *out.h5importerr;*
|
|
$ endif
|
|
$ if F$SEARCH(expected_dump_err) .NES. ""
|
|
$ then
|
|
$ del *.h5importerr;*
|
|
$ endif
|
|
$ENDSUBROUTINE
|