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

Comparing ibx/trunk/fbintf/testsuite/Test11.pas (file contents):
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 308 by tony, Sat Jul 18 10:26:30 2020 UTC

# Line 209 | Line 209 | begin
209  
210    {Local Restore}
211    writeln(OutFile,'Local Restore');
212 <  RestoreDBName := Owner.GetNewDatabaseName;
212 >  RestoreDBName := ExtractDBName(Owner.GetNewDatabaseName);
213    i := Pos(':',RestoreDBName);
214    if i > 0 then
215      system.Delete(RestoreDBName,1,i);
# Line 267 | Line 267 | end;
267   procedure TTest11.RunTest(CharSet: AnsiString; SQLDialect: integer);
268   var SPB: ISPB;
269      Service: IServiceManager;
270    I: integer;
270      ServerName: AnsiString;
271      DBName: AnsiString;
272   begin
273    if not FirebirdAPI.HasServiceAPI then Exit;
274  
275 <  ServerName := Owner.GetEmployeeDatabaseName;
276 <  I := Pos(':',ServerName);
278 <  if i > 0 then
279 <    DBName := system.copy(ServerName,i+1,length(ServerName) - 2);
280 <  system.Delete(ServerName,i,Length(ServerName)-i+1);
275 >  DBName := ExtractDBName(Owner.GetEmployeeDatabaseName);
276 >  ServerName := Owner.Server;
277  
278    SPB := FirebirdAPI.AllocateSPB;
279    SPB.Add(isc_spb_user_name).setAsString(Owner.GetUserName);

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines