--- ibx/branches/udr/testsuite/runtest.bat 2022/01/10 10:00:27 378 +++ ibx/branches/udr/testsuite/runtest.bat 2022/01/10 10:08:03 379 @@ -1,70 +1,70 @@ -@echo off -REM Test suite Configuration parameters (FPCDIR and FPCBIN) -REM These may be modified if needed to suite local requirements - -FOR %%V in (3.2.0 3.0.4 3.0.2 3.0.0) do ( - if EXIST C:\lazarus\fpc\%%V\bin\i386-win32\fpc.exe ( - set FPCDIR=C:\lazarus\fpc\%%V - set FPCBIN=C:\lazarus\fpc\%%V\bin\i386-win32 - Goto COMPILE - ) - if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win32\fpc.exe ( - set FPCDIR=C:\lazarus\fpc\%%V - set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win32 - Goto COMPILE - ) - if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win64\fpc.exe ( - set FPCDIR=C:\lazarus\fpc\%%V - set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win64 - Goto COMPILE - ) -) - -if not EXIST %FPCBIN%\fpc.exe ( - echo "Unable to find fpc.exe" - goto :EOF -) - -:COMPILE -set TESTOUTDIR=%TEMP%\fbintf-testsuite -set USERNAME=SYSDBA -set PASSWORD=masterkey -set EMPLOYEEDB=employee -set NEWDBNAME=%TESTOUTDIR%\testsuite1.fdb -set NEWDBNAME2=%TESTOUTDIR%\testsuite2.fdb -set BAKFILE=%TESTOUTDIR%\testsuite.gbk -set DIFF=%FPCBIN%\diff.exe - -rd /s /q testunits -mkdir %TESTOUTDIR% -%FPCBIN%\fpcmake -%FPCBIN%\make clean -%FPCBIN%\make -echo( -echo Starting Testsuite -echo( -IF EXIST "testsuite.exe" ( -testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1 - -if not EXIST "%DIFF%" ( - echo Unable to compare results - diff not found - %DIFF% - goto :EOF - ) - -echo Comparing results with reference log -echo( -findstr /C:"ODS Major Version = 11" testout.log -IF ERRORLEVEL 1 ( - findstr /C:"ODS Major Version = 12" testout.log - IF ERRORLEVEL 1 ( - %DIFF% FB4reference.log testout.log >diff.log - ) ELSE ( - %DIFF% FB3reference.log testout.log >diff.log - ) -) ELSE ( - %DIFF% FB2reference.log testout.log >diff.log -) -type diff.log -rd /s /q testunits -del testsuite.exe -) +@echo off +REM Test suite Configuration parameters (FPCDIR and FPCBIN) +REM These may be modified if needed to suite local requirements + +FOR %%V in (3.2.0 3.0.4 3.0.2 3.0.0) do ( + if EXIST C:\lazarus\fpc\%%V\bin\i386-win32\fpc.exe ( + set FPCDIR=C:\lazarus\fpc\%%V + set FPCBIN=C:\lazarus\fpc\%%V\bin\i386-win32 + Goto COMPILE + ) + if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win32\fpc.exe ( + set FPCDIR=C:\lazarus\fpc\%%V + set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win32 + Goto COMPILE + ) + if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win64\fpc.exe ( + set FPCDIR=C:\lazarus\fpc\%%V + set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win64 + Goto COMPILE + ) +) + +if not EXIST %FPCBIN%\fpc.exe ( + echo "Unable to find fpc.exe" + goto :EOF +) + +:COMPILE +set TESTOUTDIR=%TEMP%\fbintf-testsuite +set USERNAME=SYSDBA +set PASSWORD=masterkey +set EMPLOYEEDB=employee +set NEWDBNAME=%TESTOUTDIR%\testsuite1.fdb +set NEWDBNAME2=%TESTOUTDIR%\testsuite2.fdb +set BAKFILE=%TESTOUTDIR%\testsuite.gbk +set DIFF=%FPCBIN%\diff.exe + +rd /s /q testunits +mkdir %TESTOUTDIR% +%FPCBIN%\fpcmake +%FPCBIN%\make clean +%FPCBIN%\make +echo( +echo Starting Testsuite +echo( +IF EXIST "testsuite.exe" ( +testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1 + +if not EXIST "%DIFF%" ( + echo Unable to compare results - diff not found - %DIFF% + goto :EOF + ) + +echo Comparing results with reference log +echo( +findstr /C:"ODS Major Version = 11" testout.log +IF ERRORLEVEL 1 ( + findstr /C:"ODS Major Version = 12" testout.log + IF ERRORLEVEL 1 ( + %DIFF% FB4reference.log testout.log >diff.log + ) ELSE ( + %DIFF% FB3reference.log testout.log >diff.log + ) +) ELSE ( + %DIFF% FB2reference.log testout.log >diff.log +) +type diff.log +rd /s /q testunits +del testsuite.exe +)