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 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 347 by tony, Mon Sep 20 22:08:20 2021 UTC

# Line 150 | Line 150 | begin
150    except on E: Exception do
151      writeln(OutFile,'Error Handled: ',E.Message);
152    end;
153 +  Transaction.Rollback;
154 +  Transaction.Start;
155 +  writeln(Outfile,'Stale Reference Check');
156 +  writeln(Outfile,'First test correct usage');
157 +  Statement :=  Attachment.Prepare(Transaction,'Select count(*) As Counter from EMPLOYEE Where Hire_Date < ?',3);
158 +  Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
159 +  ReportResults(Statement);
160 +  try
161 +    writeln(Outfile,'New Transaction before param set');
162 +    Statement.Prepare(Transaction);
163 +    Transaction.Rollback;
164 +    Transaction.Start;
165 +    Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
166 +    ReportResults(Statement);
167 +  except on E: Exception do
168 +    writeln(OutFile,'Error Handled: ',E.Message);
169 +  end;
170 +  Transaction.Rollback;
171 +  Transaction.Start;
172 +  try
173 +    writeln(Outfile,'New Transaction before Open Cursor');
174 +    Statement.Prepare(Transaction);
175 +    Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
176 +    Transaction.Rollback;
177 +    Transaction.Start;
178 +    ReportResults(Statement);
179 +  except on E: Exception do
180 +    writeln(OutFile,'Error Handled: ',E.Message);
181 +  end;
182 +  Transaction.Rollback;
183 +  Transaction.Start;
184 +  writeln(Outfile,'Stop Stale Reference Checks');
185 +  Statement.SetStaleReferenceChecks(false);
186 +  try
187 +    writeln(Outfile,'New Transaction before param set');
188 +    Statement.Prepare(Transaction);
189 +    Transaction.Rollback;
190 +    Transaction.Start;
191 +    Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
192 +    ReportResults(Statement);
193 +  except on E: Exception do
194 +    writeln(OutFile,'Error Handled: ',E.Message);
195 +  end;
196 +  try
197 +    writeln(Outfile,'New Transaction before Open Cursor');
198 +    Statement.Prepare(Transaction);
199 +    Statement.SQLParams[0].AsDate := EncodeDate(2016,11,5);
200 +    Transaction.Rollback;
201 +    Transaction.Start;
202 +    ReportResults(Statement);
203 +  except on E: Exception do
204 +    writeln(OutFile,'Error Handled: ',E.Message);
205 +  end;
206   end;
207  
208   procedure TTest16.ServiceTests(CharSet: AnsiString; SQLDialect: integer);

Diff Legend

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