forked from LeenkxTeam/LNXSDK
		
	
		
			
	
	
		
			526 lines
		
	
	
		
			14 KiB
		
	
	
	
		
			Batchfile
		
	
	
	
	
	
		
		
			
		
	
	
			526 lines
		
	
	
		
			14 KiB
		
	
	
	
		
			Batchfile
		
	
	
	
	
	
|  | @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 | ||
|  | 
 | ||
|  | 
 | ||
|  | 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,200 >>%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 | ||
|  | ) | ||
|  | 
 | ||
|  |   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 |