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

Comparing ibx/trunk/fbintf/testsuite/testsuite.dpr (file contents):
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

# Line 6 | Line 6 | program testsuite;
6  
7   uses
8    SysUtils,
9  IB,
9    Test1 in 'Test1.pas',
11  test2 in 'test2.pas',
10    Test3 in 'Test3.pas',
11    Test4 in 'Test4.pas',
12    Test5 in 'Test5.pas',
# Line 23 | Line 21 | uses
21    Test14 in 'Test14.pas',
22    Test15 in 'Test15.pas',
23    Test16 in 'Test16.pas',
24 <  TestManager in 'TestManager.pas',
25 <  FBOutputBlock in '..\client\FBOutputBlock.pas';
26 <
27 < procedure WriteHelp;
28 < begin
31 <  { add your help code here }
32 <  writeln(OutFile,'Usage: ', ParamStr(0), ' -h');
33 < end;
34 <
35 < function GetCmdLineValue(const Switch: string; var aValue: string): boolean;
36 < var i: integer;
37 < begin
38 <  Result := FindCmdLineSwitch(Switch,false);
39 <  if Result then
40 <  begin
41 <    for i := 0 to ParamCount do
42 <      if (ParamStr(i) = '-' + Switch) and (i <= ParamCount) then
43 <      begin
44 <        aValue := ParamStr(i+1);
45 <        exit;
46 <      end;
47 <    Result := false;
48 <  end;
49 < end;
50 <
24 >  Test17 in 'Test17.pas',
25 >  Test18 in 'Test18.pas',
26 >  Test2 in 'Test2.pas',
27 >  TestApplication in 'testApp\TestApplication.pas',
28 >  FBTestApp in 'FBTestApp.pas';
29  
30   var
31 <  ErrorMsg: AnsiString;
32 <  FTestID: integer;
33 <  aValue: string;
34 < begin
35 <  try
36 <
59 <  FTestID := 0;
60 <  AssignFile(OutFile,'');
61 <  ReWrite(outFile);
62 <
63 <  
64 <  // parse parameters
65 <  if FindCmdLineSwitch('h') or FindCmdLineSwitch('help') then
66 <  begin
67 <    WriteHelp;
68 <    Exit;
69 <  end;
70 <
71 <  if GetCmdLineValue('t',aValue) then
72 <    FTestID := StrToInt(aValue);
73 <
74 <  if TestMgr <> nil then
75 <  begin
76 <    if GetCmdLineValue('u',aValue) or GetCmdLineValue('user',aValue) then
77 <      TestMgr.SetUserName(aValue);
78 <
79 <    if GetCmdLineValue('p',aValue) or GetCmdLineValue('passwd',aValue) then
80 <      TestMgr.SetPassword(aValue);
81 <
82 <    if GetCmdLineValue('e',aValue) or GetCmdLineValue('employeedb',aValue) then
83 <      TestMgr.SetEmployeeDatabaseName(aValue);
84 <
85 <    if GetCmdLineValue('n',aValue) or GetCmdLineValue('newdbname',aValue) then
86 <      TestMgr.SetNewDatabaseName(aValue);
87 <
88 <    if GetCmdLineValue('s',aValue) or GetCmdLineValue('secondnewdbname',aValue) then
89 <      TestMgr.SetSecondNewDatabaseName(aValue);
90 <
91 <    if GetCmdLineValue('b',aValue) or GetCmdLineValue('backupfile',aValue) then
92 <      TestMgr.SetBackupFileName(aValue);
93 <
94 <    if GetCmdLineValue('o',aValue) or GetCmdLineValue('outfile',aValue) then
95 <    begin
96 <      system.Assign(outFile,aValue);
97 <      ReWrite(outFile);
98 <    end;
99 <
100 <    TestMgr.ShowStatistics := FindCmdLineSwitch('S',false) or FindCmdLineSwitch('stats');
101 <
102 <    {Ensure consistent date reporting across platforms}
103 <    {$IF declared(FormatSettings)}
104 <    FormatSettings.ShortDateFormat := 'd/m/yyyy';
105 <    FormatSettings.LongTimeFormat := 'HH:MM:SS';
106 <    FormatSettings.DateSeparator := '/';
107 <    {$ELSE}
108 <    ShortDateFormat := 'd/m/yyyy';
109 <    LongTimeFormat := 'HH:MM:SS';
110 <    DateSeparator := '/';
111 <    {$IFEND}
112 <
113 <    writeln(OutFile,'Firebird Client API Test Suite');
114 <    writeln(OutFile,'Copyright MWA Software 2016');
115 <    writeln(OutFile);
116 <    writeln(OutFile,'Starting Tests');
117 <    writeln(OutFile,'Client API Version = ',FirebirdAPI.GetImplementationVersion);
118 <
119 <    if FTestID = 0 then
120 <      TestMgr.RunAll
121 <    else
122 <      TestMgr.Run(FTestID);
123 <    TestMgr.Free;
124 <  end;
125 <
126 <  writeln(OutFile,'Test Suite Ends');
127 <  Flush(OutFile);
128 <  //readln; {uncomment if running from IDE and console window closes before you can view results}
129 <
130 <  except
131 <    on E: Exception do
132 <      Writeln(E.ClassName, ': ', E.Message);
133 <  end;
31 >  Application: TTestApplication;
32 > begin
33 >  Application := TTestApplication.Create(nil);
34 >  Application.Title:='Firebird API Test Suite';
35 >  Application.Run;
36 >  Application.Free;
37   end.

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines