(* * Firebird Interface (fbintf) Test suite. This program is used to * test the Firebird Pascal Interface and provide a semi-automated * pass/fail check for each test. * * The contents of this file are subject to the Initial Developer's * Public License Version 1.0 (the "License"); you may not use this * file except in compliance with the License. You may obtain a copy * of the License here: * * http://www.firebirdsql.org/index.php?op=doc&id=idpl * * Software distributed under the License is distributed on an "AS * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or * implied. See the License for the specific language governing rights * and limitations under the License. * * The Initial Developer of the Original Code is Tony Whyman. * * The Original Code is (C) 2016-2020 Tony Whyman, MWA Software * (http://www.mwasoftware.co.uk). * * All Rights Reserved. * * Contributor(s): ______________________________________. * *) program testsuite; {$IFDEF FPC} {$mode objfpc}{$H+} {$codepage utf8} {$ENDIF} uses {$IFDEF UNIX} cthreads, {$ENDIF} Classes, SysUtils, CustApp, Test1, Test2, Test3, Test4, Test5, Test6, Test7, Test8, Test9, Test10, Test11, Test12, Test13, Test14, Test15, Test16, IB, Test17, Test18, TestApplication, FBTestApp, Test19, Test20, Test21, Test22; type { TFBIntTestbed } TFBIntTestbed = class(TTestApplication) constructor Create(TheOwner: TComponent); override; end; { TFBIntTestbed } constructor TFBIntTestbed.Create(TheOwner: TComponent); begin inherited Create(TheOwner); StopOnException := True; end; var Application: TFBIntTestbed; begin Application := TFBIntTestbed.Create(nil); Application.Title:='Firebird API Test Suite'; Application.Run; Application.Free; end.