ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/Test1.pas

Comparing ibx/trunk/fbintf/testsuite/Test1.pas (file contents):
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

#	Line 1 | Line 1
1		unit Test1;
2	+	{$IFDEF MSWINDOWS}
3	+	{$DEFINE WINDOWS}
4	+	{$ENDIF}
5
6		{Create and Drop a Database}
7		{
#	Line 11 | Line 14 | unit Test1;
14		A basic query is performed and finally the database dropped.
15		}
16
17	<	{$mode objfpc}{$H+}
17	>	{$IFDEF FPC}
18	>	{$mode delphi}
19		{$codepage utf8}
20	+	{$ENDIF}
21
22		interface
23
#	Line 27 | Line 32 | type
32		private
33		procedure DoQuery(Attachment: IAttachment);
34		public
35	<	function TestTitle: string; override;
36	<	procedure RunTest(CharSet: string; SQLDialect: integer); override;
35	>	function TestTitle: AnsiString; override;
36	>	procedure RunTest(CharSet: AnsiString; SQLDialect: integer); override;
37		end;
38
39		implementation
#	Line 57 | Line 62 | begin
62		end;
63		end;
64
65	<	function TTest1.TestTitle: string;
65	>	function TTest1.TestTitle: AnsiString;
66		begin
67		Result := 'Test 1: Create and Drop a Database';
68		end;
69
70	<	procedure TTest1.RunTest(CharSet: string; SQLDialect: integer);
70	>	procedure TTest1.RunTest(CharSet: AnsiString; SQLDialect: integer);
71		var DPB: IDPB;
72		Attachment: IAttachment;
73	<	createSQL: string;
73	>	createSQL: AnsiString;
74		begin
75		writeln(OutFile,'Creating a Database with empty parameters');
76		Attachment := FirebirdAPI.CreateDatabase('',nil,false);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines