ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/udr/testsuite/testsuite.lpr
Revision: 379
Committed: Mon Jan 10 10:08:03 2022 UTC (2 years, 2 months ago) by tony
File size: 1921 byte(s)
Log Message:
set line ending property

File Contents

# Content
1 (*
2 * Firebird UDR Support (fbudrtestbed). The fbudr components provide a set of
3 * Pascal language bindings for the Firebird API in support of server
4 * side User Defined Routines (UDRs). The fbudr package is an extension
5 * to the Firebird Pascal API.
6 *
7 * The contents of this file are subject to the Initial Developer's
8 * Public License Version 1.0 (the "License"); you may not use this
9 * file except in compliance with the License. You may obtain a copy
10 * of the License here:
11 *
12 * http://www.firebirdsql.org/index.php?op=doc&id=idpl
13 *
14 * Software distributed under the License is distributed on an "AS
15 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
16 * implied. See the License for the specific language governing rights
17 * and limitations under the License.
18 *
19 * The Initial Developer of the Original Code is Tony Whyman.
20 *
21 * The Original Code is (C) 2021 Tony Whyman, MWA Software
22 * (http://www.mwasoftware.co.uk).
23 *
24 * All Rights Reserved.
25 *
26 * Contributor(s): ______________________________________.
27 *
28 *)
29 program testsuite;
30
31 {$IFDEF MSWINDOWS}
32 {$DEFINE WINDOWS}
33 {$ENDIF}
34
35 {$IFDEF FPC}
36 {$mode delphi}
37 {$codepage utf8}
38 {$ENDIF}
39
40 uses
41 {$IFDEF UNIX}
42 cthreads,
43 {$ENDIF}
44 Classes, FBUDRController, fbudrTestbed, TestApplication, FBUDRTestApp, Test01,
45 udr_test01, Test02, udr_test02, udr_test03, Test03, Test04, udr_test04;
46
47 var
48 Application: TFBUDRTestApp;
49 begin
50 with FBUDRControllerOptions do
51 begin
52 ModuleName := 'fbudrtests';
53 AllowConfigFileOverrides := true;
54 LogFileNameTemplate := 'serverside.log';
55 ConfigFileNameTemplate := 'testsuite.conf';
56 LogOptions := [loLogFunctions, loLogProcedures, loLogTriggers, loDetails,
57 loModifyQueries, loReadOnlyQueries];
58 end;
59 Application := TFBUDRTestApp.Create(nil);
60 Application.Title := 'FB UDR Test Suite';
61 Application.Run;
62 Application.Free;
63
64 end.
65

Properties

Name Value
svn:eol-style native