ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/testsuite/Test16.pas
(Generate patch)

Comparing ibx/trunk/fbintf/testsuite/Test16.pas (file contents):
Revision 401 by tony, Mon Jan 10 10:13:17 2022 UTC vs.
Revision 402 by tony, Mon Aug 1 10:07:24 2022 UTC

# Line 85 | Line 85 | begin
85    DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
86    DPB.Add(isc_dpb_password).setAsString(Owner.GetPassword);
87    DPB.Add(isc_dpb_lc_ctype).setAsString('UTF8');
88  DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
88    try
89      writeln(OutFile,'Invalid Database Name Test');
90      Attachment := FirebirdAPI.OpenDatabase('localhost:Malformed Name',DPB);
# Line 250 | Line 249 | end;
249  
250   procedure TTest16.RunTest(CharSet: AnsiString; SQLDialect: integer);
251   begin
252 +  FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowSQLCode,ShowSQLMessage,ShowIBMessage]);;
253    DBTests(Charset,SQLDialect);
254    ServiceTests(Charset,SQLDialect);
255   end;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines