| 1 | program Main;
|
|---|
| 2 |
|
|---|
| 3 | uses
|
|---|
| 4 | Classes,
|
|---|
| 5 | CmdLineParameterUnit;
|
|---|
| 6 |
|
|---|
| 7 |
|
|---|
| 8 | PROCEDURE assertEqualsString(aTestDescription : String; anExpectedValue : String; aRealValue : String);
|
|---|
| 9 | VAR
|
|---|
| 10 | tmpMessage : String;
|
|---|
| 11 | BEGIN
|
|---|
| 12 | if (aRealValue = anExpectedValue) then
|
|---|
| 13 | begin
|
|---|
| 14 | write('.');
|
|---|
| 15 | end
|
|---|
| 16 | else
|
|---|
| 17 | begin
|
|---|
| 18 | tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
|
|---|
| 19 | tmpMessage := tmpMessage + anExpectedValue;
|
|---|
| 20 | tmpMessage := tmpMessage + ''' but it was: ''';
|
|---|
| 21 | tmpMessage := tmpMessage + aRealValue;
|
|---|
| 22 | tmpMessage := tmpMessage + '''';
|
|---|
| 23 | writeln('');
|
|---|
| 24 | writeln(tmpMessage);
|
|---|
| 25 | end;
|
|---|
| 26 | END;
|
|---|
| 27 |
|
|---|
| 28 | PROCEDURE assertEqualsInt(aTestDescription : String; anExpectedValue : INTEGER; aRealValue : INTEGER);
|
|---|
| 29 | VAR
|
|---|
| 30 | tmpMessage : String;
|
|---|
| 31 | tmpIntString : String;
|
|---|
| 32 | BEGIN
|
|---|
| 33 | if (aRealValue = anExpectedValue) then
|
|---|
| 34 | begin
|
|---|
| 35 | write('.');
|
|---|
| 36 | end
|
|---|
| 37 | else
|
|---|
| 38 | begin
|
|---|
| 39 | tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''';
|
|---|
| 40 | Str(anExpectedValue, tmpIntString);
|
|---|
| 41 | tmpMessage := tmpMessage + tmpIntString;
|
|---|
| 42 | tmpMessage := tmpMessage + ''' but it was: ''';
|
|---|
| 43 | Str(aRealValue, tmpIntString);
|
|---|
| 44 | tmpMessage := tmpMessage + tmpIntString;
|
|---|
| 45 | tmpMessage := tmpMessage + '''';
|
|---|
| 46 | writeln('');
|
|---|
| 47 | writeln(tmpMessage);
|
|---|
| 48 | end;
|
|---|
| 49 | END;
|
|---|
| 50 |
|
|---|
| 51 | PROCEDURE assertTrue(aTestDescription : String; aRealValue : Boolean);
|
|---|
| 52 | VAR
|
|---|
| 53 | tmpMessage : String;
|
|---|
| 54 | BEGIN
|
|---|
| 55 | if (aRealValue) then
|
|---|
| 56 | begin
|
|---|
| 57 | write('.');
|
|---|
| 58 | end
|
|---|
| 59 | else
|
|---|
| 60 | begin
|
|---|
| 61 | tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''True';
|
|---|
| 62 | tmpMessage := tmpMessage + ''' but it was: ''False''';
|
|---|
| 63 | writeln('');
|
|---|
| 64 | writeln(tmpMessage);
|
|---|
| 65 | end;
|
|---|
| 66 | END;
|
|---|
| 67 |
|
|---|
| 68 |
|
|---|
| 69 | PROCEDURE assertFalse(aTestDescription : String; aRealValue : Boolean);
|
|---|
| 70 | VAR
|
|---|
| 71 | tmpMessage : String;
|
|---|
| 72 | BEGIN
|
|---|
| 73 | if (!aRealValue) then
|
|---|
| 74 | begin
|
|---|
| 75 | write('.');
|
|---|
| 76 | end
|
|---|
| 77 | else
|
|---|
| 78 | begin
|
|---|
| 79 | tmpMessage := 'Failed: ' + aTestDescription + ' Expected: ''False';
|
|---|
| 80 | tmpMessage := tmpMessage + ''' but it was: ''True''';
|
|---|
| 81 | writeln('');
|
|---|
| 82 | writeln(tmpMessage);
|
|---|
| 83 | end;
|
|---|
| 84 | END;
|
|---|
| 85 |
|
|---|
| 86 |
|
|---|
| 87 | FUNCTION testCmdLineParameterUnit : INTEGER;
|
|---|
| 88 | VAR
|
|---|
| 89 | tmpResult : TStringList;
|
|---|
| 90 | tmpRC : Integer;
|
|---|
| 91 | tmpParams : TStringList;
|
|---|
| 92 | tmpCmdLineParameters : TCmdLineParameters;
|
|---|
| 93 | tmpWindowPosition : TWindowPosition;
|
|---|
| 94 |
|
|---|
| 95 | BEGIN
|
|---|
| 96 | writeln('CmdLineParameterUnit Tests ''' + nativeOS2GetCmdLineParameter + '''');
|
|---|
| 97 |
|
|---|
| 98 | tmpResult := splitCmdLineParameter('', tmpRC);
|
|---|
| 99 | assertEqualsInt('CmdLine split empy string', 0, tmpRC);
|
|---|
| 100 | assertEqualsInt('CmdLine split empy string', 0, tmpResult.Count);
|
|---|
| 101 |
|
|---|
| 102 | tmpResult := splitCmdLineParameter('abc', tmpRC);
|
|---|
| 103 | assertEqualsInt('CmdLine split single string', 0, tmpRC);
|
|---|
| 104 | assertEqualsInt('CmdLine split single string', 1, tmpResult.Count);
|
|---|
| 105 | assertEqualsString('CmdLine split single string', 'abc', tmpResult[0]);
|
|---|
| 106 |
|
|---|
| 107 | tmpResult := splitCmdLineParameter(' abc', tmpRC);
|
|---|
| 108 | assertEqualsInt('CmdLine split single string with leading blank', 0, tmpRC);
|
|---|
| 109 | assertEqualsInt('CmdLine split single string with leading blank', 1, tmpResult.Count);
|
|---|
| 110 | assertEqualsString('CmdLine split single string with leading blankCmdLine split many strings', 'abc', tmpResult[0]);
|
|---|
| 111 |
|
|---|
| 112 | tmpResult := splitCmdLineParameter('abc def ghi', tmpRC);
|
|---|
| 113 | assertEqualsInt('CmdLine split empy string', 0, tmpRC);
|
|---|
| 114 | assertEqualsInt('CmdLine split many strings', 3, tmpResult.Count);
|
|---|
| 115 | assertEqualsString('CmdLine split many strings', 'abc', tmpResult[0]);
|
|---|
| 116 | assertEqualsString('CmdLine split many strings', 'def', tmpResult[1]);
|
|---|
| 117 | assertEqualsString('CmdLine split many strings', 'ghi', tmpResult[2]);
|
|---|
| 118 |
|
|---|
| 119 | tmpResult := splitCmdLineParameter('"abc def"', tmpRC);
|
|---|
| 120 | assertEqualsInt('CmdLine split quoted (1)', 0, tmpRC);
|
|---|
| 121 | assertEqualsInt('CmdLine split quoted (1)', 1, tmpResult.Count);
|
|---|
| 122 | assertEqualsString('CmdLine split quoted (1)', 'abc def', tmpResult[0]);
|
|---|
| 123 |
|
|---|
| 124 | tmpResult := splitCmdLineParameter('ab"abc def"', tmpRC);
|
|---|
| 125 | assertEqualsInt('CmdLine split quoted (2)', 0, tmpRC);
|
|---|
| 126 | assertEqualsInt('CmdLine split quoted (2)', 1, tmpResult.Count);
|
|---|
| 127 | assertEqualsString('CmdLine split quoted (2)', 'ababc def', tmpResult[0]);
|
|---|
| 128 |
|
|---|
| 129 | tmpResult := splitCmdLineParameter('ab"""abc def"', tmpRC);
|
|---|
| 130 | assertEqualsInt('CmdLine split quoted (3)', 0, tmpRC);
|
|---|
| 131 | assertEqualsInt('CmdLine split quoted (3)', 1, tmpResult.Count);
|
|---|
| 132 | assertEqualsString('CmdLine split quoted (3)', 'ab"abc def', tmpResult[0]);
|
|---|
| 133 |
|
|---|
| 134 | tmpResult := splitCmdLineParameter('ab"abc""def"', tmpRC);
|
|---|
| 135 | assertEqualsInt('CmdLine split quoted (4)', 0, tmpRC);
|
|---|
| 136 | assertEqualsInt('CmdLine split quoted (4)', 1, tmpResult.Count);
|
|---|
| 137 | assertEqualsString('CmdLine split quoted (4)', 'ababc"def', tmpResult[0]);
|
|---|
| 138 |
|
|---|
| 139 | tmpResult := splitCmdLineParameter('ab"abc""def" "ghi"', tmpRC);
|
|---|
| 140 | assertEqualsInt('CmdLine split quoted (5)', 0, tmpRC);
|
|---|
| 141 | assertEqualsInt('CmdLine split quoted (5)', 2, tmpResult.Count);
|
|---|
| 142 | assertEqualsString('CmdLine split quoted (5)', 'ababc"def', tmpResult[0]);
|
|---|
| 143 | assertEqualsString('CmdLine split quoted (5)', 'ghi', tmpResult[1]);
|
|---|
| 144 |
|
|---|
| 145 | tmpResult := splitCmdLineParameter('ab"abc""def" "ghi', tmpRC);
|
|---|
| 146 | assertEqualsInt('CmdLine split quoted (6)', -1, tmpRC);
|
|---|
| 147 | assertEqualsInt('CmdLine split quoted (6)', 2, tmpResult.Count);
|
|---|
| 148 | assertEqualsString('CmdLine split quoted (6)', 'ababc"def', tmpResult[0]);
|
|---|
| 149 | assertEqualsString('CmdLine split quoted (6)', 'ghi', tmpResult[1]);
|
|---|
| 150 |
|
|---|
| 151 | // parser Tests
|
|---|
| 152 | tmpParams := TStringList.Create;
|
|---|
| 153 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 154 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 155 | assertFalse('parseCmdLine [getShowUsageFlag](1)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 156 | assertFalse('parseCmdLine [getSearchFlag](1)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 157 | assertEqualsString('parseCmdLine [getSearchText](1)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 158 | assertFalse('parseCmdLine [getGlobalSearchFlag](1)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 159 | assertEqualsString('parseCmdLine [getGlobalSearchText](1)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 160 | assertEqualsString('parseCmdLine [getLanguage](1)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 161 | assertFalse('parseCmdLine [getHelpManagerFlag](1)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 162 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](1)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 163 | assertEqualsInt('parseCmdLine [getOwnerWindow](1)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 164 | assertEqualsString('parseCmdLine [getWindowTitle](1)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 165 |
|
|---|
| 166 | tmpParams := TStringList.Create;
|
|---|
| 167 | tmpParams.add('-?');
|
|---|
| 168 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 169 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 170 | assertTrue('parseCmdLine [getShowUsageFlag](2)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 171 | assertFalse('parseCmdLine [getSearchFlag](2)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 172 | assertEqualsString('parseCmdLine [getSearchText](2)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 173 | assertFalse('parseCmdLine [getGlobalSearchFlag](2)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 174 | assertEqualsString('parseCmdLine [getGlobalSearchText](2)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 175 | assertEqualsString('parseCmdLine [getLanguage](2)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 176 | assertFalse('parseCmdLine [getHelpManagerFlag](2)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 177 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](2)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 178 | assertEqualsInt('parseCmdLine [getOwnerWindow](2)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 179 | assertEqualsString('parseCmdLine [getWindowTitle](2)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 180 |
|
|---|
| 181 | tmpParams := TStringList.Create;
|
|---|
| 182 | tmpParams.add('-h');
|
|---|
| 183 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 184 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 185 | assertTrue('parseCmdLine [getShowUsageFlag](3)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 186 | assertFalse('parseCmdLine [getSearchFlag](3)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 187 | assertEqualsString('parseCmdLine [getSearchText](3)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 188 | assertFalse('parseCmdLine [getGlobalSearchFlag](3)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 189 | assertEqualsString('parseCmdLine [getGlobalSearchText](3)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 190 | assertEqualsString('parseCmdLine [getLanguage](3)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 191 | assertFalse('parseCmdLine [getHelpManagerFlag](3)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 192 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](3)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 193 | assertEqualsInt('parseCmdLine [getOwnerWindow](3)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 194 | assertEqualsString('parseCmdLine [getWindowTitle](3)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 195 |
|
|---|
| 196 | tmpParams := TStringList.Create;
|
|---|
| 197 | tmpParams.add('-H');
|
|---|
| 198 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 199 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 200 | assertTrue('parseCmdLine [getShowUsageFlag](4)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 201 | assertFalse('parseCmdLine [getSearchFlag](4)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 202 | assertEqualsString('parseCmdLine [getSearchText](4)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 203 | assertFalse('parseCmdLine [getGlobalSearchFlag](4)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 204 | assertEqualsString('parseCmdLine [getGlobalSearchText](4)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 205 | assertEqualsString('parseCmdLine [getLanguage](4)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 206 | assertFalse('parseCmdLine [getHelpManagerFlag](4)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 207 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](4)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 208 | assertEqualsInt('parseCmdLine [getOwnerWindow](4)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 209 | assertEqualsString('parseCmdLine [getWindowTitle](4)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 210 |
|
|---|
| 211 | tmpParams := TStringList.Create;
|
|---|
| 212 | tmpParams.add('-HELP');
|
|---|
| 213 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 214 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 215 | assertTrue('parseCmdLine [getShowUsageFlag](5)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 216 | assertFalse('parseCmdLine [getSearchFlag](5)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 217 | assertEqualsString('parseCmdLine [getSearchText](5)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 218 | assertFalse('parseCmdLine [getGlobalSearchFlag](5)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 219 | assertEqualsString('parseCmdLine [getGlobalSearchText](5)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 220 | assertEqualsString('parseCmdLine [getLanguage](5)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 221 | assertFalse('parseCmdLine [getHelpManagerFlag](5)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 222 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](5)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 223 | assertEqualsInt('parseCmdLine [getOwnerWindow](5)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 224 | assertEqualsString('parseCmdLine [getWindowTitle](5)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 225 |
|
|---|
| 226 | tmpParams := TStringList.Create;
|
|---|
| 227 | tmpParams.add('-help');
|
|---|
| 228 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 229 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 230 | assertTrue('parseCmdLine [getShowUsageFlag](6)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 231 | assertFalse('parseCmdLine [getSearchFlag](6)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 232 | assertEqualsString('parseCmdLine [getSearchText](6)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 233 | assertFalse('parseCmdLine [getGlobalSearchFlag](6)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 234 | assertEqualsString('parseCmdLine [getGlobalSearchText](6)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 235 | assertEqualsString('parseCmdLine [getLanguage](6)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 236 | assertFalse('parseCmdLine [getHelpManagerFlag](6)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 237 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](6)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 238 | assertEqualsInt('parseCmdLine [getOwnerWindow](6)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 239 | assertEqualsString('parseCmdLine [getWindowTitle](6)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 240 |
|
|---|
| 241 | tmpParams := TStringList.Create;
|
|---|
| 242 | tmpParams.add('-s:search');
|
|---|
| 243 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 244 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 245 | assertFalse('parseCmdLine [getShowUsageFlag](7)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 246 | assertTrue('parseCmdLine [getSearchFlag](7)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 247 | assertEqualsString('parseCmdLine [getSearchText](7)', 'search', tmpCmdLineParameters.getSearchText);
|
|---|
| 248 | assertFalse('parseCmdLine [getGlobalSearchFlag](7)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 249 | assertEqualsString('parseCmdLine [getGlobalSearchText](7)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 250 | assertEqualsString('parseCmdLine [getLanguage](7)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 251 | assertFalse('parseCmdLine [getHelpManagerFlag](7)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 252 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](7)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 253 | assertEqualsInt('parseCmdLine [getOwnerWindow](7)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 254 | assertEqualsString('parseCmdLine [getWindowTitle](7)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 255 |
|
|---|
| 256 | tmpParams := TStringList.Create;
|
|---|
| 257 | tmpParams.add('-S:Search');
|
|---|
| 258 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 259 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 260 | assertFalse('parseCmdLine [getShowUsageFlag](8)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 261 | assertTrue('parseCmdLine [getSearchFlag](8)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 262 | assertEqualsString('parseCmdLine [getSearchText](8)', 'Search', tmpCmdLineParameters.getSearchText);
|
|---|
| 263 | assertFalse('parseCmdLine [getGlobalSearchFlag](8)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 264 | assertEqualsString('parseCmdLine [getGlobalSearchText](8)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 265 | assertEqualsString('parseCmdLine [getLanguage](8)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 266 | assertFalse('parseCmdLine [getHelpManagerFlag](8)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 267 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](8)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 268 | assertEqualsInt('parseCmdLine [getOwnerWindow](8)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 269 | assertEqualsString('parseCmdLine [getWindowTitle](8)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 270 |
|
|---|
| 271 | tmpParams := TStringList.Create;
|
|---|
| 272 | tmpParams.add('-S');
|
|---|
| 273 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 274 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 275 | assertFalse('parseCmdLine [getShowUsageFlag](9)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 276 | assertTrue('parseCmdLine [getSearchFlag](9)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 277 | assertEqualsString('parseCmdLine [getSearchText](9)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 278 | assertFalse('parseCmdLine [getGlobalSearchFlag](9)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 279 | assertEqualsString('parseCmdLine [getGlobalSearchText](9)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 280 | assertEqualsString('parseCmdLine [getLanguage](9)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 281 | assertFalse('parseCmdLine [getHelpManagerFlag](9)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 282 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](9)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 283 | assertEqualsInt('parseCmdLine [getOwnerWindow](9)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 284 | assertEqualsString('parseCmdLine [getWindowTitle](9)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 285 |
|
|---|
| 286 | tmpParams := TStringList.Create;
|
|---|
| 287 | tmpParams.add('-S:');
|
|---|
| 288 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 289 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 290 | assertFalse('parseCmdLine [getShowUsageFlag](10)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 291 | assertTrue('parseCmdLine [getSearchFlag](10)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 292 | assertEqualsString('parseCmdLine [getSearchText](10)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 293 | assertFalse('parseCmdLine [getGlobalSearchFlag](10)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 294 | assertEqualsString('parseCmdLine [getGlobalSearchText](10)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 295 | assertEqualsString('parseCmdLine [getLanguage](10)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 296 | assertFalse('parseCmdLine [getHelpManagerFlag](10)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 297 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](10)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 298 | assertEqualsInt('parseCmdLine [getOwnerWindow](10)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 299 | assertEqualsString('parseCmdLine [getWindowTitle](10)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 300 |
|
|---|
| 301 | tmpParams := TStringList.Create;
|
|---|
| 302 | tmpParams.add('-sSeaRch');
|
|---|
| 303 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 304 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 305 | assertFalse('parseCmdLine [getShowUsageFlag](11)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 306 | assertTrue('parseCmdLine [getSearchFlag](11)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 307 | assertEqualsString('parseCmdLine [getSearchText](11)', 'SeaRch', tmpCmdLineParameters.getSearchText);
|
|---|
| 308 | assertFalse('parseCmdLine [getGlobalSearchFlag](11)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 309 | assertEqualsString('parseCmdLine [getGlobalSearchText](11)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 310 | assertEqualsString('parseCmdLine [getLanguage](11)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 311 | assertFalse('parseCmdLine [getHelpManagerFlag](11)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 312 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](11)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 313 | assertEqualsInt('parseCmdLine [getOwnerWindow](11)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 314 | assertEqualsString('parseCmdLine [getWindowTitle](11)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 315 |
|
|---|
| 316 | tmpParams := TStringList.Create;
|
|---|
| 317 | tmpParams.add('-s::Sea rch');
|
|---|
| 318 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 319 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 320 | assertFalse('parseCmdLine [getShowUsageFlag](12)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 321 | assertTrue('parseCmdLine [getSearchFlag](12)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 322 | assertEqualsString('parseCmdLine [getSearchText](12)', ':Sea rch', tmpCmdLineParameters.getSearchText);
|
|---|
| 323 | assertFalse('parseCmdLine [getGlobalSearchFlag](12)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 324 | assertEqualsString('parseCmdLine [getGlobalSearchText](12)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 325 | assertEqualsString('parseCmdLine [getLanguage](12)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 326 | assertFalse('parseCmdLine [getHelpManagerFlag](12)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 327 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](12)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 328 | assertEqualsInt('parseCmdLine [getOwnerWindow](12)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 329 | assertEqualsString('parseCmdLine [getWindowTitle](12)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 330 |
|
|---|
| 331 | tmpParams := TStringList.Create;
|
|---|
| 332 | tmpParams.add('-g:globalsearch');
|
|---|
| 333 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 334 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 335 | assertFalse('parseCmdLine [getShowUsageFlag](13)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 336 | assertFalse('parseCmdLine [getSearchFlag](13)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 337 | assertEqualsString('parseCmdLine [getSearchText](13)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 338 | assertTrue('parseCmdLine [getGlobalSearchFlag](13)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 339 | assertEqualsString('parseCmdLine [getGlobalSearchText](13)', 'globalsearch', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 340 | assertEqualsString('parseCmdLine [getLanguage](13)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 341 | assertFalse('parseCmdLine [getHelpManagerFlag](13)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 342 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](13)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 343 | assertEqualsInt('parseCmdLine [getOwnerWindow](13)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 344 | assertEqualsString('parseCmdLine [getWindowTitle](13)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 345 |
|
|---|
| 346 | tmpParams := TStringList.Create;
|
|---|
| 347 | tmpParams.add('-G:globalSearch');
|
|---|
| 348 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 349 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 350 | assertFalse('parseCmdLine [getShowUsageFlag](14)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 351 | assertFalse('parseCmdLine [getSearchFlag](14)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 352 | assertEqualsString('parseCmdLine [getSearchText](14)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 353 | assertTrue('parseCmdLine [getGlobalSearchFlag](14)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 354 | assertEqualsString('parseCmdLine [getGlobalSearchText](14)', 'globalSearch', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 355 | assertEqualsString('parseCmdLine [getLanguage](14)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 356 | assertFalse('parseCmdLine [getHelpManagerFlag](14)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 357 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](14)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 358 | assertEqualsInt('parseCmdLine [getOwnerWindow](14)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 359 | assertEqualsString('parseCmdLine [getWindowTitle](14)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 360 |
|
|---|
| 361 | tmpParams := TStringList.Create;
|
|---|
| 362 | tmpParams.add('-gGlobalSearch');
|
|---|
| 363 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 364 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 365 | assertFalse('parseCmdLine [getShowUsageFlag](15)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 366 | assertFalse('parseCmdLine [getSearchFlag](15)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 367 | assertEqualsString('parseCmdLine [getSearchText](15)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 368 | assertTrue('parseCmdLine [getGlobalSearchFlag](15)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 369 | assertEqualsString('parseCmdLine [getGlobalSearchText](15)', 'GlobalSearch', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 370 | assertEqualsString('parseCmdLine [getLanguage](15)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 371 | assertFalse('parseCmdLine [getHelpManagerFlag](15)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 372 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](15)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 373 | assertEqualsInt('parseCmdLine [getOwnerWindow](15)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 374 | assertEqualsString('parseCmdLine [getWindowTitle](15)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 375 |
|
|---|
| 376 | tmpParams := TStringList.Create;
|
|---|
| 377 | tmpParams.add('-g::Global Search');
|
|---|
| 378 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 379 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 380 | assertFalse('parseCmdLine [getShowUsageFlag](16)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 381 | assertFalse('parseCmdLine [getSearchFlag](16)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 382 | assertEqualsString('parseCmdLine [getSearchText](16)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 383 | assertTrue('parseCmdLine [getGlobalSearchFlag](16)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 384 | assertEqualsString('parseCmdLine [getGlobalSearchText](16)', ':Global Search', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 385 | assertEqualsString('parseCmdLine [getLanguage](16)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 386 | assertFalse('parseCmdLine [getHelpManagerFlag](16)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 387 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](16)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 388 | assertEqualsInt('parseCmdLine [getOwnerWindow](16)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 389 | assertEqualsString('parseCmdLine [getWindowTitle](16)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 390 |
|
|---|
| 391 | tmpParams := TStringList.Create;
|
|---|
| 392 | tmpParams.add('-lang:DE');
|
|---|
| 393 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 394 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 395 | assertFalse('parseCmdLine [getShowUsageFlag](17)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 396 | assertFalse('parseCmdLine [getSearchFlag](17)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 397 | assertEqualsString('parseCmdLine [getSearchText](17)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 398 | assertFalse('parseCmdLine [getGlobalSearchFlag](17)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 399 | assertEqualsString('parseCmdLine [getGlobalSearchText](17)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 400 | assertEqualsString('parseCmdLine [getLanguage](17)', 'DE', tmpCmdLineParameters.getLanguage);
|
|---|
| 401 | assertFalse('parseCmdLine [getHelpManagerFlag](17)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 402 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](17)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 403 | assertEqualsInt('parseCmdLine [getOwnerWindow](17)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 404 | assertEqualsString('parseCmdLine [getWindowTitle](17)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 405 |
|
|---|
| 406 | tmpParams := TStringList.Create;
|
|---|
| 407 | tmpParams.add('-Hm:123');
|
|---|
| 408 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 409 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 410 | assertFalse('parseCmdLine [getShowUsageFlag](18)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 411 | assertFalse('parseCmdLine [getSearchFlag](18)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 412 | assertEqualsString('parseCmdLine [getSearchText](18)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 413 | assertFalse('parseCmdLine [getGlobalSearchFlag](18)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 414 | assertEqualsString('parseCmdLine [getGlobalSearchText](18)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 415 | assertEqualsString('parseCmdLine [getLanguage](18)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 416 | assertTrue('parseCmdLine [getHelpManagerFlag](18)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 417 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](18)', 123, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 418 | assertEqualsInt('parseCmdLine [getOwnerWindow](18)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 419 | assertEqualsString('parseCmdLine [getWindowTitle](18)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 420 |
|
|---|
| 421 | tmpParams := TStringList.Create;
|
|---|
| 422 | tmpParams.add('-HM:1zwei3');
|
|---|
| 423 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 424 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 425 | assertFalse('parseCmdLine [getShowUsageFlag](19)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 426 | assertFalse('parseCmdLine [getSearchFlag](19)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 427 | assertEqualsString('parseCmdLine [getSearchText](19)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 428 | assertFalse('parseCmdLine [getGlobalSearchFlag](19)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 429 | assertEqualsString('parseCmdLine [getGlobalSearchText](19)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 430 | assertEqualsString('parseCmdLine [getLanguage](19)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 431 | assertFalse('parseCmdLine [getHelpManagerFlag](19)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 432 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](19)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 433 | assertEqualsInt('parseCmdLine [getOwnerWindow](19)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 434 | assertEqualsString('parseCmdLine [getWindowTitle](19)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 435 |
|
|---|
| 436 | tmpParams := TStringList.Create;
|
|---|
| 437 | tmpParams.add('-oWner:123');
|
|---|
| 438 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 439 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 440 | assertFalse('parseCmdLine [getShowUsageFlag](20)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 441 | assertFalse('parseCmdLine [getSearchFlag](20)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 442 | assertEqualsString('parseCmdLine [getSearchText](20)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 443 | assertFalse('parseCmdLine [getGlobalSearchFlag](20)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 444 | assertEqualsString('parseCmdLine [getGlobalSearchText](20)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 445 | assertEqualsString('parseCmdLine [getLanguage](20)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 446 | assertFalse('parseCmdLine [getHelpManagerFlag](20)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 447 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](20)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 448 | assertEqualsInt('parseCmdLine [getOwnerWindow](20)', 123, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 449 | assertEqualsString('parseCmdLine [getWindowTitle](20)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 450 |
|
|---|
| 451 | tmpParams := TStringList.Create;
|
|---|
| 452 | tmpParams.add('-owner:1zwei3');
|
|---|
| 453 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 454 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 455 | assertFalse('parseCmdLine [getShowUsageFlag](21)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 456 | assertFalse('parseCmdLine [getSearchFlag](21)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 457 | assertEqualsString('parseCmdLine [getSearchText](21)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 458 | assertFalse('parseCmdLine [getGlobalSearchFlag](21)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 459 | assertEqualsString('parseCmdLine [getGlobalSearchText](21)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 460 | assertEqualsString('parseCmdLine [getLanguage](21)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 461 | assertFalse('parseCmdLine [getHelpManagerFlag](21)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 462 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](21)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 463 | assertEqualsInt('parseCmdLine [getOwnerWindow](21)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 464 | assertEqualsString('parseCmdLine [getWindowTitle](21)', '', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 465 |
|
|---|
| 466 | tmpParams := TStringList.Create;
|
|---|
| 467 | tmpParams.add('-tiTle:testTitle');
|
|---|
| 468 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 469 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 470 | assertFalse('parseCmdLine [getShowUsageFlag](22)', tmpCmdLineParameters.getShowUsageFlag);
|
|---|
| 471 | assertFalse('parseCmdLine [getSearchFlag](22)', tmpCmdLineParameters.getSearchTextFlag);
|
|---|
| 472 | assertEqualsString('parseCmdLine [getSearchText](22)', '', tmpCmdLineParameters.getSearchText);
|
|---|
| 473 | assertFalse('parseCmdLine [getGlobalSearchFlag](22)', tmpCmdLineParameters.getGlobalSearchTextFlag);
|
|---|
| 474 | assertEqualsString('parseCmdLine [getGlobalSearchText](22)', '', tmpCmdLineParameters.getGlobalSearchText);
|
|---|
| 475 | assertEqualsString('parseCmdLine [getLanguage](22)', '', tmpCmdLineParameters.getLanguage);
|
|---|
| 476 | assertFalse('parseCmdLine [getHelpManagerFlag](22)', tmpCmdLineParameters.getHelpManagerFlag);
|
|---|
| 477 | assertEqualsInt('parseCmdLine [getHelpManagerWindow](22)', 0, tmpCmdLineParameters.getHelpManagerWindow);
|
|---|
| 478 | assertEqualsInt('parseCmdLine [getOwnerWindow](22)', 0, tmpCmdLineParameters.getOwnerWindow);
|
|---|
| 479 | assertEqualsString('parseCmdLine [getWindowTitle](22)', 'testTitle', tmpCmdLineParameters.getWindowTitle);
|
|---|
| 480 |
|
|---|
| 481 | // can't test start profile
|
|---|
| 482 |
|
|---|
| 483 |
|
|---|
| 484 | tmpParams := TStringList.Create;
|
|---|
| 485 | tmpParams.add('-pos:20,40,60,80');
|
|---|
| 486 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 487 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 488 | assertTrue('parseCmdLine [getWindowPositionFlag](40)', tmpCmdLineParameters.getWindowPositionFlag);
|
|---|
| 489 | tmpWindowPosition := tmpCmdLineParameters.getWindowPosition;
|
|---|
| 490 | assertEqualsInt('parseCmdLine [getWindowPosition/left](40)', 20, tmpWindowPosition.left);
|
|---|
| 491 | assertEqualsInt('parseCmdLine [getWindowPosition/bottom](40)', 40, tmpWindowPosition.bottom);
|
|---|
| 492 | assertEqualsInt('parseCmdLine [getWindowPosition/width](40)', 60, tmpWindowPosition.width);
|
|---|
| 493 | assertEqualsInt('parseCmdLine [getWindowPosition/height](40)', 80, tmpWindowPosition.height);
|
|---|
| 494 |
|
|---|
| 495 | tmpParams := TStringList.Create;
|
|---|
| 496 | tmpParams.add('-pos:20p,40p,60p,70p');
|
|---|
| 497 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 498 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 499 | assertTrue('parseCmdLine [getWindowPositionFlag](41)', tmpCmdLineParameters.getWindowPositionFlag);
|
|---|
| 500 | tmpWindowPosition := tmpCmdLineParameters.getWindowPosition;
|
|---|
| 501 | assertEqualsInt('parseCmdLine [getWindowPosition/left](41)', 205, tmpWindowPosition.left);
|
|---|
| 502 | assertEqualsInt('parseCmdLine [getWindowPosition/bottom](41)', 307, tmpWindowPosition.bottom);
|
|---|
| 503 | assertEqualsInt('parseCmdLine [getWindowPosition/width](41)', 614, tmpWindowPosition.width);
|
|---|
| 504 | assertEqualsInt('parseCmdLine [getWindowPosition/height](41)', 538, tmpWindowPosition.height);
|
|---|
| 505 |
|
|---|
| 506 | tmpParams := TStringList.Create;
|
|---|
| 507 | tmpParams.add('ab c');
|
|---|
| 508 | tmpParams.add('topi1');
|
|---|
| 509 | tmpParams.add('topi2');
|
|---|
| 510 | tmpCmdLineParameters := TCmdLineParameters.Create;
|
|---|
| 511 | tmpCmdLineParameters.parseCmdLine(tmpParams);
|
|---|
| 512 | assertEqualsString('parseCmdLine [getFileName](70)', 'ab c', tmpCmdLineParameters.getFileName);
|
|---|
| 513 | assertEqualsString('parseCmdLine [getTopic](70)', 'topi1 topi2', tmpCmdLineParameters.getTopic);
|
|---|
| 514 | END;
|
|---|
| 515 |
|
|---|
| 516 |
|
|---|
| 517 |
|
|---|
| 518 |
|
|---|
| 519 | BEGIN
|
|---|
| 520 | writeln('NewView Tests');
|
|---|
| 521 | testCmdLineParameterUnit;
|
|---|
| 522 | END.
|
|---|
