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

Comparing ibx/trunk/fbintf/testsuite/Test10.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 110 | Line 110 | begin
110    end;
111    writeln(OutFile,'Signal Event');
112    Attachment.ExecImmediate([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],sqlEvent);
113 <  while not FEventSignalled do Sleep(50);
113 >  while not FEventSignalled do
114 >  begin
115 >    Sleep(50);
116 >    CheckSynchronize;
117 >  end;
118    ShowEventCounts(EventHandler);
119    FEventSignalled := false;
120  
# Line 202 | Line 206 | begin
206    DPB.Add(isc_dpb_user_name).setAsString(Owner.GetUserName);
207    DPB.Add(isc_dpb_password).setAsString(' ');
208    DPB.Add(isc_dpb_lc_ctype).setAsString(CharSet);
205  DPB.Add(isc_dpb_set_db_SQL_dialect).setAsByte(SQLDialect);
209    DPB.Find(isc_dpb_password).setAsString(Owner.GetPassword);
210    Attachment := FirebirdAPI.OpenDatabase(Owner.GetEmployeeDatabaseName,DPB);
211    EventsTest(Attachment);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines