ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/testsuite/Test10.pas
(Generate patch)
# Line 110 | Line 110
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