@echo off

@rem

@rem MS Windows batch file to run pcre2test on testfiles with the correct

@rem options. This file must use CRLF linebreaks to function properly,

@rem and requires both pcre2test and pcre2grep.

@rem

@rem ------------------------ HISTORY ----------------------------------

@rem This file was originally contributed to PCRE1 by Ralf Junker, and touched

@rem up by 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

@rem line. Added argument validation and added error reporting.

@rem

@rem Sheri Pierce added logic to skip feature dependent tests

@rem tests 4 5 7 10 12 14 19 and 22 require Unicode support

@rem 8 requires Unicode and link size 2

@rem 16 requires absence of jit support

@rem 17 requires presence 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

@rem -------------------------------------------------------------------

@rem

@rem The file was converted for PCRE2 by PH, February 2015.

@rem Updated for new test 14 (moving others up a number), August 2015.

@rem Tidied and updated for new tests 21, 22, 23 by PH, October 2015.

@rem PH added missing "set type" for test 22, April 2016.

@rem PH added copy command for new testbtables file, November 2020

@rem PH caused it to show comparison output when comparison faile, July 2023

@rem PH updated unknown error number in test

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 [%pcre2test%]==[] set pcre2test=.\pcre2test.exe

echo source dir is %srcdir%

echo pcre2test=%pcre2test%

if NOT exist %pcre2test% (

echo Error: %pcre2test% not found!

echo.

call :conferror

exit /b 1

)

%pcre2test% -C linksize >NUL

set link_size=%ERRORLEVEL%

%pcre2test% -C pcre2-8 >NUL

set support8=%ERRORLEVEL%

%pcre2test% -C pcre2-16 >NUL

set support16=%ERRORLEVEL%

%pcre2test% -C pcre2-32 >NUL

set support32=%ERRORLEVEL%

%pcre2test% -C unicode >NUL

set unicode=%ERRORLEVEL%

%pcre2test% -C jit >NUL

set jit=%ERRORLEVEL%

%pcre2test% -C backslash-C >NUL

set supportBSC=%ERRORLEVEL%

if %support8% EQU 1 (

if not exist testout8 md testout8

if not exist testoutjit8 md testoutjit8

)

if %support16% EQU 1 (

if not exist testout16 md testout16

if not exist testoutjit16 md testoutjit16

)

if %support16% EQU 1 (

if not exist testout32 md testout32

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 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) 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 23, 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=no

set do11=yes

set do12=no

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

)

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

@echo named testout{8,16,32} and testoutjit{8,16,32}.

@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

: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 pcre2test 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 = pcre2test 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

)

if %1 == 8 (

set outnum=8-%bits%-%link_size%

) else (

set outnum=%1

)

set testinput=testinput%1

set testoutput=testoutput%outnum%

if exist %srcdir%\testdata\win%testinput% (

set testinput=wintestinput%1

set testoutput=wintestoutput%outnum%

)

echo Test %1: %3

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

if errorlevel 1 (

echo. failed executing command-line:

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

set failed="yes"

goto :eof

) else if [%1]==[2] (

%pcre2test% %mode% %4 %5 %6 %7 %8 %9 -error -70,-62,-2,-1,0,100,101,191,300 >>%2%bits%\%testoutput%

)

set type=

if [%1]==[11] (

set type=-%bits%

)

if [%1]==[12] (

set type=-%bits%

)

if [%1]==[14] (

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]==[3] (

echo.

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

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

echo.

goto :eof

)

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

set failed="yes"

goto :eof

)

echo. Passed.

goto :eof

:do1

call :runsub 1 testout "Main non-UTF, non-UCP functionality (Compatible with Perl >= 5.10)" -q

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

goto :eof

:do2

copy /y %srcdir%\testdata\testbtables testbtables

call :runsub 2 testout "API, errors, internals, and non-Perl stuff" -q

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

goto :eof

:do3

call :runsub 3 testout "Locale-specific features" -q

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

goto :eof

:do4

