ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/rundelphitest.bat
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/rundelphitest.bat (file contents):
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

# Line 2 | Line 2
2   REM Test suite Configuration parameters
3   REM These may be modified if needed to suite local requirements
4  
5 + REM Test suite Configuration parameters (FPCDIR and FPCBIN)
6 + REM These may be modified if needed to suite local requirements
7 +
8 + FOR %%V in (3.2.0 3.0.4 3.0.2 3.0.0) do (
9 +  if EXIST C:\lazarus\fpc\%%V\bin\i386-win32\fpc.exe (
10 +    set FPCDIR=C:\lazarus\fpc\%%V
11 +    set FPCBIN=C:\lazarus\fpc\%%V\bin\i386-win32
12 +    Goto COMPILE
13 +  )
14 +  if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win32\fpc.exe (
15 +    set FPCDIR=C:\lazarus\fpc\%%V
16 +    set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win32
17 +    Goto COMPILE
18 +  )
19 +  if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win64\fpc.exe (
20 +    set FPCDIR=C:\lazarus\fpc\%%V
21 +    set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win64
22 +    Goto COMPILE
23 +  )
24 + )
25 + )
26 +
27 + :COMPILE
28   set DELPHIBIN=C:\Program Files\Embarcadero\RAD Studio\7.0\bin
29 < set DIFF=C:\Program Files\GnuWin32\bin\diff.exe
29 > if EXIST "%FPCBIN%\diff.exe" (
30 >  set DIFF=%FPCBIN%\diff.exe
31 > ) ELSE (
32 >  set DIFF=C:\Program Files\GnuWin32\bin\diff.exe
33 > )
34 > echo DIFF is %DIFF%
35  
36   set TESTOUTDIR=%TEMP%\fbintf-testsuite
37   set USERNAME=SYSDBA
38   set PASSWORD=masterkey
39 < set EMPLOYEEDB=localhost:employee
40 < set NEWDBNAME=localhost:%TESTOUTDIR%\testsuite1.fdb
41 < set NEWDBNAME2=localhost:%TESTOUTDIR%\testsuite2.fdb
39 > set EMPLOYEEDB=employee
40 > set NEWDBNAME=%TESTOUTDIR%\testsuite1.fdb
41 > set NEWDBNAME2=%TESTOUTDIR%\testsuite2.fdb
42   set BAKFILE=%TESTOUTDIR%\testsuite.gbk
43  
44   rd /s /q testunits
45   mkdir testunits
46   mkdir %TESTOUTDIR%
47 + IF EXIST "%DELPHIBIN%\dcc32.exe" (
48   del testsuite.exe
49   "%DELPHIBIN%\dcc32" -B -E. -N0testunits -I..\include;..\client\include -U..;..\client;..\client\2.5\;..\client\3.0;..\client\3.0\firebird testsuite.dpr
50 <
50 > )
51   echo(
52   echo Starting Testsuite
53   echo(
54   IF EXIST "testsuite.exe" (
55   testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1
56 + if not EXIST "%DIFF%" (
57 +  echo Unable to compare results - diff not found
58 +  goto :EOF
59 +  )
60 +
61   echo Comparing results with reference log
62 < echo(
63 < "%DIFF%" reference.log testout.log >diff.log
64 < type diff.log
62 > echo(
63 > findstr /C:"ODS Major Version = 11" testout.log
64 > IF ERRORLEVEL 1 (
65 >    %DIFF% FB3reference.log testout.log >diff.log
66 > ) ELSE (
67 >  %DIFF% FB2reference.log testout.log >diff.log
68 > )
69 > type diff.log
70 >
71 > IF EXIST "%DELPHIBIN%\dcc32" (
72   rd /s /q testunits
73 < del testsuite.exe
73 > rem del testsuite.exe
74 > )
75   )

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines