[svn-r14138]

1 files changed, 308 insertions, 0 deletions

diff --git a/windows/tools/h5copy/testh5copy.bat b/windows/tools/h5copy/testh5copy.bat
new file mode 100644
index 0000000..71cfabc
--- /dev/null
+++ b/windows/tools/h5copy/testh5copy.bat
@@ -0,0 +1,308 @@
+@echo off

+rem

+rem Copyright by The HDF Group.

+rem Copyright by the Board of Trustees of the University of Illinois.

+rem All rights reserved.

+rem

+rem This file is part of HDF5.  The full HDF5 copyright notice, including

+rem terms governing use, modification, and redistribution, is contained in

+rem the files COPYING and Copyright.html.  COPYING can be found at the root

+rem of the source code distribution tree; Copyright.html can be found at the

+rem root level of an installed copy of the electronic HDF5 document set and

+rem is linked from the top-level documents page.  It can also be found at

+rem http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have

+rem access to either file, you may request a copy from help@hdfgroup.org.

+rem

+rem Tests for the h5copy tool

+rem

+rem    Created:  Scott Wegner, 8/16/07

+rem    Modified: Scott Wegner, 8/22/07

+rem

+

+

+rem We don't currently build DLL version of h5copy, but this test script is

+rem setup to support it if we do in the future.  --SJW 8/22/07

+

+setlocal enabledelayedexpansion

+pushd %~dp0

+

+rem The tool name

+set h5copy=h5copy%2

+rem The path of the tool binary

+set h5copy_bin=%CD%\%1\%h5copy%

+rem The h5diff tool name

+set h5diff=h5diff%2

+rem The path of the h5diff too binary

+set h5diff_bin=%CD%\..\%h5diff%\%1\%h5diff%

+rem The h5ls tool name

+set h5ls=h5ls%2

+rem Arguments to the h5ls tool

+set h5ls_args=-Svr

+rem The path of the h5ls tool binary

+set h5ls_bin=%CD%\..\%h5ls%\%1\%h5ls%

+

+set /a nerrors=0

+set verbose=yes

+

+set srcfile=h5copytst.h5

+set indir=%CD%\..\testfiles

+set outdir=%CD%\..\testfiles

+

+if not exist %outdir% mkdir %outdir%

+

+goto main

+

+

+rem Print a line-line message left justified in a field of 70 characters

+rem beginning with the word "Testing".

+rem

+:testing

+    set test_msg=Testing

+    for %%a in (%*) do (

+        if %%a neq PASSED (

+        if %%a neq *FAILED* (

+            set test_msg=!test_msg! %%~nxa

+        ) )

+    )

+    set test_msg=%test_msg%                                                                

+    echo.%test_msg:~0,69% %1

+    

+    exit /b

+

+rem Print a line-line message left justified in a field of 70 characters

+rem beginning with the word "Verifying".

+rem

+:verify

+    set verify_msg=Verifying h5diff output

+    for %%a in (%*) do (

+        if %%a neq PASSED (

+        if %%a neq *FAILED* (

+            set verify_msg=!test_msg! %%~nxa

+        ) )

+    )

+    set verify_msg=%verify_msg%                                                                

+    echo.%verify_msg:~0,69% %1

+    

+    exit /b

+

+rem Print a line-line message left justified in a field of 70 characters

+rem beginning with the word "Verifying".

+rem

+:verify_h5ls

+    set verifyh5ls_msg=Verifying h5ls file structure

+    for %%a in (%*) do (

+        if %%a neq PASSED (

+        if %%a neq *FAILED* (

+            set verifyh5ls_msg=!test_msg! %%~nxa

+        ) )

+    )

+    set verifyh5ls_msg=%verifyh5ls_msg%                                                                

+    echo.%verifyh5ls_msg:~0,69% %1

+    

+    exit /b

+

+    

+    

+rem Run a test and print PASS or *FAIL*. If h5copy can complete

+rem with exit status 0, consider it pass. If a test fails then increment

