@echo off

 @rem This file must use CRLF linebreaks to function properly

 @rem and requires both pcretest and pcregrep

 @rem  This file was originally 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 9 15 and 18 require utf support

 @rem tests 6 7 10 16 and 19 require ucp support

 @rem 11 requires ucp and link size 2

 @rem 12 requires presense of jit support

 @rem 13 requires absence of jit support

 @rem Sheri P also added override tests for study and jit testing

 @rem Zoltan Herczeg added libpcre16 support

 @rem Zoltan Herczeg added libpcre32 support

 setlocal enabledelayedexpansion

 if [%srcdir%]==[] (

 if exist testdata\ set srcdir=.)

 if [%srcdir%]==[] (

 if exist ..\testdata\ set srcdir=..)

 if [%srcdir%]==[] (

 if exist ..\..\testdata\ set srcdir=..\..)

 if NOT exist %srcdir%\testdata\ (

 Error: echo distribution testdata folder not found!

 call :conferror

 exit /b 1

 goto :eof

 )

 if [%pcretest%]==[] set pcretest=.\pcretest.exe

 echo source dir is %srcdir%

 echo pcretest=%pcretest%

 if NOT exist %pcretest% (

 echo Error: %pcretest% not found!

 echo.

 call :conferror

 exit /b 1

 )

 %pcretest% -C linksize >NUL

 set link_size=%ERRORLEVEL%

 %pcretest% -C pcre8 >NUL

 set support8=%ERRORLEVEL%

 %pcretest% -C pcre16 >NUL

 set support16=%ERRORLEVEL%

 %pcretest% -C pcre32 >NUL

 set support32=%ERRORLEVEL%

 %pcretest% -C utf >NUL

 set utf=%ERRORLEVEL%

 %pcretest% -C ucp >NUL

 set ucp=%ERRORLEVEL%

 %pcretest% -C jit >NUL

 set jit=%ERRORLEVEL%

 if %support8% EQU 1 (

 if not exist testout8 md testout8

 if not exist testoutstudy8 md testoutstudy8

 if not exist testoutjit8 md testoutjit8

 )

 if %support16% EQU 1 (

 if not exist testout16 md testout16

 if not exist testoutstudy16 md testoutstudy16

 if not exist testoutjit16 md testoutjit16

 )

 if %support16% EQU 1 (

 if not exist testout32 md testout32

 if not exist testoutstudy32 md testoutstudy32

 if not exist testoutjit32 md testoutjit32

 )

 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 do16=no

 set do17=no

 set do18=no

 set do19=no

 set do20=no

 set do21=no

 set do22=no

 set do23=no

 set do24=no

 set do25=no

 set do26=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 16 17 18 19 20 21 22 23 24 25 26) 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 26, default is all tests.

         exit /b 1

 )

 )

 set failed="no"

 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

   set do16=yes

   set do17=yes

   set do18=yes

   set do19=yes

   set do20=yes

   set do21=yes

   set do22=yes

   set do23=yes

   set do24=yes

   set do25=yes

   set do26=yes

 )

 @echo RunTest.bat's pcretest output is written to newly created subfolders named

 @echo testout, testoutstudy and testoutjit.

 @echo.

 set mode=

 set bits=8

 :nextMode

 if "%mode%" == "" (

   if %support8% EQU 0 goto modeSkip

   echo.

   echo ---- Testing 8-bit library ----

   echo.

 )

 if "%mode%" == "-16" (

   if %support16% EQU 0 goto modeSkip

   echo.

   echo ---- Testing 16-bit library ----

   echo.

 )

 if "%mode%" == "-32" (

   if %support32% EQU 0 goto modeSkip

   echo.

   echo ---- Testing 32-bit library ----

   echo.

 )

 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

 if "%do16%" == "yes" call :do16

 if "%do17%" == "yes" call :do17

 if "%do18%" == "yes" call :do18

 if "%do19%" == "yes" call :do19

 if "%do20%" == "yes" call :do20

 if "%do21%" == "yes" call :do21

 if "%do22%" == "yes" call :do22

 if "%do23%" == "yes" call :do23

 if "%do24%" == "yes" call :do24

 if "%do25%" == "yes" call :do25

 if "%do26%" == "yes" call :do26

 :modeSkip

 if "%mode%" == "" (

   set mode=-16

   set bits=16

   goto nextMode

 )

 if "%mode%" == "-16" (

   set mode=-32

   set bits=32

   goto nextMode

 )

 @rem If mode is -32, testing is finished

 if %failed% == "yes" (

 echo In above output, one or more of the various tests failed!

 exit /b 1

 )

 echo All OK

 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 Test %1: %3

 %pcretest% %mode% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput% >%2%bits%\%testoutput%

 if errorlevel 1 (

   echo.          failed executing command-line:

   echo.            %pcretest% %mode% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput% ^>%2%bits%\%testoutput%

   set failed="yes"

   goto :eof

 )

 set type=

 if [%1]==[11] (

   set type=-%bits%

 )

 if [%1]==[18] (

   set type=-%bits%

 )

 if [%1]==[21] (

   set type=-%bits%

 )

 if [%1]==[22] (

   set type=-%bits%

 )

 fc /n %srcdir%\testdata\%testoutput%%type% %2%bits%\%testoutput% >NUL

 if errorlevel 1 (

   echo.          failed comparison: fc /n %srcdir%\testdata\%testoutput% %2%bits%\%testoutput%

   if [%1]==[2] (

     echo.

     echo ** Test 2 requires a lot of stack. PCRE can be configured to

     echo ** use heap for recursion. Otherwise, to pass Test 2

     echo ** you generally need to allocate 8 mb stack to PCRE.

     echo ** See the 'pcrestack' page for a discussion of PCRE's

     echo ** stack usage.

     echo.

 )

   if [%1]==[3] (

     echo.

     echo ** Test 3 failure usually means french locale is not

     echo ** available on the system, rather than a bug or problem with PCRE.

     echo.

     goto :eof

 )

   set failed="yes"

   goto :eof

 )

 echo.          Passed.

 goto :eof

 :do1

 call :runsub 1 testout "Main functionality (Compatible with Perl >= 5.10)" -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 %utf% EQU 0 (

   echo Test 4 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

   call :runsub 4 testout "UTF-%bits% support - (Compatible with Perl >= 5.10)" -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 %utf% EQU 0 (

   echo Test 5 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

   call :runsub 5 testout "API, internals, and non-Perl stuff for UTF-%bits%" -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 Unicode property support.

   goto :eof

 )

   call :runsub 6 testout "Unicode property support (Compatible with Perl >= 5.10)" -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

 if %ucp% EQU 0 (

   echo Test 7 Skipped due to absence of Unicode property support.

   goto :eof

 )

   call :runsub 7 testout "API, internals, and non-Perl stuff for Unicode property support" -q

   call :runsub 7 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 7 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do8

   call :runsub 8 testout "DFA matching main functionality" -q -dfa

   call :runsub 8 testoutstudy "Test with Study Override" -q -dfa -s

 goto :eof

 :do9

 if %utf% EQU 0 (

   echo Test 9 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

   call :runsub 9 testout "DFA matching with UTF-%bits%" -q -dfa

   call :runsub 9 testoutstudy "Test with Study Override" -q -dfa -s

   goto :eof

 :do10

 if %ucp% EQU 0 (

   echo Test 10 Skipped due to absence of Unicode property support.

   goto :eof

 )

   call :runsub 10 testout "DFA matching with Unicode properties" -q -dfa

   call :runsub 10 testoutstudy "Test with Study Override" -q -dfa -s

 goto :eof

 :do11

 if NOT %link_size% EQU 2 (

   echo Test 11 Skipped because link size is not 2.

   goto :eof

 )

 if %ucp% EQU 0 (

   echo Test 11 Skipped due to absence of Unicode property support.

   goto :eof

 )

   call :runsub 11 testout "Internal offsets and code size tests" -q

   call :runsub 11 testoutstudy "Test with Study Override" -q -s

 goto :eof

 :do12

 if %jit% EQU 0 (

   echo Test 12 Skipped due to absence of JIT support.

   goto :eof

 )

   call :runsub 12 testout "JIT-specific features (JIT available)" -q

 goto :eof

 :do13

 if %jit% EQU 1 (

   echo Test 13 Skipped due to presence of JIT support.

   goto :eof

 )

   call :runsub 13 testout "JIT-specific features (JIT not available)" -q

 goto :eof

 :do14

 if NOT %bits% EQU 8 (

   echo Test 14 Skipped when running 16/32-bit tests.

   goto :eof

 )

   copy /Y %srcdir%\testdata\saved16 testsaved16

   copy /Y %srcdir%\testdata\saved32 testsaved32

   call :runsub 14 testout "Specials for the basic 8-bit library" -q

   call :runsub 14 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 14 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do15

 if NOT %bits% EQU 8 (

   echo Test 15 Skipped when running 16/32-bit tests.

   goto :eof

 )

 if %utf% EQU 0 (

   echo Test 15 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

   call :runsub 15 testout "Specials for the 8-bit library with UTF-%bits% support" -q

   call :runsub 15 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 15 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do16

 if NOT %bits% EQU 8 (

   echo Test 16 Skipped when running 16/32-bit tests.

   goto :eof

 )

 if %ucp% EQU 0 (

   echo Test 16 Skipped due to absence of Unicode property support.

   goto :eof

 )

   call :runsub 16 testout "Specials for the 8-bit library with Unicode propery support" -q

   call :runsub 16 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 16 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do17

 if %bits% EQU 8 (

   echo Test 17 Skipped when running 8-bit tests.

   goto :eof

 )

   call :runsub 17 testout "Specials for the basic 16/32-bit library" -q

   call :runsub 17 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 17 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do18

 if %bits% EQU 8 (

   echo Test 18 Skipped when running 8-bit tests.

   goto :eof

 )

 if %utf% EQU 0 (

   echo Test 18 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

   call :runsub 18 testout "Specials for the 16/32-bit library with UTF-%bits% support" -q

   call :runsub 18 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 18 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do19

 if %bits% EQU 8 (

   echo Test 19 Skipped when running 8-bit tests.

   goto :eof

 )

 if %ucp% EQU 0 (

   echo Test 19 Skipped due to absence of Unicode property support.

   goto :eof

 )

   call :runsub 19 testout "Specials for the 16/32-bit library with Unicode property support" -q

   call :runsub 19 testoutstudy "Test with Study Override" -q -s

   if %jit% EQU 1 call :runsub 19 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do20

 if %bits% EQU 8 (

   echo Test 20 Skipped when running 8-bit tests.

   goto :eof

 )

   call :runsub 20 testout "DFA specials for the basic 16/32-bit library" -q -dfa

   call :runsub 20 testoutstudy "Test with Study Override" -q -dfa -s

 goto :eof

 :do21

 if %bits% EQU 8 (

   echo Test 21 Skipped when running 8-bit tests.

   goto :eof

 )

 if NOT %link_size% EQU 2 (

   echo Test 21 Skipped because link size is not 2.

   goto :eof

 )

 copy /Y %srcdir%\testdata\saved8 testsaved8

 copy /Y %srcdir%\testdata\saved16LE-1 testsaved16LE-1

 copy /Y %srcdir%\testdata\saved16BE-1 testsaved16BE-1

 copy /Y %srcdir%\testdata\saved32LE-1 testsaved32LE-1

 copy /Y %srcdir%\testdata\saved32BE-1 testsaved32BE-1

 call :runsub 21 testout "Reloads for the basic 16/32-bit library" -q

 call :runsub 21 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 21 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do22

 if %bits% EQU 8 (

   echo Test 22 Skipped when running 8-bit tests.

   goto :eof

 )

 if %utf% EQU 0 (

   echo Test 22 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

 if NOT %link_size% EQU 2 (

   echo Test 22 Skipped because link size is not 2.

   goto :eof

 )

 copy /Y %srcdir%\testdata\saved16LE-2 testsaved16LE-2

 copy /Y %srcdir%\testdata\saved16BE-2 testsaved16BE-2

 copy /Y %srcdir%\testdata\saved32LE-2 testsaved32LE-2

 copy /Y %srcdir%\testdata\saved32BE-2 testsaved32BE-2

 call :runsub 22 testout "Reloads for the 16/32-bit library with UTF-16/32 support" -q

 call :runsub 22 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 22 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do23

 if NOT %bits% EQU 16 (

   echo Test 23 Skipped when running 8/32-bit tests.

   goto :eof

 )

 call :runsub 23 testout "Specials for the 16-bit library" -q

 call :runsub 23 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 23 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do24

 if NOT %bits% EQU 16 (

   echo Test 24 Skipped when running 8/32-bit tests.

   goto :eof

 )

 if %utf% EQU 0 (

   echo Test 24 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

 call :runsub 24 testout "Specials for the 16-bit library with UTF-16 support" -q

 call :runsub 24 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 24 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do25

 if NOT %bits% EQU 32 (

   echo Test 25 Skipped when running 8/16-bit tests.

   goto :eof

 )

 call :runsub 25 testout "Specials for the 32-bit library" -q

 call :runsub 25 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 25 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :do26

 if NOT %bits% EQU 32 (

   echo Test 26 Skipped when running 8/16-bit tests.

   goto :eof

 )

 if %utf% EQU 0 (

   echo Test 26 Skipped due to absence of UTF-%bits% support.

   goto :eof

 )

 call :runsub 26 testout "Specials for the 32-bit library with UTF-32 support" -q

 call :runsub 26 testoutstudy "Test with Study Override" -q -s

 if %jit% EQU 1 call :runsub 26 testoutjit "Test with JIT Override" -q -s+

 goto :eof

 :conferror

 @echo.

 @echo Either your build is incomplete or you have a configuration error.

 @echo.

 @echo If configured with cmake and executed via "make test" or the MSVC "RUN_TESTS"

 @echo project, pcre_test.bat defines variables and automatically calls RunTest.bat.

 @echo For manual testing of all available features, after configuring with cmake

 @echo and building, you can run the built pcre_test.bat. For best results with

 @echo cmake builds and tests avoid directories with full path names that include

 @echo spaces for source or build.

 @echo.

 @echo Otherwise, if the build dir is in a subdir of the source dir, testdata needed

 @echo for input and verification should be found automatically when (from the

 @echo location of the the built exes) you call RunTest.bat. By default RunTest.bat

 @echo runs all tests compatible with the linked pcre library but it can be given

 @echo a test number as an argument.

 @echo.

 @echo If the build dir is not under the source dir you can either copy your exes

 @echo to the source folder or copy RunTest.bat and the testdata folder to the

 @echo location of your built exes and then run RunTest.bat.

 @echo.

 goto :eof