if %unicode% EQU 0 (

echo Test 4 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 4 testout "UTF-%bits% and Unicode property support - (Compatible with Perl >= 5.10)" -q

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

goto :eof

:do5

if %unicode% EQU 0 (

echo Test 5 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 5 testout "API, internals, and non-Perl stuff for UTF-%bits% and UCP" -q

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

goto :eof

:do6

call :runsub 6 testout "DFA matching main non-UTF, non-UCP functionality" -q

goto :eof

:do7

if %unicode% EQU 0 (

echo Test 7 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 7 testout "DFA matching with UTF-%bits% and Unicode property support" -q

goto :eof

:do8

if NOT %link_size% EQU 2 (

echo Test 8 Skipped because link size is not 2.

goto :eof

)

if %unicode% EQU 0 (

echo Test 8 Skipped due to absence of Unicode support.

goto :eof

)

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

goto :eof

:do9

if NOT %bits% EQU 8 (

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

goto :eof

)

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

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

goto :eof

:do10

if NOT %bits% EQU 8 (

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

goto :eof

)

if %unicode% EQU 0 (

echo Test 10 Skipped due to absence of Unicode support.

goto :eof

)

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

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

goto :eof

:do11

if %bits% EQU 8 (

echo Test 11 Skipped when running 8-bit tests.

goto :eof

)

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

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

goto :eof

:do12

if %bits% EQU 8 (

echo Test 12 Skipped when running 8-bit tests.

goto :eof

)

if %unicode% EQU 0 (

echo Test 12 Skipped due to absence of Unicode support.

goto :eof

)

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

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

goto :eof

:do13

if %bits% EQU 8 (

echo Test 13 Skipped when running 8-bit tests.

goto :eof

)

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

goto :eof

:do14

if %unicode% EQU 0 (

echo Test 14 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 14 testout "DFA specials for UTF and UCP support" -q

goto :eof

:do15

call :runsub 15 testout "Non-JIT limits and other non_JIT tests" -q

goto :eof

:do16

if %jit% EQU 1 (

echo Test 16 Skipped due to presence of JIT support.

goto :eof

)

call :runsub 16 testout "JIT-specific features when JIT is not available" -q

goto :eof

:do17

if %jit% EQU 0 (

echo Test 17 Skipped due to absence of JIT support.

goto :eof

)

call :runsub 17 testout "JIT-specific features when JIT is available" -q

goto :eof

:do18

if %bits% EQU 16 (

echo Test 18 Skipped when running 16-bit tests.

goto :eof

)

if %bits% EQU 32 (

echo Test 18 Skipped when running 32-bit tests.

goto :eof

)

call :runsub 18 testout "POSIX interface, excluding UTF-8 and UCP" -q

goto :eof

:do19

if %bits% EQU 16 (

echo Test 19 Skipped when running 16-bit tests.

goto :eof

)

if %bits% EQU 32 (

echo Test 19 Skipped when running 32-bit tests.

goto :eof

)

if %unicode% EQU 0 (

echo Test 19 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 19 testout "POSIX interface with UTF-8 and UCP" -q

goto :eof

:do20

call :runsub 20 testout "Serialization tests" -q

goto :eof

:do21

if %supportBSC% EQU 0 (

echo Test 21 Skipped due to absence of backslash-C support.

goto :eof

)

call :runsub 21 testout "Backslash-C tests without UTF" -q

call :runsub 21 testout "Backslash-C tests without UTF (DFA)" -q -dfa

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

goto :eof

:do22

if %supportBSC% EQU 0 (

echo Test 22 Skipped due to absence of backslash-C support.

goto :eof

)

if %unicode% EQU 0 (

echo Test 22 Skipped due to absence of Unicode support.

goto :eof

)

call :runsub 22 testout "Backslash-C tests with UTF" -q

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

goto :eof

:do23

if %supportBSC% EQU 1 (

echo Test 23 Skipped due to presence of backslash-C support.

goto :eof

)

call :runsub 23 testout "Backslash-C disabled test" -q

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, pcre2_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 pcre2_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 pcre2 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