code/trunk/RunTest.bat

@echo off
@rem This file must use CRLF linebreaks to function properly
@rem and user must have external findstr command
@rem  This file was contributed by Ralf Junker, and touched up by
@rem  Daniel Richard G. Tests 10-12 added by Philip H.
@rem  Philip H also changed test 3 to use "wintest" files.
@rem
@rem  Updated by Tom Fortmann to support explicit test numbers on the command line.
@rem  Added argument validation and added error reporting.
@rem
@rem  MS Windows batch file to run pcretest on testfiles with the correct
@rem  options.
@rem
@rem Sheri Pierce added logic to skip feature dependent tests
@rem tests 4 5 8 and 12 require utf8 support
@rem tests 6 9 13 require ucp support
@rem 10 requires ucp and link size 2
@rem 14 requires presense of jit support
@rem 15 requires absence of jit support

@rem Sheri P also added override tests for study and jit testing
@rem Output is written to newly created subfolders named testout testoutstudy and testoutjit.
@rem Current dir should be the build dir. The testdata folder should exist in the current dir or in ..
@rem Copy RunTest.bat to the build dir manually if necessary.
@rem

setlocal enabledelayedexpansion

if exist testdata set srcdir=.
if [%srcdir%]==[]   set srcdir=..
if NOT exist %srcdir%\testdata (
echo distribution testdata folder not found.
exit /b 1
goto :eof
)
if [%pcretest%]==[] set pcretest=pcretest

%pcretest% -C |findstr /C:"No UTF-8 support" >NUL
set utf8=%ERRORLEVEL%
%pcretest% -C |findstr /C:"No Unicode properties support" >NUL
set ucp=%ERRORLEVEL%
%pcretest% -C |findstr /C:"No just-in-time compiler support" >NUL
set jit=%ERRORLEVEL%
%pcretest% -C |findstr /C:"Internal link size = 2" >NUL
set link2=%ERRORLEVEL%

set ucpandlink2=0
if %ucp% EQU 1 (
 if %link2% EQU 0 set ucpandlink2=1
)

if not exist testout md testout
if not exist testoutstudy md testoutstudy
if not exist testoutjit md testoutjit

set do1=no
set do2=no
set do3=no
set do4=no
set do5=no
set do6=no
set do7=no
set do8=no
set do9=no
set do10=no
set do11=no
set do12=no
set do13=no
set do14=no
set do15=no
set all=yes

for %%a in (%*) do (
  set valid=no
  for %%v in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) do if %%v == %%a set valid=yes
  if "!valid!" == "yes" (
    set do%%a=yes
    set all=no
) else (
    echo Invalid test number - %%a!
        echo Usage %0 [ test_number ] ...
        echo Where test_number is one or more optional test numbers 1 through 15, default is all tests.
        exit /b 1
)
)
if "%all%" == "yes" (
  set do1=yes
  set do2=yes
  set do3=yes
  set do4=yes
  set do5=yes
  set do6=yes
  set do7=yes
  set do8=yes
  set do9=yes
  set do10=yes
  set do11=yes
  set do12=yes
  set do13=yes
  set do14=yes
  set do15=yes
)

if "%do1%" == "yes" call :do1
if "%do2%" == "yes" call :do2
if "%do3%" == "yes" call :do3
if "%do4%" == "yes" call :do4
if "%do5%" == "yes" call :do5
if "%do6%" == "yes" call :do6
if "%do7%" == "yes" call :do7
if "%do8%" == "yes" call :do8
if "%do9%" == "yes" call :do9
if "%do10%" == "yes" call :do10
if "%do11%" == "yes" call :do11
if "%do12%" == "yes" call :do12
if "%do13%" == "yes" call :do13
if "%do14%" == "yes" call :do14
if "%do15%" == "yes" call :do15
goto :eof

:runsub
@rem Function to execute pcretest and compare the output
@rem Arguments are as follows:
@rem
@rem       1 = test number
@rem       2 = outputdir
@rem       3 = test name use double quotes
@rem   4 - 9 = pcretest options

if [%1] == [] (
  echo Missing test number argument!
  exit /b 1
)

