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