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 56 by tony, Mon Mar 6 10:20:02 2017 UTC vs.
Revision 224 by tony, Mon Mar 19 10:53:56 2018 UTC

# Line 41 | Line 41 | type
41      FEventSignalled: boolean;
42      procedure EventsTest(Attachment: IAttachment);
43      procedure EventReport(Sender: IEvents);
44 +    procedure ShowEventReport;
45      procedure ShowEventCounts(Intf: IEvents);
46    public
47      function TestTitle: AnsiString; override;
# Line 66 | Line 67 | begin
67    EventHandler.AsyncWaitForEvent(EventReport);
68    writeln(OutFile,'Async Wait Called');
69    sleep(500);
70 +  CheckSynchronize;
71    if FEventSignalled then
72    begin
73      writeln(OutFile,'First Event - usually ignored');
74      FEventSignalled := false;
75      EventHandler.AsyncWaitForEvent(EventReport);
76      sleep(100);
77 +    CheckSynchronize;
78      if FEventSignalled then
79      begin
80        writeln(OutFile,'Unexpected Event 1');
# Line 96 | Line 99 | begin
99    EventHandler.AsyncWaitForEvent(EventReport);
100    writeln(OutFile,'Async Wait Called');
101    sleep(500);
102 +  CheckSynchronize;
103    if FEventSignalled then
104    begin
105      writeln(OutFile,'Deferred Events Caught');
106      ShowEventCounts(EventHandler);
107      FEventSignalled := false;
108      EventHandler.AsyncWaitForEvent(EventReport);
109 +    CheckSynchronize;
110      sleep(100);
111      if FEventSignalled then
112        writeln(OutFile,'Unexpected Event 3');
# Line 114 | Line 119 | begin
119    FEventSignalled := false;
120    writeln(OutFile,'Async Wait: Test Cancel');
121    EventHandler.AsyncWaitForEvent(EventReport);
122 +  CheckSynchronize;
123    writeln(OutFile,'Async Wait Called');
124    EventHandler.Cancel;
125    writeln(OutFile,'Event Cancelled');
# Line 126 | Line 132 | begin
132      writeln(OutFile,'Event called - so Cancel failed');
133  
134    writeln(OutFile,'Sync wait');
135 +  CheckSynchronize;
136    Attachment.ExecImmediate([isc_tpb_write,isc_tpb_nowait,isc_tpb_concurrency],sqlEvent);
137    EventHandler.WaitForEvent;
138    writeln(OutFile,'Event Signalled');
139    ShowEventCounts(EventHandler);
140    EventHandler := nil;
141 +  CheckSynchronize;
142   end;
143  
144   procedure TTest10.EventReport(Sender: IEvents);
145   begin
146    FEventSignalled := true;
147 +  TThread.Synchronize(nil,ShowEventReport);
148 + end;
149 +
150 + procedure TTest10.ShowEventReport;
151 + begin
152    writeln(OutFile,'Event Signalled');
153   end;
154  

Diff Legend

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