if [%2] == [] (
  echo Missing outputdir!
  exit /b 1
)

if [%3] == [] (
  echo Missing test name argument!
  exit /b 1
)

set testinput=testinput%1
set testoutput=testoutput%1
if exist %srcdir%\testdata\win%testinput% (
  set testinput=wintestinput%1
  set testoutput=wintestoutput%1
)

echo.
echo Test %1: %3
%pcretest% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput%>%2\%testoutput%
if errorlevel 1 (
  echo Test %1: pcretest failed!
  goto :eof
)

fc /n %srcdir%\testdata\%testoutput% %2\%testoutput%
if errorlevel 1 (
  echo Test %1: file compare failed!
  goto :eof
)

echo Test %1: Passed.
echo.
goto :eof

:do1
call :runsub 1 testout "Main functionality - Compatible with Perl 5.8 and above" -q
call :runsub 1 testoutstudy "Test with Study Override" -q -s
if %jit% EQU 1 call :runsub 1 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do2
  call :runsub 2 testout "API, errors, internals, and non-Perl stuff" -q
  call :runsub 2 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 2 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do3
  call :runsub 3 testout "Locale-specific features" -q
  call :runsub 3 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 3 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do4
  if %utf8% EQU 0 (
  echo Test 4 Skipped due to absence of UTF-8 support.
  goto :eof
)
  call :runsub 4 testout "UTF-8 support - Compatible with Perl 5.8 and above" -q
  call :runsub 4 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 4 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do5
  if %utf8% EQU 0 (
  echo Test 5 Skipped due to absence of UTF-8 support.
  goto :eof
)
  call :runsub 5 testout "API, internals, and non-Perl stuff for UTF-8 support" -q
  call :runsub 5 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 5 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do6
if %ucp% EQU 0 (
  echo Test 6 Skipped due to absence of ucp support.
  goto :eof
)
  call :runsub 6 testout "Unicode property support - Compatible with Perl 5.10 and above" -q
  call :runsub 6 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 6 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do7
  call :runsub 7 testout "DFA matching" -q -dfa
  call :runsub 7 testoutstudy "Test with Study Override" -q -dfa -s
  if %jit% EQU 1 call :runsub 7 testoutjit "Test with JIT Override" -q -dfa -s+
goto :eof

:do8
  if %utf8% EQU 0 (
  echo Test 8 Skipped due to absence of UTF-8 support.
  goto :eof
)
  call :runsub 8 testout "DFA matching with UTF-8" -q -dfa
  call :runsub 8 testoutstudy "Test with Study Override" -q -dfa -s
  if %jit% EQU 1 call :runsub 8 testoutjit "Test with JIT Override" -q -dfa -s+
  goto :eof

:do9
  if %ucp% EQU 0 (
  echo Test 9 Skipped due to absence of ucp support.
  goto :eof
)
  call :runsub 9 testout "DFA matching with Unicode properties" -q -dfa
  call :runsub 9 testoutstudy "Test with Study Override" -q -dfa -s
  if %jit% EQU 1 call :runsub 9 testoutjit "Test with JIT Override" -q -dfa -s+
goto :eof

:do10
  if %ucpandlink2% EQU 0 (
  echo Test 10 Skipped due to requirements of ucp support AND link size 2.
  goto :eof
)
  call :runsub 10 testout "Internal offsets and code size tests" -q
  call :runsub 10 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 10 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do11
  call :runsub 11 testout "Features from Perl 5.10 and above" -q
  call :runsub 11 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 11 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do12
  if %utf8% EQU 0 (
  echo Test 12 Skipped due to absence of UTF-8 support.
  goto :eof
)
  call :runsub 12 testout "Features from Perl 5.10 and above w UTF-8" -q
  call :runsub 12 testoutstudy "Test with Study Override" -q -s
  if %jit% EQU 1 call :runsub 12 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do13
  if %ucp% EQU 0 (
  echo Test 13 Skipped due to absence of ucp support.
  goto :eof
)
call :runsub 13 testout "API internals and non-Perl stuff for Unicode property support" -q
call :runsub 13 testoutstudy "Test with Study Override" -q -s
if %jit% EQU 1 call :runsub 13 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do14
if %jit% EQU 0 (
  echo Test 14 Skipped due to absence of JIT support.
  goto :eof
)
  call :runsub 14 testout "JIT-specific features - have JIT" -q
  call :runsub 14 testoutstudy "Test with Study Override" -q -s
  call :runsub 14 testoutjit "Test with JIT Override" -q -s+
