Ignore:
Timestamp:
Feb 6, 2007, 9:01:19 PM (19 years ago)
Author:
RBRi
Message:

fixed melpmanager parameter handling
more unit tests

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/unittests/cmdlineparameterunittests.pas

    r67 r69  
    313313
    314314
     315  PROCEDURE testParseCmdLine_QuotedS;
     316  VAR
     317    tmpCmdLineString : String;
     318    tmpCmdLineParameters : TCmdLineParameters;
     319  BEGIN
     320    tmpCmdLineString := '"-S" FilE seArch';
     321    tmpCmdLineParameters := TCmdLineParameters.Create;
     322    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     323
     324    assertFalse('testParseCmdLine_QuotedS', tmpCmdLineParameters.getShowUsageFlag);
     325    assertTrue('testParseCmdLine_QuotedS', tmpCmdLineParameters.getSearchFlag);
     326    assertFalse('testParseCmdLine_QuotedS', tmpCmdLineParameters.getGlobalSearchFlag);
     327    assertEqualsString('testParseCmdLine_QuotedS', '', tmpCmdLineParameters.getLanguage);
     328    assertFalse('testParseCmdLine_QuotedS', tmpCmdLineParameters.getHelpManagerFlag);
     329    assertEqualsInt('testParseCmdLine_QuotedS', 0, tmpCmdLineParameters.getHelpManagerWindow);
     330    assertEqualsInt('testParseCmdLine_QuotedS', 0, tmpCmdLineParameters.getOwnerWindow);
     331    assertEqualsString('testParseCmdLine_QuotedS', '', tmpCmdLineParameters.getWindowTitle);
     332    assertEqualsString('testParseCmdLine_QuotedS', 'FilE', tmpCmdLineParameters.getInterpretedFileNames);
     333    assertEqualsString('testParseCmdLine_QuotedS', 'FilE', tmpCmdLineParameters.getFileNamesRaw);
     334    assertEqualsString('testParseCmdLine_QuotedS', 'seArch', tmpCmdLineParameters.getInterpretedSearchText);
     335  END;
     336
     337
    315338  PROCEDURE testParseCmdLine_emptyS;
    316339  VAR
    … …  
    498521
    499522
     523  PROCEDURE testParseCmdLine_QuotedG;
     524  VAR
     525    tmpCmdLineString : String;
     526    tmpCmdLineParameters : TCmdLineParameters;
     527  BEGIN
     528    tmpCmdLineString := '-G';
     529    tmpCmdLineParameters := TCmdLineParameters.Create;
     530    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     531
     532    assertFalse('testParseCmdLine_QuotedG', tmpCmdLineParameters.getShowUsageFlag);
     533    assertFalse('testParseCmdLine_QuotedG', tmpCmdLineParameters.getSearchFlag);
     534    assertTrue('testParseCmdLine_QuotedG', tmpCmdLineParameters.getGlobalSearchFlag);
     535    assertEqualsString('testParseCmdLine_QuotedG', '', tmpCmdLineParameters.getLanguage);
     536    assertFalse('testParseCmdLine_QuotedG', tmpCmdLineParameters.getHelpManagerFlag);
     537    assertEqualsInt('testParseCmdLine_QuotedG', 0, tmpCmdLineParameters.getHelpManagerWindow);
     538    assertEqualsInt('testParseCmdLine_QuotedG', 0, tmpCmdLineParameters.getOwnerWindow);
     539    assertEqualsString('testParseCmdLine_QuotedG', '', tmpCmdLineParameters.getWindowTitle);
     540    assertEqualsString('testParseCmdLine_QuotedG', '', tmpCmdLineParameters.getInterpretedFileNames);
     541    assertEqualsString('testParseCmdLine_QuotedG', '', tmpCmdLineParameters.getFileNamesRaw);
     542    assertEqualsString('testParseCmdLine_QuotedG', '', tmpCmdLineParameters.getInterpretedSearchText);
     543  END;
     544
     545
    500546  PROCEDURE testParseCmdLine_emptyG;
    501547  VAR
    … …  
    659705
    660706
     707  PROCEDURE testParseCmdLine_QuotedLanguage;
     708  VAR
     709    tmpCmdLineString : String;
     710    tmpCmdLineParameters : TCmdLineParameters;
     711  BEGIN
     712    tmpCmdLineString := '"-lang:DE" filE';
     713    tmpCmdLineParameters := TCmdLineParameters.Create;
     714    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     715
     716    assertFalse('testParseCmdLine_QuotedLanguage', tmpCmdLineParameters.getShowUsageFlag);
     717    assertFalse('testParseCmdLine_QuotedLanguage', tmpCmdLineParameters.getSearchFlag);
     718    assertFalse('testParseCmdLine_QuotedLanguage', tmpCmdLineParameters.getGlobalSearchFlag);
     719    assertEqualsString('testParseCmdLine_QuotedLanguage', 'DE', tmpCmdLineParameters.getLanguage);
     720    assertFalse('testParseCmdLine_QuotedLanguage', tmpCmdLineParameters.getHelpManagerFlag);
     721    assertEqualsInt('testParseCmdLine_QuotedLanguage', 0, tmpCmdLineParameters.getHelpManagerWindow);
     722    assertEqualsInt('testParseCmdLine_QuotedLanguage', 0, tmpCmdLineParameters.getOwnerWindow);
     723    assertEqualsString('testParseCmdLine_QuotedLanguage', '', tmpCmdLineParameters.getWindowTitle);
     724    assertEqualsString('testParseCmdLine_QuotedLanguage', 'filE', tmpCmdLineParameters.getInterpretedFileNames);
     725    assertEqualsString('testParseCmdLine_QuotedLanguage', 'filE', tmpCmdLineParameters.getFileNamesRaw);
     726    assertEqualsString('testParseCmdLine_QuotedLanguage', '', tmpCmdLineParameters.getInterpretedSearchText);
     727  END;
     728
     729
     730  PROCEDURE testParseCmdLine_QuotedLanguage2;
     731  VAR
     732    tmpCmdLineString : String;
     733    tmpCmdLineParameters : TCmdLineParameters;
     734  BEGIN
     735    tmpCmdLineString := '-lang:"DE" filE';
     736    tmpCmdLineParameters := TCmdLineParameters.Create;
     737    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     738
     739    assertFalse('testParseCmdLine_QuotedLanguage2', tmpCmdLineParameters.getShowUsageFlag);
     740    assertFalse('testParseCmdLine_QuotedLanguage2', tmpCmdLineParameters.getSearchFlag);
     741    assertFalse('testParseCmdLine_QuotedLanguage2', tmpCmdLineParameters.getGlobalSearchFlag);
     742    assertEqualsString('testParseCmdLine_QuotedLanguage2', 'DE', tmpCmdLineParameters.getLanguage);
     743    assertFalse('testParseCmdLine_QuotedLanguage2', tmpCmdLineParameters.getHelpManagerFlag);
     744    assertEqualsInt('testParseCmdLine_QuotedLanguage2', 0, tmpCmdLineParameters.getHelpManagerWindow);
     745    assertEqualsInt('testParseCmdLine_QuotedLanguage2', 0, tmpCmdLineParameters.getOwnerWindow);
     746    assertEqualsString('testParseCmdLine_QuotedLanguage2', '', tmpCmdLineParameters.getWindowTitle);
     747    assertEqualsString('testParseCmdLine_QuotedLanguage2', 'filE', tmpCmdLineParameters.getInterpretedFileNames);
     748    assertEqualsString('testParseCmdLine_QuotedLanguage2', 'filE', tmpCmdLineParameters.getFileNamesRaw);
     749    assertEqualsString('testParseCmdLine_QuotedLanguage2', '', tmpCmdLineParameters.getInterpretedSearchText);
     750  END;
     751
     752
    661753  PROCEDURE testParseCmdLine_Language_between;
    662754  VAR
    … …  
    728820
    729821
     822  PROCEDURE testParseCmdLine_HelpManagerBigNumber;
     823  VAR
     824    tmpCmdLineString : String;
     825    tmpCmdLineParameters : TCmdLineParameters;
     826  BEGIN
     827    tmpCmdLineString := '-Hm:2147484546';
     828    tmpCmdLineParameters := TCmdLineParameters.Create;
     829    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     830
     831    assertFalse('testParseCmdLine_HelpManagerBigNumber', tmpCmdLineParameters.getShowUsageFlag);
     832    assertFalse('testParseCmdLine_HelpManagerBigNumber', tmpCmdLineParameters.getSearchFlag);
     833    assertFalse('testParseCmdLine_HelpManagerBigNumber', tmpCmdLineParameters.getGlobalSearchFlag);
     834    assertEqualsString('testParseCmdLine_HelpManagerBigNumber', '', tmpCmdLineParameters.getLanguage);
     835    assertTrue('testParseCmdLine_HelpManagerBigNumber', tmpCmdLineParameters.getHelpManagerFlag);
     836    assertEqualsInt('testParseCmdLine_HelpManagerBigNumber', 2147484546, tmpCmdLineParameters.getHelpManagerWindow);
     837    assertEqualsInt('testParseCmdLine_HelpManagerBigNumber', 0, tmpCmdLineParameters.getOwnerWindow);
     838    assertEqualsString('testParseCmdLine_HelpManagerBigNumber', '', tmpCmdLineParameters.getWindowTitle);
     839    assertEqualsString('testParseCmdLine_HelpManagerBigNumber', 'C:\ecs\help\NewView.hlp', tmpCmdLineParameters.getInterpretedFileNames);
     840    assertEqualsString('testParseCmdLine_HelpManagerBigNumber', '', tmpCmdLineParameters.getFileNamesRaw);
     841    assertEqualsString('testParseCmdLine_HelpManagerBigNumber', '', tmpCmdLineParameters.getInterpretedSearchText);
     842  END;
     843
     844
    730845  PROCEDURE testParseCmdLine_HelpManagerNumber_WithoutColon;
    731846  VAR
    … …  
    10041119
    10051120
     1121  PROCEDURE testParseCmdLine_QuotedTitle;
     1122  VAR
     1123    tmpCmdLineString : String;
     1124    tmpCmdLineParameters : TCmdLineParameters;
     1125  BEGIN
     1126    tmpCmdLineString := '"-Title:Test Title"';
     1127    tmpCmdLineParameters := TCmdLineParameters.Create;
     1128    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     1129
     1130    assertFalse('testParseCmdLine_QuotedTitle', tmpCmdLineParameters.getShowUsageFlag);
     1131    assertFalse('testParseCmdLine_QuotedTitle', tmpCmdLineParameters.getSearchFlag);
     1132    assertFalse('testParseCmdLine_QuotedTitle', tmpCmdLineParameters.getGlobalSearchFlag);
     1133    assertEqualsString('testParseCmdLine_QuotedTitle', '', tmpCmdLineParameters.getLanguage);
     1134    assertFalse('testParseCmdLine_QuotedTitle', tmpCmdLineParameters.getHelpManagerFlag);
     1135    assertEqualsInt('testParseCmdLine_QuotedTitle', 0, tmpCmdLineParameters.getHelpManagerWindow);
     1136    assertEqualsInt('testParseCmdLine_QuotedTitle', 0, tmpCmdLineParameters.getOwnerWindow);
     1137    assertEqualsString('testParseCmdLine_QuotedTitle', 'Test Title', tmpCmdLineParameters.getWindowTitle);
     1138    assertEqualsString('testParseCmdLine_QuotedTitle', 'C:\ecs\help\NewView.hlp', tmpCmdLineParameters.getInterpretedFileNames);
     1139    assertEqualsString('testParseCmdLine_QuotedTitle', '', tmpCmdLineParameters.getFileNamesRaw);
     1140    assertEqualsString('testParseCmdLine_QuotedTitle', '', tmpCmdLineParameters.getInterpretedSearchText);
     1141  END;
     1142
     1143
     1144  PROCEDURE testParseCmdLine_QuotedTitle2;
     1145  VAR
     1146    tmpCmdLineString : String;
     1147    tmpCmdLineParameters : TCmdLineParameters;
     1148  BEGIN
     1149    tmpCmdLineString := '-Title:"Test Title"';
     1150    tmpCmdLineParameters := TCmdLineParameters.Create;
     1151    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     1152
     1153    assertFalse('testParseCmdLine_QuotedTitle2', tmpCmdLineParameters.getShowUsageFlag);
     1154    assertFalse('testParseCmdLine_QuotedTitle2', tmpCmdLineParameters.getSearchFlag);
     1155    assertFalse('testParseCmdLine_QuotedTitle2', tmpCmdLineParameters.getGlobalSearchFlag);
     1156    assertEqualsString('testParseCmdLine_QuotedTitle2', '', tmpCmdLineParameters.getLanguage);
     1157    assertFalse('testParseCmdLine_QuotedTitle2', tmpCmdLineParameters.getHelpManagerFlag);
     1158    assertEqualsInt('testParseCmdLine_QuotedTitle2', 0, tmpCmdLineParameters.getHelpManagerWindow);
     1159    assertEqualsInt('testParseCmdLine_QuotedTitle2', 0, tmpCmdLineParameters.getOwnerWindow);
     1160    assertEqualsString('testParseCmdLine_QuotedTitle2', 'Test Title', tmpCmdLineParameters.getWindowTitle);
     1161    assertEqualsString('testParseCmdLine_QuotedTitle2', 'C:\ecs\help\NewView.hlp', tmpCmdLineParameters.getInterpretedFileNames);
     1162    assertEqualsString('testParseCmdLine_QuotedTitle2', '', tmpCmdLineParameters.getFileNamesRaw);
     1163    assertEqualsString('testParseCmdLine_QuotedTitle2', '', tmpCmdLineParameters.getInterpretedSearchText);
     1164  END;
     1165
     1166
     1167  PROCEDURE testParseCmdLine_QuotedTitle_AfterFile;
     1168  VAR
     1169    tmpCmdLineString : String;
     1170    tmpCmdLineParameters : TCmdLineParameters;
     1171  BEGIN
     1172    tmpCmdLineString := 'cmdref "-Title:Test Title"';
     1173    tmpCmdLineParameters := TCmdLineParameters.Create;
     1174    tmpCmdLineParameters.parseCmdLine(tmpCmdLineString);
     1175
     1176    assertFalse('testParseCmdLine_QuotedTitle_AfterFile', tmpCmdLineParameters.getShowUsageFlag);
     1177    assertFalse('testParseCmdLine_QuotedTitle_AfterFile', tmpCmdLineParameters.getSearchFlag);
     1178    assertFalse('testParseCmdLine_QuotedTitle_AfterFile', tmpCmdLineParameters.getGlobalSearchFlag);
     1179    assertEqualsString('testParseCmdLine_QuotedTitle_AfterFile', '', tmpCmdLineParameters.getLanguage);
     1180    assertFalse('testParseCmdLine_QuotedTitle_AfterFile', tmpCmdLineParameters.getHelpManagerFlag);
     1181    assertEqualsInt('testParseCmdLine_QuotedTitle_AfterFile', 0, tmpCmdLineParameters.getHelpManagerWindow);
     1182    assertEqualsInt('testParseCmdLine_QuotedTitle_AfterFile', 0, tmpCmdLineParameters.getOwnerWindow);
     1183    assertEqualsString('testParseCmdLine_QuotedTitle_AfterFile', 'Test Title', tmpCmdLineParameters.getWindowTitle);
     1184    assertEqualsString('testParseCmdLine_QuotedTitle_AfterFile', 'cmdref', tmpCmdLineParameters.getInterpretedFileNames);
     1185    assertEqualsString('testParseCmdLine_QuotedTitle_AfterFile', 'cmdref', tmpCmdLineParameters.getFileNamesRaw);
     1186    assertEqualsString('testParseCmdLine_QuotedTitle_AfterFile', '', tmpCmdLineParameters.getInterpretedSearchText);
     1187  END;
     1188
     1189
    10061190  PROCEDURE testParseCmdLine_Title_between;
    10071191  VAR
    … …  
    13871571    result.add(@testParseCmdLine_upperS);
    13881572    result.add(@testParseCmdLine_upperS_withBlank);
     1573    result.add(@testParseCmdLine_QuotedS);
    13891574    result.add(@testParseCmdLine_emptyS);
    13901575
    … …  
    13971582    result.add(@testParseCmdLine_lowerG);
    13981583    result.add(@testParseCmdLine_upperG);
     1584    result.add(@testParseCmdLine_QuotedG);
    13991585    result.add(@testParseCmdLine_emptyG);
    14001586    result.add(@testParseCmdLine_g_between);
    … …  
    14061592    result.add(@testParseCmdLine_Language_Empty_WithColon);
    14071593    result.add(@testParseCmdLine_Language_WithFile);
     1594    result.add(@testParseCmdLine_QuotedLanguage);
     1595    result.add(@testParseCmdLine_QuotedLanguage2);
    14081596    result.add(@testParseCmdLine_Language_between);
    14091597    result.add(@testParseCmdLine_Language_between_withSpace);
    14101598
    14111599    result.add(@testParseCmdLine_HelpManagerNumber);
     1600    result.add(@testParseCmdLine_HelpManagerBigNumber);
    14121601    result.add(@testParseCmdLine_HelpManagerNumber_WithoutColon);
    14131602    result.add(@testParseCmdLine_HelpManagerNumber_Invalid);
    … …  
    14251614    result.add(@testParseCmdLine_Title_WithoutColon);
    14261615    result.add(@testParseCmdLine_Title_Empty);
     1616    result.add(@testParseCmdLine_QuotedTitle);
     1617    result.add(@testParseCmdLine_QuotedTitle2);
     1618    result.add(@testParseCmdLine_QuotedTitle_AfterFile);
    14271619    result.add(@testParseCmdLine_Title_between);
    14281620    result.add(@testParseCmdLine_Title_between_withSpace);
Note: See TracChangeset for help on using the changeset viewer.