1 |
tony |
45 |
@echo off |
2 |
tony |
56 |
REM Test suite Configuration parameters |
3 |
|
|
REM These may be modified if needed to suite local requirements |
4 |
tony |
45 |
|
5 |
tony |
56 |
|
6 |
|
|
if EXIST C:\lazarus\fpc\3.0.2\bin\i386-win32\fpc.exe ( |
7 |
|
|
set FPCDIR=C:\lazarus\fpc\3.0.2 |
8 |
|
|
set FPCBIN=C:\lazarus\fpc\3.0.2\bin\i386-win32 |
9 |
|
|
Goto COMPILE |
10 |
|
|
) |
11 |
|
|
|
12 |
|
|
if EXIST C:\lazarus\fpc\3.0.2\bin\x86_64-win64\fpc.exe ( |
13 |
|
|
set FPCDIR=C:\lazarus\fpc\3.0.2 |
14 |
|
|
set FPCBIN=C:\lazarus\fpc\3.0.2\bin\x86_64-win64 |
15 |
|
|
Goto COMPILE |
16 |
|
|
) |
17 |
|
|
|
18 |
|
|
if EXIST C:\lazarus\fpc\3.0.0\bin\i386-win32\fpc.exe ( |
19 |
tony |
45 |
set FPCDIR=C:\lazarus\fpc\3.0.0 |
20 |
tony |
56 |
set FPCBIN=C:\lazarus\fpc\3.0.0\bin\i386-win32 |
21 |
|
|
Goto COMPILE |
22 |
|
|
) |
23 |
|
|
|
24 |
|
|
if EXIST C:\lazarus\fpc\3.0.0\bin\x86_64-win64\fpc.exe ( |
25 |
|
|
set FPCDIR=C:\lazarus\fpc\3.0.0 |
26 |
|
|
set FPCBIN=C:\lazarus\fpc\3.0.0\bin\x86_64-win64 |
27 |
|
|
Goto COMPILE |
28 |
|
|
) |
29 |
|
|
|
30 |
|
|
if not EXIST %FPCBIN%\fpc.exe ( |
31 |
|
|
echo "Unable to find fpc.exe" |
32 |
|
|
goto :EOF |
33 |
|
|
) |
34 |
|
|
|
35 |
|
|
:COMPILE |
36 |
tony |
45 |
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 |
42 |
|
|
set BAKFILE=%TESTOUTDIR%\testsuite.gbk |
43 |
|
|
|
44 |
|
|
rd /s /q testunits |
45 |
|
|
mkdir %TESTOUTDIR% |
46 |
|
|
%FPCBIN%\fpcmake |
47 |
|
|
%FPCBIN%\make clean |
48 |
|
|
%FPCBIN%\make |
49 |
|
|
echo( |
50 |
|
|
echo Starting Testsuite |
51 |
|
|
echo( |
52 |
|
|
IF EXIST "testsuite.exe" ( |
53 |
|
|
testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1 |
54 |
|
|
echo Comparing results with reference log |
55 |
|
|
echo( |
56 |
|
|
%FPCBIN%\diff reference.log testout.log >diff.log |
57 |
|
|
type diff.log |
58 |
|
|
rd /s /q testunits |
59 |
|
|
del testsuite.exe |
60 |
|
|
) |