goto :eof

:do15
  if %jit% EQU 1 (
  echo Test 15 Skipped due to presence of JIT support.
  goto :eof
)
  call :runsub 15 testout "JIT-specific features - no JIT" -q
  call :runsub 15 testoutstudy "Test with Study Override" -q -s
goto :eof
1	ph10	708	@echo off
2			@rem This file must use CRLF linebreaks to function properly
3			@rem and user must have external findstr command
4			@rem This file was contributed by Ralf Junker, and touched up by
5			@rem Daniel Richard G. Tests 10-12 added by Philip H.
6			@rem Philip H also changed test 3 to use "wintest" files.
7			@rem
8			@rem Updated by Tom Fortmann to support explicit test numbers on the command line.
9			@rem Added argument validation and added error reporting.
10			@rem
11			@rem MS Windows batch file to run pcretest on testfiles with the correct
12			@rem options.
13			@rem
14			@rem Sheri Pierce added logic to skip feature dependent tests
15			@rem tests 4 5 8 and 12 require utf8 support
16			@rem tests 6 9 13 require ucp support
17			@rem 10 requires ucp and link size 2
18			@rem 14 requires presense of jit support
19			@rem 15 requires absence of jit support
20
21			@rem Sheri P also added override tests for study and jit testing
22			@rem Output is written to newly created subfolders named testout testoutstudy and testoutjit.
23			@rem Current dir should be the build dir. The testdata folder should exist in the current dir or in ..
24			@rem Copy RunTest.bat to the build dir manually if necessary.
25			@rem
26
27			setlocal enabledelayedexpansion
28
29			if exist testdata set srcdir=.
30			if [%srcdir%]==[] set srcdir=..
31			if NOT exist %srcdir%\testdata (
32			echo distribution testdata folder not found.
33			exit /b 1
34			goto :eof
35			)
36			if [%pcretest%]==[] set pcretest=pcretest
37
38			%pcretest% -C \|findstr /C:"No UTF-8 support" >NUL
39			set utf8=%ERRORLEVEL%
40			%pcretest% -C \|findstr /C:"No Unicode properties support" >NUL
41			set ucp=%ERRORLEVEL%
42			%pcretest% -C \|findstr /C:"No just-in-time compiler support" >NUL
43			set jit=%ERRORLEVEL%
44			%pcretest% -C \|findstr /C:"Internal link size = 2" >NUL
45			set link2=%ERRORLEVEL%
46
47			set ucpandlink2=0
48			if %ucp% EQU 1 (
49			if %link2% EQU 0 set ucpandlink2=1
50			)
51
52			if not exist testout md testout
53			if not exist testoutstudy md testoutstudy
54			if not exist testoutjit md testoutjit
55
56			set do1=no
57			set do2=no
58			set do3=no
59			set do4=no
60			set do5=no
61			set do6=no
62			set do7=no
63			set do8=no
64			set do9=no
65			set do10=no
66			set do11=no
67			set do12=no
68			set do13=no
69			set do14=no
70			set do15=no
71			set all=yes
72
73			for %%a in (%*) do (
74			set valid=no
75			for %%v in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15) do if %%v == %%a set valid=yes
76			if "!valid!" == "yes" (
77			set do%%a=yes
78			set all=no
79			) else (
80			echo Invalid test number - %%a!
81			echo Usage %0 [ test_number ] ...
82			echo Where test_number is one or more optional test numbers 1 through 15, default is all tests.
83			exit /b 1
84			)
85			)
86			if "%all%" == "yes" (
87			set do1=yes
88			set do2=yes
89			set do3=yes
90			set do4=yes
91			set do5=yes
92			set do6=yes
93			set do7=yes
94			set do8=yes
95			set do9=yes
96			set do10=yes
97			set do11=yes
98			set do12=yes
99			set do13=yes
100			set do14=yes
101			set do15=yes
102			)
103
104			if "%do1%" == "yes" call :do1
105			if "%do2%" == "yes" call :do2
106			if "%do3%" == "yes" call :do3
107			if "%do4%" == "yes" call :do4
108			if "%do5%" == "yes" call :do5
109			if "%do6%" == "yes" call :do6
110			if "%do7%" == "yes" call :do7
111			if "%do8%" == "yes" call :do8
112			if "%do9%" == "yes" call :do9
113			if "%do10%" == "yes" call :do10
114			if "%do11%" == "yes" call :do11
115			if "%do12%" == "yes" call :do12
116			if "%do13%" == "yes" call :do13
117			if "%do14%" == "yes" call :do14
118			if "%do15%" == "yes" call :do15
119			goto :eof
120
121			:runsub
122			@rem Function to execute pcretest and compare the output
123			@rem Arguments are as follows:
124			@rem
125			@rem 1 = test number
126			@rem 2 = outputdir
127			@rem 3 = test name use double quotes
128			@rem 4 - 9 = pcretest options
129
130			if [%1] == [] (
131			echo Missing test number argument!
132			exit /b 1
133			)
134
135			if [%2] == [] (
136			echo Missing outputdir!
137			exit /b 1
138			)
139
140			if [%3] == [] (
141			echo Missing test name argument!
142			exit /b 1
143			)
144
145			set testinput=testinput%1
146			set testoutput=testoutput%1
147			if exist %srcdir%\testdata\win%testinput% (
148			set testinput=wintestinput%1
149			set testoutput=wintestoutput%1
150			)
151
152			echo.
153			echo Test %1: %3
154			%pcretest% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput%>%2\%testoutput%
155			if errorlevel 1 (
156			echo Test %1: pcretest failed!
157			goto :eof
158			)
159
160			fc /n %srcdir%\testdata\%testoutput% %2\%testoutput%
161			if errorlevel 1 (
162			echo Test %1: file compare failed!
163			goto :eof
164			)
165
166			echo Test %1: Passed.
167			echo.
168			goto :eof
169
170			:do1
171			call :runsub 1 testout "Main functionality - Compatible with Perl 5.8 and above" -q
172			call :runsub 1 testoutstudy "Test with Study Override" -q -s
173			if %jit% EQU 1 call :runsub 1 testoutjit "Test with JIT Override" -q -s+
174			goto :eof
175
176			:do2
177			call :runsub 2 testout "API, errors, internals, and non-Perl stuff" -q
178			call :runsub 2 testoutstudy "Test with Study Override" -q -s
179			if %jit% EQU 1 call :runsub 2 testoutjit "Test with JIT Override" -q -s+
180			goto :eof
181
182			:do3
183			call :runsub 3 testout "Locale-specific features" -q
184			call :runsub 3 testoutstudy "Test with Study Override" -q -s
185			if %jit% EQU 1 call :runsub 3 testoutjit "Test with JIT Override" -q -s+
186			goto :eof
187
188			:do4
189			if %utf8% EQU 0 (
190			echo Test 4 Skipped due to absence of UTF-8 support.
191			goto :eof
192			)
193			call :runsub 4 testout "UTF-8 support - Compatible with Perl 5.8 and above" -q
194			call :runsub 4 testoutstudy "Test with Study Override" -q -s
195			if %jit% EQU 1 call :runsub 4 testoutjit "Test with JIT Override" -q -s+
196			goto :eof
197
198			:do5
199			if %utf8% EQU 0 (
200			echo Test 5 Skipped due to absence of UTF-8 support.
201			goto :eof
202			)
203			call :runsub 5 testout "API, internals, and non-Perl stuff for UTF-8 support" -q
204			call :runsub 5 testoutstudy "Test with Study Override" -q -s
205			if %jit% EQU 1 call :runsub 5 testoutjit "Test with JIT Override" -q -s+
206			goto :eof
207
208			:do6
209			if %ucp% EQU 0 (
210			echo Test 6 Skipped due to absence of ucp support.
211			goto :eof
212			)
213			call :runsub 6 testout "Unicode property support - Compatible with Perl 5.10 and above" -q
214			call :runsub 6 testoutstudy "Test with Study Override" -q -s
215			if %jit% EQU 1 call :runsub 6 testoutjit "Test with JIT Override" -q -s+
216			goto :eof
217
218			:do7
219			call :runsub 7 testout "DFA matching" -q -dfa
220			call :runsub 7 testoutstudy "Test with Study Override" -q -dfa -s
221			if %jit% EQU 1 call :runsub 7 testoutjit "Test with JIT Override" -q -dfa -s+
222			goto :eof
223
224			:do8
225			if %utf8% EQU 0 (
226			echo Test 8 Skipped due to absence of UTF-8 support.
227			goto :eof
228			)
229			call :runsub 8 testout "DFA matching with UTF-8" -q -dfa
230			call :runsub 8 testoutstudy "Test with Study Override" -q -dfa -s
231			if %jit% EQU 1 call :runsub 8 testoutjit "Test with JIT Override" -q -dfa -s+
232			goto :eof
233
234			:do9
235			if %ucp% EQU 0 (
236			echo Test 9 Skipped due to absence of ucp support.
237			goto :eof
238			)
239			call :runsub 9 testout "DFA matching with Unicode properties" -q -dfa
240			call :runsub 9 testoutstudy "Test with Study Override" -q -dfa -s
241			if %jit% EQU 1 call :runsub 9 testoutjit "Test with JIT Override" -q -dfa -s+
242			goto :eof
243
244			:do10
245			if %ucpandlink2% EQU 0 (
246			echo Test 10 Skipped due to requirements of ucp support AND link size 2.
247			goto :eof
248			)
249			call :runsub 10 testout "Internal offsets and code size tests" -q
250			call :runsub 10 testoutstudy "Test with Study Override" -q -s
251			if %jit% EQU 1 call :runsub 10 testoutjit "Test with JIT Override" -q -s+
252			goto :eof
253
254			:do11
255			call :runsub 11 testout "Features from Perl 5.10 and above" -q
256			call :runsub 11 testoutstudy "Test with Study Override" -q -s
257			if %jit% EQU 1 call :runsub 11 testoutjit "Test with JIT Override" -q -s+
258			goto :eof
259
260			:do12
261			if %utf8% EQU 0 (
262			echo Test 12 Skipped due to absence of UTF-8 support.
263			goto :eof
264			)
265			call :runsub 12 testout "Features from Perl 5.10 and above w UTF-8" -q
266			call :runsub 12 testoutstudy "Test with Study Override" -q -s
267			if %jit% EQU 1 call :runsub 12 testoutjit "Test with JIT Override" -q -s+
268			goto :eof
269
270			:do13
271			if %ucp% EQU 0 (
272			echo Test 13 Skipped due to absence of ucp support.
273			goto :eof
274			)
275			call :runsub 13 testout "API internals and non-Perl stuff for Unicode property support" -q
276			call :runsub 13 testoutstudy "Test with Study Override" -q -s
277			if %jit% EQU 1 call :runsub 13 testoutjit "Test with JIT Override" -q -s+
278			goto :eof
279
280			:do14
281			if %jit% EQU 0 (
282			echo Test 14 Skipped due to absence of JIT support.
283			goto :eof
284			)
285			call :runsub 14 testout "JIT-specific features - have JIT" -q
286			call :runsub 14 testoutstudy "Test with Study Override" -q -s
287			call :runsub 14 testoutjit "Test with JIT Override" -q -s+
288			goto :eof
289
290			:do15
291			if %jit% EQU 1 (
292			echo Test 15 Skipped due to presence of JIT support.
293			goto :eof
294			)
295			call :runsub 15 testout "JIT-specific features - no JIT" -q
296			call :runsub 15 testoutstudy "Test with Study Override" -q -s
297			goto :eof