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

Comparing ibx/branches/udr/testsuite/Test10.pas (file contents):
Revision 380 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 381 by tony, Sat Jan 15 00:06:22 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  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines