ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/runtest.bat
Revision: 68
Committed: Tue Oct 17 10:07:58 2017 UTC (6 years, 5 months ago) by tony
Content type: application/x-msdos-program
File size: 1320 byte(s)
Log Message:
IBX: Editor Positioning tidy up
FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors.
Consistent setting of Modified (SQLParam).

File Contents

# Content
1 @echo off
2 REM Test suite Configuration parameters (FPCDIR and FPCBIN)
3 REM These may be modified if needed to suite local requirements
4
5 FOR %%V in (3.0.4 3.0.2 3.0.0) do (
6 if EXIST C:\lazarus\fpc\%%V\bin\i386-win32\fpc.exe (
7 set FPCDIR=C:\lazarus\fpc\%%V
8 set FPCBIN=C:\lazarus\fpc\%%V\bin\i386-win32
9 Goto COMPILE
10 )
11 if EXIST C:\lazarus\fpc\%%V\bin\x86_64-win32\fpc.exe (
12 set FPCDIR=C:\lazarus\fpc\%%V
13 set FPCBIN=C:\lazarus\fpc\%%V\bin\x86_64-win32
14 Goto COMPILE
15 )
16 )
17
18 if not EXIST %FPCBIN%\fpc.exe (
19 echo "Unable to find fpc.exe"
20 goto :EOF
21 )
22
23 :COMPILE
24 set TESTOUTDIR=%TEMP%\fbintf-testsuite
25 set USERNAME=SYSDBA
26 set PASSWORD=masterkey
27 set EMPLOYEEDB=localhost:employee
28 set NEWDBNAME=localhost:%TESTOUTDIR%\testsuite1.fdb
29 set NEWDBNAME2=localhost:%TESTOUTDIR%\testsuite2.fdb
30 set BAKFILE=%TESTOUTDIR%\testsuite.gbk
31
32 rd /s /q testunits
33 mkdir %TESTOUTDIR%
34 %FPCBIN%\fpcmake
35 %FPCBIN%\make clean
36 %FPCBIN%\make
37 echo(
38 echo Starting Testsuite
39 echo(
40 IF EXIST "testsuite.exe" (
41 testsuite.exe -u %USERNAME% -p %PASSWORD% -e %EMPLOYEEDB% -n %NEWDBNAME% -s %NEWDBNAME2% -b %BAKFILE% -o testout.log %1
42 echo Comparing results with reference log
43 echo(
44 %FPCBIN%\diff reference.log testout.log >diff.log
45 type diff.log
46 rd /s /q testunits
47 del testsuite.exe
48 )