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 420 by tony, Mon Aug 1 10:07:24 2022 UTC vs.
Revision 421 by tony, Sat Oct 21 14:22:28 2023 UTC

#	Line 121 | Line 121 | begin
121		writeln(OutFile,'Creating a Database with empty parameters');
122		Attachment := FirebirdAPI.CreateDatabase('',nil,false);
123		if Attachment = nil then
124	<	writeln(OutFile,'Create Database fails (as expected): ',FirebirdAPI.GetStatus.GetMessage)
124	>	writeln(OutFile,'Create Database fails (as expected): ',FirebirdAPI.GetStatus.GetMessage(cp_acp))
125		else
126		Attachment.DropDatabase;
127

Diff Legend

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