summaryrefslogtreecommitdiffstats
path: root/windows/test/testerror.bat
blob: 844e69cada79affede5b521207da3d5859f55848 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
@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 test_error and err_compat 

rem

rem    Created:  Scott Wegner, 8/16/07

rem    Modified: 


setlocal enabledelayedexpansion
pushd %~dp0

rem Determine backwards compatibility options enabled

rem set deprecated_symbols=%deprecated_symbols%


set /a nerrors=0
set verbose=yes

if not exist .\testfiles mkdir testfiles

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! %%a
        ) )
    )
    set test_msg=%test_msg%                                                                
    echo.%test_msg:~0,69% %1
    
    exit /b


rem Run a test and print PASS or *FAIL*.  If a test fails then increment

rem the `nerrors' global variable and (if $verbose is set) display the

rem difference between the actual output and the expected output. The

rem expected output is given as the first argument to this function and

rem the actual output file is calculated by replacing the `.ddl' with

rem `.out'.  The actual output is not removed if $HDF5_NOCLEANUP has a

rem non-zero value.

rem

:test
    rem The test name
    set test_err=%1%3
    rem The path of the test binary
    set test_err_bin=%cd%\%test_err%\%2\%test_err%
    
    set expect1=%cd%\testfiles\%~n1_1
    set expect2=%cd%\testfiles\%~n1_2
    set expect1_parsed=%~n1_1.parsed
    set expect2_parsed=%~n1_2.parsed
    set actual=%~n1.out
    set actual_err=%~n1.err
    set actual_ext=%~n1.ext
    
    rem Run test
    (
        echo.#############################
        echo.Expected output for %1 
        echo.#############################
        %test_err_bin%
    ) >%actual% 2>%actual_err%
    rem Extract file name, line number, version and thread IDs because they may 
    rem be different
    
    rem Also filter out lines starting with *****, because Windows treats these
    rem as wildcards, and parses as filenames.  -SJW, 8/16/07
    type nul > %actual_ext%
    for /f "delims=" %%a in (%actual_err%) do (
        set line_tmp=%%a
        if not "!line_tmp:~0,9!"=="*********" (
            set line=
            set last_token=
            set skip=
            for %%b in (%%a) do (
                if not defined skip (
                    if "!last_token!"=="thread" (
                        set line=!line! ^(IDs^):
                        
                    ) else if "!last_token!"=="some" (
                        if "%%b"=="thread:" (

                            set line=!line! thread ^(IDs^):

                            set skip=yes

                        ) else (

                            set line=!line! some %%b

                        )

                        

                    ) else if "!last_token:~0,2!"=="#0" (

                        set line=!line! ^(file name^)

                        

                    ) else if "!last_token!"=="HDF5" (

                        rem Check if we wrap parenthesis around "version (number)"

                        set version_token=%%b

                        if "!version_token:~0,1!"=="(" (

                            set line=!line! ^(version ^(number^)^)

                        ) else (

                            set line=!line! version ^(number^).

                        )

                        

                    ) else if "!last_token!"=="line" (

                        set line=!line! ^(number^)

                        

                    ) else if not "%%b"=="some" (
                        set line=!line! %%b
                    )
                    set last_token=%%b
                )
            )
            echo.!line!>>%actual_ext%
        )
    )
    type %actual_ext% >> %actual%
    
    rem We parse through our expected output file in a similar way, because
    rem Windows will parse out commas and other special characters as well.
    rem    -SJW, 8/16/07
    for %%a in (expect1 expect2) do (
        type nul > !%%a_parsed!
        for /f "delims=" %%b in (!%%a!) do (
            set line_tmp=%%b
            if not "!line_tmp:~0,9!"=="*********" (
                set line=
                for %%c in (%%b) do (
                    set line=!line! %%c
                )
                echo.!line!>>!%%a_parsed!
            )
        )
    )
        
    fc /w %expect1_parsed% %actual% > nul
    if %errorlevel% equ 0 (
            call :testing PASSED %test_err%
    ) else (
        fc /w %expect2_parsed% %actual% > nul
        if !errorlevel! equ 0 (
            call :testing PASSED %test_err%
        ) else (
            call :testing *FAILED* %test_err%
            echo.    Expected result differs from actual result
            set /a nerrors=%nerrors%+1
            if "yes"=="%verbose%" fc %expect1_parsed% %actual%

        )

    )

    

    rem Clean up output file

    if not defined HDF5_NOCLEANUP (

        for %%a in (%actual% %actual_err% %actual_ext% %expect1_parsed% %expect2_parsed%) do del /f %%a

    )

    

    exit /b

    

    

rem Print a "SKIP" message

:skip

    call :testing -SKIP- %*

    

    exit /b

    

    

rem ##############################################################################

rem ##############################################################################

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

rem ##############################################################################

rem ##############################################################################



:main



    rem test for err_compat

    if "%deprecated_symbols%"=="yes" (
        call :skip err_compat %1 %2
    ) else (
        call :test err_compat %1 %2
    )

    rem test for error_test
    call :test error_test %1 %2

    if %nerrors% equ 0 (
        echo.All Error API tests passed.
    )
    
    popd
    endlocal & exit /b %nerrors%