ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/rundelphitest.bat
Revision: 381
Committed: Sat Jan 15 00:06:22 2022 UTC (4 months, 1 week ago) by tony
File size: 2203 byte(s)
Log Message:
Release Candidate 1
Line User Rev File contents
1 tony 379 @echo off
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    
9     FOR %%V in (3.2.0 3.0.4 3.0.2 3.0.0) do (
10     if EXIST C:\lazarus\fpc\%%V\bin\i386-win32\fpc.exe (
11     set FPCDIR=C:\lazarus\fpc\%%V
12     set FPCBIN=C:\lazarus\fpc\%%V\bin\i386-win32
13     Goto COMPILE
14     )
15     if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win32\fpc.exe (
16     set FPCDIR=C:\lazarus\fpc\%%V
17     set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win32
18     Goto COMPILE
19     )
20     if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win64\fpc.exe (
21     set FPCDIR=C:\lazarus\fpc\%%V
22     set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win64
23     Goto COMPILE
24     )
25     )
26    
27    
28     :COMPILE
29     set DELPHIBIN=C:\Program Files\Embarcadero\RAD Studio\7.0\bin
30     if EXIST "%FPCBIN%\diff.exe" (
31     set DIFF=%FPCBIN%\diff.exe
32     ) ELSE (
33     set DIFF=C:\Program Files\GnuWin32\bin\diff.exe
34     )
35     echo DIFF is %DIFF%
36    
37     set TESTOUTDIR=%TEMP%\fbintf-testsuite
38     set USERNAME=SYSDBA
39     set PASSWORD=masterkey
40     set EMPLOYEEDB=employee
41     set NEWDBNAME=%TESTOUTDIR%\testsuite1.fdb
42     set NEWDBNAME2=%TESTOUTDIR%\testsuite2.fdb
43     set BAKFILE=%TESTOUTDIR%\testsuite.gbk
44    
45     rd /s /q testunits
46     mkdir testunits
47     mkdir %TESTOUTDIR%
48     IF EXIST "%DELPHIBIN%\dcc32.exe" (
49     del testsuite.exe
50     "%DELPHIBIN%\dcc32" -B -E. -N0testunits -I..\include;..\client\include -U..;..\client;..\client\2.5\;..\client\3.0;..\client\3.0\firebird testsuite.dpr
51     )
52     echo(
53     echo Starting Testsuite
54     echo(
55 tony 381
56 tony 379 IF EXIST "testsuite.exe" (
57     testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1
58     if not EXIST "%DIFF%" (
59     echo Unable to compare results - diff not found
60     goto :EOF
61     )
62    
63     echo Comparing results with reference log
64     echo(
65     findstr /C:"ODS Major Version = 11" testout.log
66     IF ERRORLEVEL 1 (
67     findstr /C:"ODS Major Version = 12" testout.log
68     IF ERRORLEVEL 1 (
69     %DIFF% FB4reference.log testout.log >diff.log
70     ) ELSE (
71     %DIFF% FB3reference.log testout.log >diff.log
72     )
73     ) ELSE (
74     %DIFF% FB2reference.log testout.log >diff.log
75     )
76     type diff.log
77    
78     IF EXIST "%DELPHIBIN%\dcc32" (
79     rd /s /q testunits
80     rem del testsuite.exe
81     )
82     )

Properties

Name Value
svn:eol-style native