--- embedaddon/pcre/RunTest.bat	2012/02/21 23:05:51	1.1.1.1
+++ embedaddon/pcre/RunTest.bat	2013/07/22 08:25:55	1.1.1.3
@@ -12,14 +12,14 @@
 @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 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 presence of jit support
+@rem 13 requires absence of jit support
 @rem Sheri P also added override tests for study and jit testing
-@rem JIT testing n/a for tests 7-10, removed JIT override test for them
-@rem removed override tests for 14-15
+@rem Zoltan Herczeg added libpcre16 support
+@rem Zoltan Herczeg added libpcre32 support
 
 setlocal enabledelayedexpansion
 if [%srcdir%]==[] (
@@ -28,51 +28,58 @@ if [%srcdir%]==[] (
 if exist ..\testdata\ set srcdir=..)
 if [%srcdir%]==[] (
 if exist ..\..\testdata\ set srcdir=..\..)
-if NOT exist "%srcdir%\testdata\" (
+if NOT exist %srcdir%\testdata\ (
 Error: echo distribution testdata folder not found!
 call :conferror
 exit /b 1
 goto :eof
 )
 
-if "%pcregrep%"=="" set pcregrep=.\pcregrep.exe
-if "%pcretest%"=="" set pcretest=.\pcretest.exe
+if [%pcretest%]==[] set pcretest=.\pcretest.exe
 
 echo source dir is %srcdir%
 echo pcretest=%pcretest%
-echo pcregrep=%pcregrep%
 
-if NOT exist "%pcregrep%" (
-echo Error: "%pcregrep%" not found!
+if NOT exist %pcretest% (
+echo Error: %pcretest% not found!
 echo.
 call :conferror
 exit /b 1
 )
 
-if NOT exist "%pcretest%" (
-echo Error: "%pcretest%" not found!
-echo.
-call :conferror
-exit /b 1
-)
-
-"%pcretest%" -C|"%pcregrep%" --no-jit "No UTF-8 support">NUL
-set utf8=%ERRORLEVEL%
-"%pcretest%" -C|"%pcregrep%" --no-jit "No Unicode properties support">NUL
+%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|"%pcregrep%" --no-jit "No just-in-time compiler support">NUL
+%pcretest% -C jit >NUL
 set jit=%ERRORLEVEL%
-"%pcretest%" -C|"%pcregrep%" --no-jit "Internal link size = 2">NUL
-set link2=%ERRORLEVEL%
-set ucpandlink2=0
-if %ucp% EQU 1 (
- if %link2% EQU 0 set ucpandlink2=1
+
+if %support8% EQU 1 (
+if not exist testout8 md testout8
+if not exist testoutstudy8 md testoutstudy8
+if not exist testoutjit8 md testoutjit8
 )
 
-if not exist testout md testout
-if not exist testoutstudy md testoutstudy
-if not exist testoutjit md testoutjit
+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
@@ -88,18 +95,29 @@ 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) do if %%v == %%a set valid=yes
+  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 15, default is all tests.
+        echo Where test_number is one or more optional test numbers 1 through 26, default is all tests.
         exit /b 1
 )
 )
@@ -121,11 +139,45 @@ if "%all%" == "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
@@ -141,6 +193,30 @@ 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
@@ -180,18 +256,32 @@ if exist %srcdir%\testdata\win%testinput% (
 )
 
 echo Test %1: %3
-"%pcretest%" %4 %5 %6 %7 %8 %9 "%srcdir%\testdata\%testinput%">%2\%testoutput%
+%pcretest% %mode% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput% >%2%bits%\%testoutput%
 if errorlevel 1 (
   echo.          failed executing command-line:
-  echo.            "%pcretest%" %4 %5 %6 %7 %8 %9 "%srcdir%\testdata\%testinput%"^>%2\%testoutput%
+  echo.            %pcretest% %mode% %4 %5 %6 %7 %8 %9 %srcdir%\testdata\%testinput% ^>%2%bits%\%testoutput%
   set failed="yes"
   goto :eof
 )
 
-fc /n "%srcdir%\testdata\%testoutput%" "%2\%testoutput%">NUL
+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\%testoutput%"
-  set failed="yes"
+  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
@@ -206,8 +296,10 @@ if errorlevel 1 (
     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
 )
 
@@ -215,13 +307,13 @@ echo.          Passed.
 goto :eof
 
 :do1
-call :runsub 1 testout "Main functionality - Compatible with Perl 5.8 and above" -q
+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 (not UTF-8)" -q
+  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
@@ -233,107 +325,271 @@ goto :eof
 goto :eof
 
 :do4
-  if %utf8% EQU 0 (
-  echo Test 4 Skipped due to absence of UTF-8 support.
+if %utf% EQU 0 (
+  echo Test 4 Skipped due to absence of UTF-%bits% support.
   goto :eof
 )
-  call :runsub 4 testout "UTF-8 support - Compatible with Perl 5.8 and above" -q
+  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 %utf8% EQU 0 (
-  echo Test 5 Skipped due to absence of UTF-8 support.
+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-8 support" -q
+  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 ucp support.
+  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 and above" -q
+  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
-  call :runsub 7 testout "DFA matching" -q -dfa
-  call :runsub 7 testoutstudy "Test with Study Override" -q -dfa -s
+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
-  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 testout "DFA matching main functionality" -q -dfa
   call :runsub 8 testoutstudy "Test with Study Override" -q -dfa -s
-  goto :eof
+goto :eof
 
 :do9
-  if %ucp% EQU 0 (
-  echo Test 9 Skipped due to absence of ucp support.
+if %utf% EQU 0 (
+  echo Test 9 Skipped due to absence of UTF-%bits% support.
   goto :eof
 )
-  call :runsub 9 testout "DFA matching with Unicode properties" -q -dfa
+  call :runsub 9 testout "DFA matching with UTF-%bits%" -q -dfa
   call :runsub 9 testoutstudy "Test with Study Override" -q -dfa -s
-goto :eof
+  goto :eof
 
 :do10
-  if %ucpandlink2% EQU 0 (
-  echo Test 10 Skipped due to requirements of ucp support AND link size 2.
+if %ucp% EQU 0 (
+  echo Test 10 Skipped due to absence of Unicode property support.
   goto :eof
 )
-  call :runsub 10 testout "Internal offsets and code size tests" -q
-  call :runsub 10 testoutstudy "Test with Study Override" -q -s
+  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
-  call :runsub 11 testout "Features from Perl 5.10 and above" -q
+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
-  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.
+if %jit% EQU 0 (
+  echo Test 12 Skipped due to absence of JIT 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+
+  call :runsub 12 testout "JIT-specific features (JIT available)" -q
 goto :eof
 
 :do13
-  if %ucp% EQU 0 (
-  echo Test 13 Skipped due to absence of ucp support.
+if %jit% EQU 1 (
+  echo Test 13 Skipped due to presence of JIT 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+
+  call :runsub 13 testout "JIT-specific features (JIT not available)" -q
 goto :eof
 
 :do14
-if %jit% EQU 0 (
-  echo Test 14 Skipped due to absence of JIT support.
+if NOT %bits% EQU 8 (
+  echo Test 14 Skipped when running 16/32-bit tests.
   goto :eof
 )
-  call :runsub 14 testout "JIT-specific features - have JIT" -q
+  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 %jit% EQU 1 (
-  echo Test 15 Skipped due to presence of JIT support.
+if NOT %bits% EQU 8 (
+  echo Test 15 Skipped when running 16/32-bit tests.
   goto :eof
 )
-  call :runsub 15 testout "JIT-specific features - no JIT" -q
+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