+rem the `nerrors' global variable.

+rem Assumed arguments:

+rem $1 is -i

+rem $2 is input file

+rem $3 is -o

+rem $4 is output file

+rem $* everything else arguments for h5copy.

+

+:tooltest

+    set runh5diff=yes

+    if "%1"=="-i" (

+        set inputfile=%2

+    ) else (

+        set runh5diff=no

+    )

+    if "%3"=="-o" (

+        set outputfile=%4

+    ) else (

+        set h5diff=no

+    )

+    

+    (

+        echo.#############################

+        echo. output for %h5copy%  %*

+        echo.#############################

+        %h5copy_bin% %*

+    ) > output.out

+    

+    if %errorlevel% neq 0 (

+        call :testing *FAILED* %h5copy% %*

+        echo.failed result is:

+        type output.out

+        set /a nerrors=!nerrors!+1

+    ) else (

+        call :testing PASSED %h5copy% %*

+        

+        rem Clean up output file

+        if not defined HDF5_NOCLEANUP (

+            del /f output.out

+        )

+    )

+    

+    if %runh5diff neq no (

+        call :h5difftest %inputfile% %outputfile%

+    )

+    

+    exit /b

+    

+    

+rem Call the h5diff tool

+rem

+:h5difftest

+    %h5diff_bin% %* -q

+    if %errorlevel% neq 0 (

+        call :verify *FAILED* %*

+        set /a nerrors=!nerrors!+1

+    ) else (

+        call :verify PASSED %*

+    )

+    

+    exit /b

+    

+    

+rem Call the h5ls tool to verify the correct output data in the destination file

+rem

+:h5lstest

+    set expect=%indir%\%~n1.ls

+    set expect_parsed=%expect%.parsed

+    set actual=%outdir%\%~n1.out

+    set actual_parsed=%actual%.parsed

+    

+    rem Stderr is included in stdout so that the diff can detect

+    rem any unexpected output from that stream too.

+    rem

+    rem Note: The modification time and storage utilization are masked off

+    rem so that the output is more portable

+    (

+        echo.#############################

+        echo.Expected output for %h5ls% %*

+        echo.#############################

+        %h5ls_bin% %h5ls_args% %*

+    ) > %actual% 2>&1

+    

+    rem Windows doesn't have "sed" command, and parsing the files line-by-line

+    rem to emulate Unix takes a very long time.  Instead, we simply remove lines

+    rem with "Modified" or "Storage".  We also remove lines "Opened (filename) 

+    rem with sec2 driver" and "Expected output for (h5ls test)", because Windows 

+    rem paths differ from Linux.  Do this for actual and expected otput.

+    rem If there is a better alternative in the future, we should use it instead.

+    rem --SJW 8/22/07

+    for %%a in (expect actual) do (

+        findstr /v /c:"    Modified:" !%%a! > tmp.txt

+        findstr /v /c:"    Storage:" tmp.txt > tmp2.txt

+        findstr /v /b /c:"Expected output for " tmp2.txt > tmp.txt

+        findstr /v /b /c:"Opened " tmp.txt > !%%a_parsed!

+    )

+    del /f tmp.txt tmp2.txt

+        

+    rem Don't special case non-existing expected output as Linux does, because

+    rem we depend on it above to parse anyway.  It should be an error if it

+    rem doesn't exist.  --SJW 8/22/07

+rem    if not exist %expect% (

+rem        rem Create the expect file if it doesn't yet exist

+rem        call :verify_h5ls CREATED %*

+rem        copy %actual% %expect%

+rem    ) else (

+    fc %expect_parsed% %actual_parsed% | find "FC: no diff" > nul

+    if %errorlevel% equ 0 (

+        call :verify_h5ls PASSED %*

+    ) else (

+        call :verify_h5ls *FAILED* %*

+        echo.    Expected result ^(*.ls^) differs from actual result ^(*.out^)

+        set /a nerrors=!nerrors!+1

+        if "yes"=="%verbose%" fc %expect_parsed% %actual_parsed%

+    )

+rem    )

+    

+    rem Clean up output file

+    if not defined HDF5_NOCLEANUP (

+        for %%a in (%actual% %actual_parsed% %expect_parsed%) do del /f %%a

+    )

+    

+    exit /b

+    

+    

+    

+rem Copy single datasets of various forms from one group to another,

+rem       adding object copied to the destination file each time

+rem

+rem Assumed arguments:

+rem <none>

+:copyobjects

+    

+    set testfile=%indir%\%srcfile%

+    set fileout=%outdir%\%srcfile:.h5=.out.h5%

+    

+    rem Remove any output file left over from previous test run

+    del /f %fileout% 2> nul

+    

+    echo.Test copying various forms of datasets

+    call :tooltest -i %testfile% -o %fileout% -v -s simple     -d simple

+    call :tooltest -i %testfile% -o %fileout% -v -s chunk      -d chunk

+    call :tooltest -i %testfile% -o %fileout% -v -s compact    -d compact

+    call :tooltest -i %testfile% -o %fileout% -v -s compound   -d compound

+    call :tooltest -i %testfile% -o %fileout% -v -s compressed -d compressed

+    call :tooltest -i %testfile% -o %fileout% -v -s named_vl   -d named_vl

+    call :tooltest -i %testfile% -o %fileout% -v -s nested_vl  -d nested_vl

+

+    echo.Test copying dataset within group in source file to root of destination

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_dsets/simple  -d simple_top

+

+    echo.Test copying ^& renaming dataset.

+    call :tooltest -i %testfile% -o %fileout% -v -s compound   -d rename

+

+    echo.Test copying empty, 'full' ^& 'nested' groups

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_empty  -d grp_empty

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_dsets  -d grp_dsets

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_nested -d grp_nested

+

+    echo.Test copying dataset within group in source file to group in destination

+    call :tooltest -i %testfile% -o %fileout% -v -s /grp_dsets/simple  -d /grp_dsets/simple_group

+

+    echo.Test copying ^& renaming group

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_dsets  -d grp_rename

+

+    echo.Test copying 'full' group hierarchy into group in destination file

+    call :tooltest -i %testfile% -o %fileout% -v -s grp_dsets  -d /grp_rename/grp_dsets

+

+    echo.Test copying objects into group hier. that doesn't exist yet in destination file

+    call :tooltest -i %testfile% -o %fileout% -vp -s simple    -d /A/B1/simple

+    call :tooltest -i %testfile% -o %fileout% -vp -s simple    -d /A/B2/simple2

+    call :tooltest -i %testfile% -o %fileout% -vp -s /grp_dsets/simple    -d /C/D/simple

+    call :tooltest -i %testfile% -o %fileout% -vp -s /grp_dsets -d /E/F/grp_dsets

+    call :tooltest -i %testfile% -o %fileout% -vp -s /grp_nested -d /G/H/grp_nested

+

+    rem Verify that the file created above is correct

+    call :h5lstest %fileout%

+

+    rem Remove output file created, if the "no cleanup" environment variable is

+    rem   not defined

+    if not defined HDF5_NOCLEANUP (

+        del /f %fileout%

+    )

+

+    exit /b

+    

+    

+rem ##############################################################################

+rem ###           T H E   T E S T S                                            ###

+rem ##############################################################################

+

+:main

+    call :copyobjects

+

+    if %nerrors% equ 0 (

+        echo.All h5copy tests passed.

+    )

+    

+    popd

+    endlocal & exit /b %nerrors%

+    
\ No newline at end of file