source: trunk/NewView/unittests/cmdlineparameterunittests.pas@ 27

Last change on this file since 27 was 27, checked in by RBRi, 19 years ago

first unit tests incl. simple framework
  • Property svn:eol-style set to native
File size: 41.9 KB
Line 
1Unit CmdLineParameterUnitTests;
2
3Interface
4
5uses
6 Classes,
7 TestAssert,
8 CmdLineParameterUnit;
9
10FUNCTION getCmdLineParameterUnitTests : TList;
11PROCEDURE testSplitCmdLineParameter_Empty;
12PROCEDURE testSplitCmdLineParameter_simpleOne;
13PROCEDURE testSplitCmdLineParameter_simpleOneWithLeadingBlanks;
14PROCEDURE testSplitCmdLineParameter_simpleThreeParts;
15PROCEDURE testSplitCmdLineParameter_quoted;
16PROCEDURE testSplitCmdLineParameter_quotedPart;
17PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart;
18PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteInside;
19PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd;
20PROCEDURE testSplitCmdLineParameter_TwoQuotedParts;
21PROCEDURE testSplitCmdLineParameter_TwoQuotesAtStartEnd;
22PROCEDURE testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote;
23
24PROCEDURE testParseCmdLine_Empty;
25
26PROCEDURE testParseCmdLine_QuestionMark;
27PROCEDURE testParseCmdLine_lowerH;
28PROCEDURE testParseCmdLine_upperH;
29PROCEDURE testParseCmdLine_lowerHelp;
30PROCEDURE testParseCmdLine_upperHELP;
31
32PROCEDURE testParseCmdLine_lowerS;
33PROCEDURE testParseCmdLine_upperS;
34PROCEDURE testParseCmdLine_emptyS;
35PROCEDURE testParseCmdLine_emptyColonS;
36PROCEDURE testParseCmdLine_withoutColonS;
37PROCEDURE testParseCmdLine_doubleColonS;
38
39PROCEDURE testParseCmdLine_lowerG;
40PROCEDURE testParseCmdLine_upperG;
41PROCEDURE testParseCmdLine_emptyG;
42PROCEDURE testParseCmdLine_emptyColonG;
43PROCEDURE testParseCmdLine_withoutColonG;
44PROCEDURE testParseCmdLine_doubleColonG;
45
46PROCEDURE testParseCmdLine_Language;
47PROCEDURE testParseCmdLine_HelpManagerNumber;
48PROCEDURE testParseCmdLine_HelpManagerText;
49PROCEDURE testParseCmdLine_OwnerNumber;
50PROCEDURE testParseCmdLine_OwnerTest;
51PROCEDURE testParseCmdLine_Title;
52PROCEDURE testParseCmdLine_WindowPos;
53PROCEDURE testParseCmdLine_WindowPosPercentage;
54PROCEDURE testParseCmdLine_Topic;
55
56Implementation
57
58 PROCEDURE testSplitCmdLineParameter_Empty;
59 VAR
60 tmpResult : TStringList;
61 tmpRC : Integer;
62 BEGIN
63 tmpResult := TStringList.Create;
64 tmpRC := splitCmdLineParameter('', tmpResult);
65
66 assertEqualsInt('testSplitCmdLineParameter_Empty', 0, tmpRC);
67 assertEqualsInt('testSplitCmdLineParameter_Empty', 0, tmpResult.Count);
68
69 tmpResult.Destroy;
70 END;
71
72
73 PROCEDURE testSplitCmdLineParameter_simpleOne;
74 VAR
75 tmpResult : TStringList;
76 tmpRC : Integer;
77 BEGIN
78 tmpResult := TStringList.Create;
79 tmpRC := splitCmdLineParameter('abc', tmpResult);
80
81 assertEqualsInt('testSplitCmdLineParameter_simpleOne', 0, tmpRC);
82 assertEqualsInt('testSplitCmdLineParameter_simpleOne', 1, tmpResult.Count);
83 assertEqualsString('testSplitCmdLineParameter_simpleOne', 'abc', tmpResult[0]);
84
85 tmpResult.Destroy;
86 END;
87
88
89 PROCEDURE testSplitCmdLineParameter_simpleOneWithLeadingBlanks;
90 VAR
91 tmpResult : TStringList;
92 tmpRC : Integer;
93 BEGIN
94 tmpResult := TStringList.Create;
95 tmpRC := splitCmdLineParameter(' abc', tmpResult);
96
97 assertEqualsInt('testSplitCmdLineParameter_simpleOneWithLeadingBlanks', 0, tmpRC);
98 assertEqualsInt('testSplitCmdLineParameter_simpleOneWithLeadingBlanks', 1, tmpResult.Count);
99 assertEqualsString('testSplitCmdLineParameter_simpleOneWithLeadingBlanks', 'abc', tmpResult[0]);
100
101 tmpResult.Destroy;
102 END;
103
104
105 PROCEDURE testSplitCmdLineParameter_simpleThreeParts;
106 VAR
107 tmpResult : TStringList;
108 tmpRC : Integer;
109 BEGIN
110 tmpResult := TStringList.Create;
111 tmpRC := splitCmdLineParameter('abc def ghi', tmpResult);
112
113 assertEqualsInt('testSplitCmdLineParameter_simpleThreeParts', 0, tmpRC);
114 assertEqualsInt('testSplitCmdLineParameter_simpleThreeParts', 3, tmpResult.Count);
115 assertEqualsString('testSplitCmdLineParameter_simpleThreeParts', 'abc', tmpResult[0]);
116 assertEqualsString('testSplitCmdLineParameter_simpleThreeParts', 'def', tmpResult[1]);
117 assertEqualsString('testSplitCmdLineParameter_simpleThreeParts', 'ghi', tmpResult[2]);
118
119 tmpResult.Destroy;
120 END;
121
122
123 PROCEDURE testSplitCmdLineParameter_quoted;
124 VAR
125 tmpResult : TStringList;
126 tmpRC : Integer;
127 BEGIN
128 tmpResult := TStringList.Create;
129 tmpRC := splitCmdLineParameter('"abc def"', tmpResult);
130
131 assertEqualsInt('testSplitCmdLineParameter_quoted', 0, tmpRC);
132 assertEqualsInt('testSplitCmdLineParameter_quoted', 1, tmpResult.Count);
133 assertEqualsString('testSplitCmdLineParameter_quoted', 'abc def', tmpResult[0]);
134
135 tmpResult.Destroy;
136 END;
137
138
139 PROCEDURE testSplitCmdLineParameter_quotedPart;
140 VAR
141 tmpResult : TStringList;
142 tmpRC : Integer;
143 BEGIN
144 tmpResult := TStringList.Create;
145 tmpRC := splitCmdLineParameter('ab"abc def"', tmpResult);
146
147 assertEqualsInt('testSplitCmdLineParameter_quotedPart', 0, tmpRC);
148 assertEqualsInt('testSplitCmdLineParameter_quotedPart', 1, tmpResult.Count);
149 assertEqualsString('testSplitCmdLineParameter_quotedPart', 'ababc def', tmpResult[0]);
150
151 tmpResult.Destroy;
152 END;
153
154
155 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart;
156 VAR
157 tmpResult : TStringList;
158 tmpRC : Integer;
159 BEGIN
160 tmpResult := TStringList.Create;
161 tmpRC := splitCmdLineParameter('ab"""abc def"', tmpResult);
162
163 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart', 0, tmpRC);
164 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart', 1, tmpResult.Count);
165 assertEqualsString('testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart', 'ab"abc def', tmpResult[0]);
166
167 tmpResult.Destroy;
168 END;
169
170
171 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteInside;
172 VAR
173 tmpResult : TStringList;
174 tmpRC : Integer;
175 BEGIN
176 tmpResult := TStringList.Create;
177 tmpRC := splitCmdLineParameter('ab"ab c""d ef"', tmpResult);
178
179 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteInside', 0, tmpRC);
180 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteInside', 1, tmpResult.Count);
181 assertEqualsString('testSplitCmdLineParameter_quotedPartIncludingQuoteInside', 'abab c"d ef', tmpResult[0]);
182
183 tmpResult.Destroy;
184 END;
185
186
187 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd;
188 VAR
189 tmpResult : TStringList;
190 tmpRC : Integer;
191 BEGIN
192 tmpResult := TStringList.Create;
193 tmpRC := splitCmdLineParameter('ab"abc def"""', tmpResult);
194
195 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd', 0, tmpRC);
196 assertEqualsInt('testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd', 1, tmpResult.Count);
197 assertEqualsString('testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd', 'ababc def"', tmpResult[0]);
198
199 tmpResult.Destroy;
200 END;
201
202
203 PROCEDURE testSplitCmdLineParameter_TwoQuotedParts;
204 VAR
205 tmpResult : TStringList;
206 tmpRC : Integer;
207 BEGIN
208 tmpResult := TStringList.Create;
209 tmpRC := splitCmdLineParameter('ab"abc""def" "ghi"', tmpResult);
210
211 assertEqualsInt('testSplitCmdLineParameter_TwoQuotedParts', 0, tmpRC);
212 assertEqualsInt('testSplitCmdLineParameter_TwoQuotedParts', 2, tmpResult.Count);
213 assertEqualsString('testSplitCmdLineParameter_TwoQuotedParts', 'ababc"def', tmpResult[0]);
214 assertEqualsString('testSplitCmdLineParameter_TwoQuotedParts', 'ghi', tmpResult[1]);
215
216 tmpResult.Destroy;
217 END;
218
219
220 PROCEDURE testSplitCmdLineParameter_TwoQuotesAtStartEnd;
221 VAR
222 tmpResult : TStringList;
223 tmpRC : Integer;
224 BEGIN
225 tmpResult := TStringList.Create;
226 tmpRC := splitCmdLineParameter('""abc def""', tmpResult);
227
228 assertEqualsInt('testSplitCmdLineParameter_TwoQuotesAtStartEnd', 0, tmpRC);
229 assertEqualsInt('testSplitCmdLineParameter_TwoQuotesAtStartEnd', 2, tmpResult.Count);
230 assertEqualsString('testSplitCmdLineParameter_TwoQuotesAtStartEnd', 'abc', tmpResult[0]);
231 assertEqualsString('testSplitCmdLineParameter_TwoQuotesAtStartEnd', 'def', tmpResult[1]);
232
233 tmpResult.Destroy;
234 END;
235
236
237 PROCEDURE testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote;
238 VAR
239 tmpResult : TStringList;
240 tmpRC : Integer;
241 BEGIN
242 tmpResult := TStringList.Create;
243 tmpRC := splitCmdLineParameter('ab"abc""def" "ghi', tmpResult);
244
245 assertEqualsInt('testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote', -1, tmpRC);
246 assertEqualsInt('testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote', 2, tmpResult.Count);
247 assertEqualsString('testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote', 'ababc"def', tmpResult[0]);
248 assertEqualsString('testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote', 'ghi', tmpResult[1]);
249
250 tmpResult.Destroy;
251 END;
252
253
254 //////////////////
255 // parser Tests
256 //////////////////
257
258
259 PROCEDURE testParseCmdLine_Empty;
260 VAR
261 tmpParams : TStringList;
262 tmpCmdLineParameters : TCmdLineParameters;
263 BEGIN
264 tmpParams := TStringList.Create;
265 tmpCmdLineParameters := TCmdLineParameters.Create;
266 tmpCmdLineParameters.parseCmdLine(tmpParams);
267
268 assertFalse('testParseCmdLine_Empty', tmpCmdLineParameters.getShowUsageFlag);
269 assertFalse('testParseCmdLine_Empty', tmpCmdLineParameters.getSearchTextFlag);
270 assertEqualsString('testParseCmdLine_Empty', '', tmpCmdLineParameters.getSearchText);
271 assertFalse('testParseCmdLine_Empty', tmpCmdLineParameters.getGlobalSearchTextFlag);
272 assertEqualsString('testParseCmdLine_Empty', '', tmpCmdLineParameters.getGlobalSearchText);
273 assertEqualsString('testParseCmdLine_Empty', '', tmpCmdLineParameters.getLanguage);
274 assertFalse('testParseCmdLine_Empty', tmpCmdLineParameters.getHelpManagerFlag);
275 assertEqualsInt('testParseCmdLine_Empty', 0, tmpCmdLineParameters.getHelpManagerWindow);
276 assertEqualsInt('testParseCmdLine_Empty', 0, tmpCmdLineParameters.getOwnerWindow);
277 assertEqualsString('testParseCmdLine_Empty', '', tmpCmdLineParameters.getWindowTitle);
278 END;
279
280
281 PROCEDURE testParseCmdLine_QuestionMark;
282 VAR
283 tmpParams : TStringList;
284 tmpCmdLineParameters : TCmdLineParameters;
285 BEGIN
286 tmpParams := TStringList.Create;
287 tmpParams.add('-?');
288 tmpCmdLineParameters := TCmdLineParameters.Create;
289 tmpCmdLineParameters.parseCmdLine(tmpParams);
290
291 assertTrue('testParseCmdLine_QuestionMark', tmpCmdLineParameters.getShowUsageFlag);
292 assertFalse('testParseCmdLine_QuestionMark', tmpCmdLineParameters.getSearchTextFlag);
293 assertEqualsString('testParseCmdLine_QuestionMark', '', tmpCmdLineParameters.getSearchText);
294 assertFalse('testParseCmdLine_QuestionMark', tmpCmdLineParameters.getGlobalSearchTextFlag);
295 assertEqualsString('testParseCmdLine_QuestionMark', '', tmpCmdLineParameters.getGlobalSearchText);
296 assertEqualsString('testParseCmdLine_QuestionMark', '', tmpCmdLineParameters.getLanguage);
297 assertFalse('testParseCmdLine_QuestionMark', tmpCmdLineParameters.getHelpManagerFlag);
298 assertEqualsInt('testParseCmdLine_QuestionMark', 0, tmpCmdLineParameters.getHelpManagerWindow);
299 assertEqualsInt('testParseCmdLine_QuestionMark', 0, tmpCmdLineParameters.getOwnerWindow);
300 assertEqualsString('testParseCmdLine_QuestionMark', '', tmpCmdLineParameters.getWindowTitle);
301 END;
302
303
304 PROCEDURE testParseCmdLine_lowerH;
305 VAR
306 tmpParams : TStringList;
307 tmpCmdLineParameters : TCmdLineParameters;
308 BEGIN
309 tmpParams := TStringList.Create;
310 tmpParams.add('-h');
311 tmpCmdLineParameters := TCmdLineParameters.Create;
312 tmpCmdLineParameters.parseCmdLine(tmpParams);
313
314 assertTrue('testParseCmdLine_lowerH', tmpCmdLineParameters.getShowUsageFlag);
315 assertFalse('testParseCmdLine_lowerH', tmpCmdLineParameters.getSearchTextFlag);
316 assertEqualsString('testParseCmdLine_lowerH', '', tmpCmdLineParameters.getSearchText);
317 assertFalse('testParseCmdLine_lowerH', tmpCmdLineParameters.getGlobalSearchTextFlag);
318 assertEqualsString('testParseCmdLine_lowerH', '', tmpCmdLineParameters.getGlobalSearchText);
319 assertEqualsString('testParseCmdLine_lowerH', '', tmpCmdLineParameters.getLanguage);
320 assertFalse('testParseCmdLine_lowerH', tmpCmdLineParameters.getHelpManagerFlag);
321 assertEqualsInt('testParseCmdLine_lowerH', 0, tmpCmdLineParameters.getHelpManagerWindow);
322 assertEqualsInt('testParseCmdLine_lowerH', 0, tmpCmdLineParameters.getOwnerWindow);
323 assertEqualsString('testParseCmdLine_lowerH', '', tmpCmdLineParameters.getWindowTitle);
324 END;
325
326
327 PROCEDURE testParseCmdLine_upperH;
328 VAR
329 tmpParams : TStringList;
330 tmpCmdLineParameters : TCmdLineParameters;
331 BEGIN
332 tmpParams := TStringList.Create;
333 tmpParams.add('-H');
334 tmpCmdLineParameters := TCmdLineParameters.Create;
335 tmpCmdLineParameters.parseCmdLine(tmpParams);
336
337 assertTrue('testParseCmdLine_upperH', tmpCmdLineParameters.getShowUsageFlag);
338 assertFalse('testParseCmdLine_upperH', tmpCmdLineParameters.getSearchTextFlag);
339 assertEqualsString('testParseCmdLine_upperH', '', tmpCmdLineParameters.getSearchText);
340 assertFalse('testParseCmdLine_upperH', tmpCmdLineParameters.getGlobalSearchTextFlag);
341 assertEqualsString('testParseCmdLine_upperH', '', tmpCmdLineParameters.getGlobalSearchText);
342 assertEqualsString('testParseCmdLine_upperH', '', tmpCmdLineParameters.getLanguage);
343 assertFalse('testParseCmdLine_upperH', tmpCmdLineParameters.getHelpManagerFlag);
344 assertEqualsInt('testParseCmdLine_upperH', 0, tmpCmdLineParameters.getHelpManagerWindow);
345 assertEqualsInt('testParseCmdLine_upperH', 0, tmpCmdLineParameters.getOwnerWindow);
346 assertEqualsString('testParseCmdLine_upperH', '', tmpCmdLineParameters.getWindowTitle);
347 END;
348
349
350 PROCEDURE testParseCmdLine_lowerHelp;
351 VAR
352 tmpParams : TStringList;
353 tmpCmdLineParameters : TCmdLineParameters;
354 BEGIN
355 tmpParams := TStringList.Create;
356 tmpParams.add('-help');
357 tmpCmdLineParameters := TCmdLineParameters.Create;
358 tmpCmdLineParameters.parseCmdLine(tmpParams);
359
360 assertTrue('testParseCmdLine_lowerHelp', tmpCmdLineParameters.getShowUsageFlag);
361 assertFalse('testParseCmdLine_lowerHelp', tmpCmdLineParameters.getSearchTextFlag);
362 assertEqualsString('testParseCmdLine_lowerHelp', '', tmpCmdLineParameters.getSearchText);
363 assertFalse('testParseCmdLine_lowerHelp', tmpCmdLineParameters.getGlobalSearchTextFlag);
364 assertEqualsString('testParseCmdLine_lowerHelp', '', tmpCmdLineParameters.getGlobalSearchText);
365 assertEqualsString('testParseCmdLine_lowerHelp', '', tmpCmdLineParameters.getLanguage);
366 assertFalse('testParseCmdLine_lowerHelp', tmpCmdLineParameters.getHelpManagerFlag);
367 assertEqualsInt('testParseCmdLine_lowerHelp', 0, tmpCmdLineParameters.getHelpManagerWindow);
368 assertEqualsInt('testParseCmdLine_lowerHelp', 0, tmpCmdLineParameters.getOwnerWindow);
369 assertEqualsString('testParseCmdLine_lowerHelp', '', tmpCmdLineParameters.getWindowTitle);
370 END;
371
372
373 PROCEDURE testParseCmdLine_upperHELP;
374 VAR
375 tmpParams : TStringList;
376 tmpCmdLineParameters : TCmdLineParameters;
377 BEGIN
378 tmpParams := TStringList.Create;
379 tmpParams.add('-HELP');
380 tmpCmdLineParameters := TCmdLineParameters.Create;
381 tmpCmdLineParameters.parseCmdLine(tmpParams);
382
383 assertTrue('testParseCmdLine_upperHELP', tmpCmdLineParameters.getShowUsageFlag);
384 assertFalse('testParseCmdLine_upperHELP', tmpCmdLineParameters.getSearchTextFlag);
385 assertEqualsString('testParseCmdLine_upperHELP', '', tmpCmdLineParameters.getSearchText);
386 assertFalse('testParseCmdLine_upperHELP', tmpCmdLineParameters.getGlobalSearchTextFlag);
387 assertEqualsString('testParseCmdLine_upperHELP', '', tmpCmdLineParameters.getGlobalSearchText);
388 assertEqualsString('testParseCmdLine_upperHELP', '', tmpCmdLineParameters.getLanguage);
389 assertFalse('testParseCmdLine_upperHELP', tmpCmdLineParameters.getHelpManagerFlag);
390 assertEqualsInt('testParseCmdLine_upperHELP', 0, tmpCmdLineParameters.getHelpManagerWindow);
391 assertEqualsInt('testParseCmdLine_upperHELP', 0, tmpCmdLineParameters.getOwnerWindow);
392 assertEqualsString('testParseCmdLine_upperHELP', '', tmpCmdLineParameters.getWindowTitle);
393 END;
394
395
396 PROCEDURE testParseCmdLine_lowerS;
397 VAR
398 tmpParams : TStringList;
399 tmpCmdLineParameters : TCmdLineParameters;
400 BEGIN
401 tmpParams := TStringList.Create;
402 tmpParams.add('-s:search');
403 tmpCmdLineParameters := TCmdLineParameters.Create;
404 tmpCmdLineParameters.parseCmdLine(tmpParams);
405
406 assertFalse('testParseCmdLine_lowerS', tmpCmdLineParameters.getShowUsageFlag);
407 assertTrue('testParseCmdLine_lowerS', tmpCmdLineParameters.getSearchTextFlag);
408 assertEqualsString('testParseCmdLine_lowerS', 'search', tmpCmdLineParameters.getSearchText);
409 assertFalse('testParseCmdLine_lowerS', tmpCmdLineParameters.getGlobalSearchTextFlag);
410 assertEqualsString('testParseCmdLine_lowerS', '', tmpCmdLineParameters.getGlobalSearchText);
411 assertEqualsString('testParseCmdLine_lowerS', '', tmpCmdLineParameters.getLanguage);
412 assertFalse('testParseCmdLine_lowerS', tmpCmdLineParameters.getHelpManagerFlag);
413 assertEqualsInt('testParseCmdLine_lowerS', 0, tmpCmdLineParameters.getHelpManagerWindow);
414 assertEqualsInt('testParseCmdLine_lowerS', 0, tmpCmdLineParameters.getOwnerWindow);
415 assertEqualsString('testParseCmdLine_lowerS', '', tmpCmdLineParameters.getWindowTitle);
416 END;
417
418
419 PROCEDURE testParseCmdLine_upperS;
420 VAR
421 tmpParams : TStringList;
422 tmpCmdLineParameters : TCmdLineParameters;
423 BEGIN
424 tmpParams := TStringList.Create;
425 tmpParams.add('-S:seArch');
426 tmpCmdLineParameters := TCmdLineParameters.Create;
427 tmpCmdLineParameters.parseCmdLine(tmpParams);
428
429 assertFalse('testParseCmdLine_upperS', tmpCmdLineParameters.getShowUsageFlag);
430 assertTrue('testParseCmdLine_upperS', tmpCmdLineParameters.getSearchTextFlag);
431 assertEqualsString('testParseCmdLine_upperS', 'seArch', tmpCmdLineParameters.getSearchText);
432 assertFalse('testParseCmdLine_upperS', tmpCmdLineParameters.getGlobalSearchTextFlag);
433 assertEqualsString('testParseCmdLine_upperS', '', tmpCmdLineParameters.getGlobalSearchText);
434 assertEqualsString('testParseCmdLine_upperS', '', tmpCmdLineParameters.getLanguage);
435 assertFalse('testParseCmdLine_upperS', tmpCmdLineParameters.getHelpManagerFlag);
436 assertEqualsInt('testParseCmdLine_upperS', 0, tmpCmdLineParameters.getHelpManagerWindow);
437 assertEqualsInt('testParseCmdLine_upperS', 0, tmpCmdLineParameters.getOwnerWindow);
438 assertEqualsString('testParseCmdLine_upperS', '', tmpCmdLineParameters.getWindowTitle);
439 END;
440
441
442 PROCEDURE testParseCmdLine_emptyS;
443 VAR
444 tmpParams : TStringList;
445 tmpCmdLineParameters : TCmdLineParameters;
446 BEGIN
447 tmpParams := TStringList.Create;
448 tmpParams.add('-S');
449 tmpCmdLineParameters := TCmdLineParameters.Create;
450 tmpCmdLineParameters.parseCmdLine(tmpParams);
451
452 assertFalse('testParseCmdLine_emptyS', tmpCmdLineParameters.getShowUsageFlag);
453 assertTrue('testParseCmdLine_emptyS', tmpCmdLineParameters.getSearchTextFlag);
454 assertEqualsString('testParseCmdLine_emptyS', '', tmpCmdLineParameters.getSearchText);
455 assertFalse('testParseCmdLine_emptyS', tmpCmdLineParameters.getGlobalSearchTextFlag);
456 assertEqualsString('testParseCmdLine_emptyS', '', tmpCmdLineParameters.getGlobalSearchText);
457 assertEqualsString('testParseCmdLine_emptyS', '', tmpCmdLineParameters.getLanguage);
458 assertFalse('testParseCmdLine_emptyS', tmpCmdLineParameters.getHelpManagerFlag);
459 assertEqualsInt('testParseCmdLine_emptyS', 0, tmpCmdLineParameters.getHelpManagerWindow);
460 assertEqualsInt('testParseCmdLine_emptyS', 0, tmpCmdLineParameters.getOwnerWindow);
461 assertEqualsString('testParseCmdLine_emptyS', '', tmpCmdLineParameters.getWindowTitle);
462 END;
463
464
465 PROCEDURE testParseCmdLine_emptyColonS;
466 VAR
467 tmpParams : TStringList;
468 tmpCmdLineParameters : TCmdLineParameters;
469 BEGIN
470 tmpParams := TStringList.Create;
471 tmpParams.add('-S:');
472 tmpCmdLineParameters := TCmdLineParameters.Create;
473 tmpCmdLineParameters.parseCmdLine(tmpParams);
474
475 assertFalse('testParseCmdLine_emptyColonS', tmpCmdLineParameters.getShowUsageFlag);
476 assertTrue('testParseCmdLine_emptyColonS', tmpCmdLineParameters.getSearchTextFlag);
477 assertEqualsString('testParseCmdLine_emptyColonS', '', tmpCmdLineParameters.getSearchText);
478 assertFalse('testParseCmdLine_emptyColonS', tmpCmdLineParameters.getGlobalSearchTextFlag);
479 assertEqualsString('testParseCmdLine_emptyColonS', '', tmpCmdLineParameters.getGlobalSearchText);
480 assertEqualsString('testParseCmdLine_emptyColonS', '', tmpCmdLineParameters.getLanguage);
481 assertFalse('testParseCmdLine_emptyColonS', tmpCmdLineParameters.getHelpManagerFlag);
482 assertEqualsInt('testParseCmdLine_emptyColonS', 0, tmpCmdLineParameters.getHelpManagerWindow);
483 assertEqualsInt('testParseCmdLine_emptyColonS', 0, tmpCmdLineParameters.getOwnerWindow);
484 assertEqualsString('testParseCmdLine_emptyColonS', '', tmpCmdLineParameters.getWindowTitle);
485 END;
486
487
488 PROCEDURE testParseCmdLine_withoutColonS;
489 VAR
490 tmpParams : TStringList;
491 tmpCmdLineParameters : TCmdLineParameters;
492 BEGIN
493 tmpParams := TStringList.Create;
494 tmpParams.add('-ssEarRch');
495 tmpCmdLineParameters := TCmdLineParameters.Create;
496 tmpCmdLineParameters.parseCmdLine(tmpParams);
497
498 assertFalse('testParseCmdLine_withoutColonS', tmpCmdLineParameters.getShowUsageFlag);
499 assertTrue('testParseCmdLine_withoutColonS', tmpCmdLineParameters.getSearchTextFlag);
500 assertEqualsString('testParseCmdLine_withoutColonS', 'sEarRch', tmpCmdLineParameters.getSearchText);
501 assertFalse('testParseCmdLine_withoutColonS', tmpCmdLineParameters.getGlobalSearchTextFlag);
502 assertEqualsString('testParseCmdLine_withoutColonS', '', tmpCmdLineParameters.getGlobalSearchText);
503 assertEqualsString('testParseCmdLine_withoutColonS', '', tmpCmdLineParameters.getLanguage);
504 assertFalse('testParseCmdLine_withoutColonS', tmpCmdLineParameters.getHelpManagerFlag);
505 assertEqualsInt('testParseCmdLine_withoutColonS', 0, tmpCmdLineParameters.getHelpManagerWindow);
506 assertEqualsInt('testParseCmdLine_withoutColonS', 0, tmpCmdLineParameters.getOwnerWindow);
507 assertEqualsString('testParseCmdLine_withoutColonS', '', tmpCmdLineParameters.getWindowTitle);
508 END;
509
510
511 PROCEDURE testParseCmdLine_doubleColonS;
512 VAR
513 tmpParams : TStringList;
514 tmpCmdLineParameters : TCmdLineParameters;
515 BEGIN
516 tmpParams := TStringList.Create;
517 tmpParams.add('-s::sEarRch');
518 tmpCmdLineParameters := TCmdLineParameters.Create;
519 tmpCmdLineParameters.parseCmdLine(tmpParams);
520
521 assertFalse('testParseCmdLine_doubleColonS', tmpCmdLineParameters.getShowUsageFlag);
522 assertTrue('testParseCmdLine_doubleColonS', tmpCmdLineParameters.getSearchTextFlag);
523 assertEqualsString('testParseCmdLine_doubleColonS', ':sEarRch', tmpCmdLineParameters.getSearchText);
524 assertFalse('testParseCmdLine_doubleColonS', tmpCmdLineParameters.getGlobalSearchTextFlag);
525 assertEqualsString('testParseCmdLine_doubleColonS', '', tmpCmdLineParameters.getGlobalSearchText);
526 assertEqualsString('testParseCmdLine_doubleColonS', '', tmpCmdLineParameters.getLanguage);
527 assertFalse('testParseCmdLine_doubleColonS', tmpCmdLineParameters.getHelpManagerFlag);
528 assertEqualsInt('testParseCmdLine_doubleColonS', 0, tmpCmdLineParameters.getHelpManagerWindow);
529 assertEqualsInt('testParseCmdLine_doubleColonS', 0, tmpCmdLineParameters.getOwnerWindow);
530 assertEqualsString('testParseCmdLine_doubleColonS', '', tmpCmdLineParameters.getWindowTitle);
531 END;
532
533
534 PROCEDURE testParseCmdLine_lowerG;
535 VAR
536 tmpParams : TStringList;
537 tmpCmdLineParameters : TCmdLineParameters;
538 BEGIN
539 tmpParams := TStringList.Create;
540 tmpParams.add('-g:search');
541 tmpCmdLineParameters := TCmdLineParameters.Create;
542 tmpCmdLineParameters.parseCmdLine(tmpParams);
543
544 assertFalse('testParseCmdLine_lowerG', tmpCmdLineParameters.getShowUsageFlag);
545 assertFalse('testParseCmdLine_lowerG', tmpCmdLineParameters.getSearchTextFlag);
546 assertEqualsString('testParseCmdLine_lowerG', '', tmpCmdLineParameters.getSearchText);
547 assertTrue('testParseCmdLine_lowerG', tmpCmdLineParameters.getGlobalSearchTextFlag);
548 assertEqualsString('testParseCmdLine_lowerG', 'search', tmpCmdLineParameters.getGlobalSearchText);
549 assertEqualsString('testParseCmdLine_lowerG', '', tmpCmdLineParameters.getLanguage);
550 assertFalse('testParseCmdLine_lowerG', tmpCmdLineParameters.getHelpManagerFlag);
551 assertEqualsInt('testParseCmdLine_lowerG', 0, tmpCmdLineParameters.getHelpManagerWindow);
552 assertEqualsInt('testParseCmdLine_lowerG', 0, tmpCmdLineParameters.getOwnerWindow);
553 assertEqualsString('testParseCmdLine_lowerG', '', tmpCmdLineParameters.getWindowTitle);
554 END;
555
556
557 PROCEDURE testParseCmdLine_upperG;
558 VAR
559 tmpParams : TStringList;
560 tmpCmdLineParameters : TCmdLineParameters;
561 BEGIN
562 tmpParams := TStringList.Create;
563 tmpParams.add('-G:seArch');
564 tmpCmdLineParameters := TCmdLineParameters.Create;
565 tmpCmdLineParameters.parseCmdLine(tmpParams);
566
567 assertFalse('testParseCmdLine_upperG', tmpCmdLineParameters.getShowUsageFlag);
568 assertFalse('testParseCmdLine_upperG', tmpCmdLineParameters.getSearchTextFlag);
569 assertEqualsString('testParseCmdLine_upperG', '', tmpCmdLineParameters.getSearchText);
570 assertTrue('testParseCmdLine_upperG', tmpCmdLineParameters.getGlobalSearchTextFlag);
571 assertEqualsString('testParseCmdLine_upperG', 'seArch', tmpCmdLineParameters.getGlobalSearchText);
572 assertEqualsString('testParseCmdLine_upperG', '', tmpCmdLineParameters.getLanguage);
573 assertFalse('testParseCmdLine_upperG', tmpCmdLineParameters.getHelpManagerFlag);
574 assertEqualsInt('testParseCmdLine_upperG', 0, tmpCmdLineParameters.getHelpManagerWindow);
575 assertEqualsInt('testParseCmdLine_upperG', 0, tmpCmdLineParameters.getOwnerWindow);
576 assertEqualsString('testParseCmdLine_upperG', '', tmpCmdLineParameters.getWindowTitle);
577 END;
578
579
580 PROCEDURE testParseCmdLine_emptyG;
581 VAR
582 tmpParams : TStringList;
583 tmpCmdLineParameters : TCmdLineParameters;
584 BEGIN
585 tmpParams := TStringList.Create;
586 tmpParams.add('-G');
587 tmpCmdLineParameters := TCmdLineParameters.Create;
588 tmpCmdLineParameters.parseCmdLine(tmpParams);
589
590 assertFalse('testParseCmdLine_emptyG', tmpCmdLineParameters.getShowUsageFlag);
591 assertFalse('testParseCmdLine_emptyG', tmpCmdLineParameters.getSearchTextFlag);
592 assertEqualsString('testParseCmdLine_emptyG', '', tmpCmdLineParameters.getSearchText);
593 assertTrue('testParseCmdLine_emptyG', tmpCmdLineParameters.getGlobalSearchTextFlag);
594 assertEqualsString('testParseCmdLine_emptyG', '', tmpCmdLineParameters.getGlobalSearchText);
595 assertEqualsString('testParseCmdLine_emptyG', '', tmpCmdLineParameters.getLanguage);
596 assertFalse('testParseCmdLine_emptyG', tmpCmdLineParameters.getHelpManagerFlag);
597 assertEqualsInt('testParseCmdLine_emptyG', 0, tmpCmdLineParameters.getHelpManagerWindow);
598 assertEqualsInt('testParseCmdLine_emptyG', 0, tmpCmdLineParameters.getOwnerWindow);
599 assertEqualsString('testParseCmdLine_emptyG', '', tmpCmdLineParameters.getWindowTitle);
600 END;
601
602
603 PROCEDURE testParseCmdLine_emptyColonG;
604 VAR
605 tmpParams : TStringList;
606 tmpCmdLineParameters : TCmdLineParameters;
607 BEGIN
608 tmpParams := TStringList.Create;
609 tmpParams.add('-G:');
610 tmpCmdLineParameters := TCmdLineParameters.Create;
611 tmpCmdLineParameters.parseCmdLine(tmpParams);
612
613 assertFalse('testParseCmdLine_emptyColonG', tmpCmdLineParameters.getShowUsageFlag);
614 assertFalse('testParseCmdLine_emptyColonG', tmpCmdLineParameters.getSearchTextFlag);
615 assertEqualsString('testParseCmdLine_emptyColonG', '', tmpCmdLineParameters.getSearchText);
616 assertTrue('testParseCmdLine_emptyColonG', tmpCmdLineParameters.getGlobalSearchTextFlag);
617 assertEqualsString('testParseCmdLine_emptyColonG', '', tmpCmdLineParameters.getGlobalSearchText);
618 assertEqualsString('testParseCmdLine_emptyColonG', '', tmpCmdLineParameters.getLanguage);
619 assertFalse('testParseCmdLine_emptyColonG', tmpCmdLineParameters.getHelpManagerFlag);
620 assertEqualsInt('testParseCmdLine_emptyColonG', 0, tmpCmdLineParameters.getHelpManagerWindow);
621 assertEqualsInt('testParseCmdLine_emptyColonG', 0, tmpCmdLineParameters.getOwnerWindow);
622 assertEqualsString('testParseCmdLine_emptyColonG', '', tmpCmdLineParameters.getWindowTitle);
623 END;
624
625
626 PROCEDURE testParseCmdLine_withoutColonG;
627 VAR
628 tmpParams : TStringList;
629 tmpCmdLineParameters : TCmdLineParameters;
630 BEGIN
631 tmpParams := TStringList.Create;
632 tmpParams.add('-gsEarRch');
633 tmpCmdLineParameters := TCmdLineParameters.Create;
634 tmpCmdLineParameters.parseCmdLine(tmpParams);
635
636 assertFalse('testParseCmdLine_withoutColonG', tmpCmdLineParameters.getShowUsageFlag);
637 assertFalse('testParseCmdLine_withoutColonG', tmpCmdLineParameters.getSearchTextFlag);
638 assertEqualsString('testParseCmdLine_withoutColonG', '', tmpCmdLineParameters.getSearchText);
639 assertTrue('testParseCmdLine_withoutColonG', tmpCmdLineParameters.getGlobalSearchTextFlag);
640 assertEqualsString('testParseCmdLine_withoutColonG', 'sEarRch', tmpCmdLineParameters.getGlobalSearchText);
641 assertEqualsString('testParseCmdLine_withoutColonG', '', tmpCmdLineParameters.getLanguage);
642 assertFalse('testParseCmdLine_withoutColonG', tmpCmdLineParameters.getHelpManagerFlag);
643 assertEqualsInt('testParseCmdLine_withoutColonG', 0, tmpCmdLineParameters.getHelpManagerWindow);
644 assertEqualsInt('testParseCmdLine_withoutColonG', 0, tmpCmdLineParameters.getOwnerWindow);
645 assertEqualsString('testParseCmdLine_withoutColonG', '', tmpCmdLineParameters.getWindowTitle);
646 END;
647
648
649 PROCEDURE testParseCmdLine_doubleColonG;
650 VAR
651 tmpParams : TStringList;
652 tmpCmdLineParameters : TCmdLineParameters;
653 BEGIN
654 tmpParams := TStringList.Create;
655 tmpParams.add('-g::sEarRch');
656 tmpCmdLineParameters := TCmdLineParameters.Create;
657 tmpCmdLineParameters.parseCmdLine(tmpParams);
658
659 assertFalse('testParseCmdLine_doubleColonG', tmpCmdLineParameters.getShowUsageFlag);
660 assertFalse('testParseCmdLine_doubleColonG', tmpCmdLineParameters.getSearchTextFlag);
661 assertEqualsString('testParseCmdLine_doubleColonG', '', tmpCmdLineParameters.getSearchText);
662 assertTrue('testParseCmdLine_doubleColonG', tmpCmdLineParameters.getGlobalSearchTextFlag);
663 assertEqualsString('testParseCmdLine_doubleColonG', ':sEarRch', tmpCmdLineParameters.getGlobalSearchText);
664 assertEqualsString('testParseCmdLine_doubleColonG', '', tmpCmdLineParameters.getLanguage);
665 assertFalse('testParseCmdLine_doubleColonG', tmpCmdLineParameters.getHelpManagerFlag);
666 assertEqualsInt('testParseCmdLine_doubleColonG', 0, tmpCmdLineParameters.getHelpManagerWindow);
667 assertEqualsInt('testParseCmdLine_doubleColonG', 0, tmpCmdLineParameters.getOwnerWindow);
668 assertEqualsString('testParseCmdLine_doubleColonG', '', tmpCmdLineParameters.getWindowTitle);
669 END;
670
671
672 PROCEDURE testParseCmdLine_Language;
673 VAR
674 tmpParams : TStringList;
675 tmpCmdLineParameters : TCmdLineParameters;
676 BEGIN
677 tmpParams := TStringList.Create;
678 tmpParams.add('-lang:DE');
679 tmpCmdLineParameters := TCmdLineParameters.Create;
680 tmpCmdLineParameters.parseCmdLine(tmpParams);
681
682 assertFalse('testParseCmdLine_Language', tmpCmdLineParameters.getShowUsageFlag);
683 assertFalse('testParseCmdLine_Language', tmpCmdLineParameters.getSearchTextFlag);
684 assertEqualsString('testParseCmdLine_Language', '', tmpCmdLineParameters.getSearchText);
685 assertFalse('testParseCmdLine_Language', tmpCmdLineParameters.getGlobalSearchTextFlag);
686 assertEqualsString('testParseCmdLine_Language', '', tmpCmdLineParameters.getGlobalSearchText);
687 assertEqualsString('testParseCmdLine_Language', 'DE', tmpCmdLineParameters.getLanguage);
688 assertFalse('testParseCmdLine_Language', tmpCmdLineParameters.getHelpManagerFlag);
689 assertEqualsInt('testParseCmdLine_Language', 0, tmpCmdLineParameters.getHelpManagerWindow);
690 assertEqualsInt('testParseCmdLine_Language', 0, tmpCmdLineParameters.getOwnerWindow);
691 assertEqualsString('testParseCmdLine_Language', '', tmpCmdLineParameters.getWindowTitle);
692 END;
693
694
695 PROCEDURE testParseCmdLine_HelpManagerNumber;
696 VAR
697 tmpParams : TStringList;
698 tmpCmdLineParameters : TCmdLineParameters;
699 BEGIN
700 tmpParams := TStringList.Create;
701 tmpParams.add('-Hm:123');
702 tmpCmdLineParameters := TCmdLineParameters.Create;
703 tmpCmdLineParameters.parseCmdLine(tmpParams);
704
705 assertFalse('testParseCmdLine_HelpManagerNumber', tmpCmdLineParameters.getShowUsageFlag);
706 assertFalse('testParseCmdLine_HelpManagerNumber', tmpCmdLineParameters.getSearchTextFlag);
707 assertEqualsString('testParseCmdLine_HelpManagerNumber', '', tmpCmdLineParameters.getSearchText);
708 assertFalse('testParseCmdLine_HelpManagerNumber', tmpCmdLineParameters.getGlobalSearchTextFlag);
709 assertEqualsString('testParseCmdLine_HelpManagerNumber', '', tmpCmdLineParameters.getGlobalSearchText);
710 assertEqualsString('testParseCmdLine_HelpManagerNumber', '', tmpCmdLineParameters.getLanguage);
711 assertTrue('testParseCmdLine_HelpManagerNumber', tmpCmdLineParameters.getHelpManagerFlag);
712 assertEqualsInt('testParseCmdLine_HelpManagerNumber', 123, tmpCmdLineParameters.getHelpManagerWindow);
713 assertEqualsInt('testParseCmdLine_HelpManagerNumber', 0, tmpCmdLineParameters.getOwnerWindow);
714 assertEqualsString('testParseCmdLine_HelpManagerNumber', '', tmpCmdLineParameters.getWindowTitle);
715 END;
716
717
718 PROCEDURE testParseCmdLine_HelpManagerText;
719 VAR
720 tmpParams : TStringList;
721 tmpCmdLineParameters : TCmdLineParameters;
722 BEGIN
723 tmpParams := TStringList.Create;
724 tmpParams.add('-HM:1zwei3');
725 tmpCmdLineParameters := TCmdLineParameters.Create;
726 tmpCmdLineParameters.parseCmdLine(tmpParams);
727
728 assertFalse('testParseCmdLine_HelpManagerText', tmpCmdLineParameters.getShowUsageFlag);
729 assertFalse('testParseCmdLine_HelpManagerText', tmpCmdLineParameters.getSearchTextFlag);
730 assertEqualsString('testParseCmdLine_HelpManagerText', '', tmpCmdLineParameters.getSearchText);
731 assertFalse('testParseCmdLine_HelpManagerText', tmpCmdLineParameters.getGlobalSearchTextFlag);
732 assertEqualsString('parseCmdLine [getGlobalSearchText](19)', '', tmpCmdLineParameters.getGlobalSearchText);
733 assertEqualsString('testParseCmdLine_HelpManagerText', '', tmpCmdLineParameters.getLanguage);
734 assertFalse('testParseCmdLine_HelpManagerText', tmpCmdLineParameters.getHelpManagerFlag);
735 assertEqualsInt('testParseCmdLine_HelpManagerText', 0, tmpCmdLineParameters.getHelpManagerWindow);
736 assertEqualsInt('testParseCmdLine_HelpManagerText', 0, tmpCmdLineParameters.getOwnerWindow);
737 assertEqualsString('testParseCmdLine_HelpManagerText', '', tmpCmdLineParameters.getWindowTitle);
738 END;
739
740
741 PROCEDURE testParseCmdLine_OwnerNumber;
742 VAR
743 tmpParams : TStringList;
744 tmpCmdLineParameters : TCmdLineParameters;
745 BEGIN
746 tmpParams := TStringList.Create;
747 tmpParams.add('-oWner:123');
748 tmpCmdLineParameters := TCmdLineParameters.Create;
749 tmpCmdLineParameters.parseCmdLine(tmpParams);
750
751 assertFalse('testParseCmdLine_OwnerNumber', tmpCmdLineParameters.getShowUsageFlag);
752 assertFalse('testParseCmdLine_OwnerNumber', tmpCmdLineParameters.getSearchTextFlag);
753 assertEqualsString('testParseCmdLine_OwnerNumber', '', tmpCmdLineParameters.getSearchText);
754 assertFalse('testParseCmdLine_OwnerNumber', tmpCmdLineParameters.getGlobalSearchTextFlag);
755 assertEqualsString('testParseCmdLine_OwnerNumber', '', tmpCmdLineParameters.getGlobalSearchText);
756 assertEqualsString('testParseCmdLine_OwnerNumber', '', tmpCmdLineParameters.getLanguage);
757 assertFalse('testParseCmdLine_OwnerNumber', tmpCmdLineParameters.getHelpManagerFlag);
758 assertEqualsInt('testParseCmdLine_OwnerNumber', 0, tmpCmdLineParameters.getHelpManagerWindow);
759 assertEqualsInt('testParseCmdLine_OwnerNumber', 123, tmpCmdLineParameters.getOwnerWindow);
760 assertEqualsString('testParseCmdLine_OwnerNumber', '', tmpCmdLineParameters.getWindowTitle);
761 END;
762
763
764 PROCEDURE testParseCmdLine_OwnerTest;
765 VAR
766 tmpParams : TStringList;
767 tmpCmdLineParameters : TCmdLineParameters;
768 BEGIN
769 tmpParams := TStringList.Create;
770 tmpParams.add('-oWner:1zwei3');
771 tmpCmdLineParameters := TCmdLineParameters.Create;
772 tmpCmdLineParameters.parseCmdLine(tmpParams);
773
774 assertFalse('testParseCmdLine_OwnerTest', tmpCmdLineParameters.getShowUsageFlag);
775 assertFalse('testParseCmdLine_OwnerTest', tmpCmdLineParameters.getSearchTextFlag);
776 assertEqualsString('testParseCmdLine_OwnerTest', '', tmpCmdLineParameters.getSearchText);
777 assertFalse('testParseCmdLine_OwnerTest', tmpCmdLineParameters.getGlobalSearchTextFlag);
778 assertEqualsString('testParseCmdLine_OwnerTest', '', tmpCmdLineParameters.getGlobalSearchText);
779 assertEqualsString('testParseCmdLine_OwnerTest', '', tmpCmdLineParameters.getLanguage);
780 assertFalse('testParseCmdLine_OwnerTest', tmpCmdLineParameters.getHelpManagerFlag);
781 assertEqualsInt('testParseCmdLine_OwnerTest', 0, tmpCmdLineParameters.getHelpManagerWindow);
782 assertEqualsInt('testParseCmdLine_OwnerTest', 0, tmpCmdLineParameters.getOwnerWindow);
783 assertEqualsString('testParseCmdLine_OwnerTest', '', tmpCmdLineParameters.getWindowTitle);
784 END;
785
786
787 PROCEDURE testParseCmdLine_Title;
788 VAR
789 tmpParams : TStringList;
790 tmpCmdLineParameters : TCmdLineParameters;
791 BEGIN
792 tmpParams := TStringList.Create;
793 tmpParams.add('-tiTle:testTitle');
794 tmpCmdLineParameters := TCmdLineParameters.Create;
795 tmpCmdLineParameters.parseCmdLine(tmpParams);
796
797 assertFalse('testParseCmdLine_Title', tmpCmdLineParameters.getShowUsageFlag);
798 assertFalse('testParseCmdLine_Title', tmpCmdLineParameters.getSearchTextFlag);
799 assertEqualsString('testParseCmdLine_Title', '', tmpCmdLineParameters.getSearchText);
800 assertFalse('testParseCmdLine_Title', tmpCmdLineParameters.getGlobalSearchTextFlag);
801 assertEqualsString('testParseCmdLine_Title', '', tmpCmdLineParameters.getGlobalSearchText);
802 assertEqualsString('testParseCmdLine_Title', '', tmpCmdLineParameters.getLanguage);
803 assertFalse('testParseCmdLine_Title', tmpCmdLineParameters.getHelpManagerFlag);
804 assertEqualsInt('testParseCmdLine_Title', 0, tmpCmdLineParameters.getHelpManagerWindow);
805 assertEqualsInt('testParseCmdLine_Title', 0, tmpCmdLineParameters.getOwnerWindow);
806 assertEqualsString('testParseCmdLine_Title', 'testTitle', tmpCmdLineParameters.getWindowTitle);
807 END;
808
809
810 // can't test start profile
811
812 PROCEDURE testParseCmdLine_WindowPos;
813 VAR
814 tmpParams : TStringList;
815 tmpCmdLineParameters : TCmdLineParameters;
816 tmpWindowPosition : TWindowPosition;
817 BEGIN
818 tmpParams := TStringList.Create;
819 tmpParams.add('-pos:20,40,60,80');
820 tmpCmdLineParameters := TCmdLineParameters.Create;
821 tmpCmdLineParameters.parseCmdLine(tmpParams);
822
823 assertTrue('parseCmdLine [getWindowPositionFlag](40)', tmpCmdLineParameters.getWindowPositionFlag);
824 tmpWindowPosition := tmpCmdLineParameters.getWindowPosition;
825 assertEqualsInt('testParseCmdLine_WindowPos', 20, tmpWindowPosition.left);
826 assertEqualsInt('testParseCmdLine_WindowPos', 40, tmpWindowPosition.bottom);
827 assertEqualsInt('testParseCmdLine_WindowPos', 60, tmpWindowPosition.width);
828 assertEqualsInt('testParseCmdLine_WindowPos', 80, tmpWindowPosition.height);
829 END;
830
831
832 PROCEDURE testParseCmdLine_WindowPosPercentage;
833 VAR
834 tmpParams : TStringList;
835 tmpCmdLineParameters : TCmdLineParameters;
836 tmpWindowPosition : TWindowPosition;
837 BEGIN
838 tmpParams := TStringList.Create;
839 tmpParams.add('-pos:100p,100p,50p,50p');
840 tmpCmdLineParameters := TCmdLineParameters.Create;
841 tmpCmdLineParameters.parseCmdLine(tmpParams);
842
843 assertTrue('parseCmdLine [getWindowPositionFlag](41)', tmpCmdLineParameters.getWindowPositionFlag);
844 tmpWindowPosition := tmpCmdLineParameters.getWindowPosition;
845 assertEqualsInt('testParseCmdLine_WindowPosPercentage [left](41)', 1280, tmpWindowPosition.left);
846 assertEqualsInt('testParseCmdLine_WindowPosPercentage [bottom](41)', 1024, tmpWindowPosition.bottom);
847 assertEqualsInt('testParseCmdLine_WindowPosPercentage [width](41)', 640, tmpWindowPosition.width);
848 assertEqualsInt('testParseCmdLine_WindowPosPercentage [height](41)', 512, tmpWindowPosition.height);
849 END;
850
851
852 PROCEDURE testParseCmdLine_Topic;
853 VAR
854 tmpParams : TStringList;
855 tmpCmdLineParameters : TCmdLineParameters;
856 BEGIN
857 tmpParams := TStringList.Create;
858 tmpParams.add('ab c');
859 tmpParams.add('topi1');
860 tmpParams.add('topi2');
861 tmpCmdLineParameters := TCmdLineParameters.Create;
862 tmpCmdLineParameters.parseCmdLine(tmpParams);
863
864 assertEqualsString('testParseCmdLine_Topic', 'ab c', tmpCmdLineParameters.getFileNames);
865 assertEqualsString('testParseCmdLine_Topic', 'topi1 topi2', tmpCmdLineParameters.getTopics);
866 END;
867
868
869 FUNCTION getCmdLineParameterUnitTests : TList;
870 BEGIN
871 result := TList.Create;
872 result.add(@testSplitCmdLineParameter_Empty);
873 result.add(@testSplitCmdLineParameter_simpleOne);
874 result.add(@testSplitCmdLineParameter_simpleOneWithLeadingBlanks);
875 result.add(@testSplitCmdLineParameter_simpleThreeParts);
876 result.add(@testSplitCmdLineParameter_quoted);
877 result.add(@testSplitCmdLineParameter_quotedPart);
878 result.add(@testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart);
879 result.add(@testSplitCmdLineParameter_quotedPartIncludingQuoteInside);
880 result.add(@testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd);
881 result.add(@testSplitCmdLineParameter_TwoQuotedParts);
882 result.add(@testSplitCmdLineParameter_TwoQuotesAtStartEnd);
883 result.add(@testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote);
884
885 result.add(@testParseCmdLine_Empty);
886
887 result.add(@testParseCmdLine_QuestionMark);
888 result.add(@testParseCmdLine_lowerH);
889 result.add(@testParseCmdLine_upperH);
890 result.add(@testParseCmdLine_lowerHelp);
891 result.add(@testParseCmdLine_upperHELP);
892
893 result.add(@testParseCmdLine_lowerS);
894 result.add(@testParseCmdLine_upperS);
895 result.add(@testParseCmdLine_emptyS);
896 result.add(@testParseCmdLine_emptyColonS);
897 result.add(@testParseCmdLine_emptyColonS);
898 result.add(@testParseCmdLine_withoutColonS);
899 result.add(@testParseCmdLine_doubleColonS);
900
901 result.add(@testParseCmdLine_lowerG);
902 result.add(@testParseCmdLine_upperG);
903 result.add(@testParseCmdLine_emptyG);
904 result.add(@testParseCmdLine_emptyColonG);
905 result.add(@testParseCmdLine_emptyColonG);
906 result.add(@testParseCmdLine_withoutColonG);
907 result.add(@testParseCmdLine_doubleColonG);
908
909 result.add(@testParseCmdLine_Language);
910 result.add(@testParseCmdLine_HelpManagerNumber);
911 result.add(@testParseCmdLine_HelpManagerText);
912 result.add(@testParseCmdLine_OwnerNumber);
913 result.add(@testParseCmdLine_OwnerTest);
914 result.add(@testParseCmdLine_Title);
915 result.add(@testParseCmdLine_WindowPos);
916 result.add(@testParseCmdLine_WindowPosPercentage);
917 result.add(@testParseCmdLine_Topic);
918 END;
919
920END.
Note: See TracBrowser for help on using the repository browser.