[svn-r14138]

2 files changed, 89 insertions, 17 deletions

diff --git a/windows/fortran/test/checkfortrantests.bat b/windows/fortran/test/checkfortrantests.bat
new file mode 100644
index 0000000..db17437
--- /dev/null
+++ b/windows/fortran/test/checkfortrantests.bat
@@ -0,0 +1,89 @@
+@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 hdf5 fortran library

+rem

+rem    Created:  Scott Wegner, 9/6/07

+rem    Modified:

+rem

+

+setlocal enabledelayedexpansion

+pushd %~dp0

+

+rem Clean any variables starting with "HDF5_FORTTEST_", as we use these for our

+rem tests.  Also clear "HDF5_FORTTEST_TESTS", as we will be addding all of our tests

+rem to this variable.

+rem Set at least one variable in set beforehand to avoid error message.

+rem --SJW 9/5/07

+set hdf5_forttest_=foo

+for /f "tokens=1 delims==" %%a in ('set hdf5_forttest_') do set %%a=

+set hdf5_forttest_tests=

+

+goto main

+

+

+rem Function to add a test to the test suite.  

+rem Expects the following parameters:

+rem     %1 - Name of the forttest being tested

+rem     %2 - Relative path of script

+:add_test

+

+    set hdf5_forttest_tests=%hdf5_forttest_tests% %1

+    set hdf5_forttest_%1_test=%CD%\%2\%1

+

+    exit /b

+    

+

+rem Run all of the tests that have been added to the suite.  Print a header

+rem at the beginning of each one.  Short-circuit if a test fails.

+rem Expects the following parameters:

+rem     %1 - release or debug version

+rem     %2 - "dll" or nothing

+:run_tests

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

+        echo.

+        echo.************************************

+        echo.  Testing %%a ^(%1 %2^)

+        echo.************************************

+        

+        rem Only add our parameters for batch scripts.

+        call !hdf5_forttest_%%a_test:.bat= %1 %2!

+        rem Exit early if test fails.

+        if !errorlevel! neq 0 exit /b

+    )

+    

+    rem If we get here, that means all of our tests passed.

+    echo.All Fortran library tests passed.

+

+    exit /b

+

+

+rem This is where we add tests to the suite, and run them all at the end.

+rem Make sure only to run dll versions of tests you build dll for

+rem Also make sure to add *.bat to batch scripts, as the above functions rely

+rem on it for sending parameters.  --SJW 9/6/07

+:main

+

+    call :add_test testhdf5_fortran%2 .\testhdf5_fortran%2\%1

+    call :add_test flush1_fortran%2 .\flush1_fortran%2\%1

+    call :add_test flush2_fortran%2 .\flush2_fortran%2\%1

+    

+    

+    rem Run the tests, passing in which version to run

+    call :run_tests %*

+        

+    popd

+    endlocal & exit /b

+    
\ No newline at end of file
diff --git a/windows/fortran/test/testhdf5_fortran.bat b/windows/fortran/test/testhdf5_fortran.bat
deleted file mode 100755
index 99ff10f..0000000
--- a/windows/fortran/test/testhdf5_fortran.bat
+++ /dev/null
@@ -1,17 +0,0 @@
-@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.

-

-testhdf5_fortran%2\%1\testhdf5_fortran%2

-flush1_fortran%2\%1\flush1_fortran%2

-copy fflush1.h5 flush2_fortran\%1\fflush1.h5

-flush2_fortran%2\%1\flush2_fortran%2