Changeset 35


Ignore:
Timestamp:
Sep 17, 2006, 8:47:43 PM (19 years ago)
Author:
RBRi
Message:

+ StringUtilsUnit and the unit test
+ some More unit test (now we have 67)

Location:
trunk/NewView
Files:
3 added
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/unittests/cmdlineparameterunittests.pas

    r29 r35  
    88  CmdLineParameterUnit;
    99
    10 FUNCTION getCmdLineParameterUnitTests : TList;
    11 PROCEDURE testSplitCmdLineParameter_Empty;
    12 PROCEDURE testSplitCmdLineParameter_simpleOne;
    13 PROCEDURE testSplitCmdLineParameter_simpleOneWithLeadingBlanks;
    14 PROCEDURE testSplitCmdLineParameter_simpleThreeParts;
    15 PROCEDURE testSplitCmdLineParameter_quoted;
    16 PROCEDURE testSplitCmdLineParameter_quotedPart;
    17 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtStart;
    18 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteInside;
    19 PROCEDURE testSplitCmdLineParameter_quotedPartIncludingQuoteAtEnd;
    20 PROCEDURE testSplitCmdLineParameter_TwoQuotedParts;
    21 PROCEDURE testSplitCmdLineParameter_TwoQuotesAtStartEnd;
    22 PROCEDURE testSplitCmdLineParameter_Failure_TwoQuotesAtEnd;
    23 PROCEDURE testSplitCmdLineParameter_TwoQuotedPartsMissingClosedQuote;
    24 PROCEDURE testSplitCmdLineParameter_1Quote;
    25 PROCEDURE testSplitCmdLineParameter_2Quote;
    26 PROCEDURE testSplitCmdLineParameter_3Quote;
    27 PROCEDURE testSplitCmdLineParameter_4Quote;
    28 PROCEDURE testSplitCmdLineParameter_5Quote;
    29 PROCEDURE testSplitCmdLineParameter_6Quote;
    30 
    31 PROCEDURE testParseCmdLine_Empty;
    32 
    33 PROCEDURE testParseCmdLine_QuestionMark;
    34 PROCEDURE testParseCmdLine_lowerH;
    35 PROCEDURE testParseCmdLine_upperH;
    36 PROCEDURE testParseCmdLine_lowerHelp;
    37 PROCEDURE testParseCmdLine_upperHELP;
    38 
    39 PROCEDURE testParseCmdLine_lowerS;
    40 PROCEDURE testParseCmdLine_upperS;
    41 PROCEDURE testParseCmdLine_emptyS;
    42 PROCEDURE testParseCmdLine_emptyColonS;
    43 PROCEDURE testParseCmdLine_withoutColonS;
    44 PROCEDURE testParseCmdLine_doubleColonS;
    45 
    46 PROCEDURE testParseCmdLine_lowerG;
    47 PROCEDURE testParseCmdLine_upperG;
    48 PROCEDURE testParseCmdLine_emptyG;
    49 PROCEDURE testParseCmdLine_emptyColonG;
    50 PROCEDURE testParseCmdLine_withoutColonG;
    51 PROCEDURE testParseCmdLine_doubleColonG;
    52 
    53 PROCEDURE testParseCmdLine_Language;
    54 PROCEDURE testParseCmdLine_HelpManagerNumber;
    55 PROCEDURE testParseCmdLine_HelpManagerText;
    56 PROCEDURE testParseCmdLine_OwnerNumber;
    57 PROCEDURE testParseCmdLine_OwnerTest;
    58 PROCEDURE testParseCmdLine_Title;
    59 PROCEDURE testParseCmdLine_WindowPos;
    60 PROCEDURE testParseCmdLine_WindowPosPercentage;
    61 PROCEDURE testParseCmdLine_Topic;
     10  FUNCTION getCmdLineParameterUnitTests : TList;
     11
    6212
    6313Implementation

  • trunk/NewView/unittests/newviewtests.pas

    r27 r35  
    44  Classes,
    55  SysUtils,
    6   CmdLineParameterUnit,
    76  TestAssert,
    8   CmdLineParameterUnitTests;
     7  CmdLineParameterUnitTests,
     8  StringUtilsUnitTests,
     9  HelpTopicTests;
    910
    1011
    … …  
    1516  tmpFunction : FUNCTION:TList;
    1617  tmpTest : PROCEDURE;
    17   i,j,tmpTestCount : integer;
     18  i,j,tmpTestCount,tmpFailureCount : integer;
    1819
    1920BEGIN
    … …  
    2223
    2324  tmpSuites.Add(@getCmdLineParameterUnitTests);
     25  tmpSuites.Add(@getStringUtilsUnitTests);
     26  tmpSuites.Add(@getHelpTopicTests);
    2427
    2528  tmpTestCount := 0;
     29  tmpFailureCount := 0;
    2630  for i := 0 to tmpSuites.Count-1 do
    2731  begin
    … …  
    3842        on e:Exception do
    3943        begin
     44          tmpFailureCount := tmpFailureCount + 1;
    4045          writeln;
    41           Writeln(e.message);
     46          writeln(e.message);
    4247        end;
    4348      end;
    … …  
    4651    end;
    4752  end;
     53
     54  writeln;
     55  write('Running ' + IntToStr(tmpTestCount) + ' tests');
     56  if (0 < tmpFailureCount) then write(' ' + IntToStr(tmpFailureCount) + ' failures');
     57  writeln;
     58
    4859END.

  • trunk/NewView/unittests/newviewtests.spr

    r29 r35  
    22
    33ApplicationIcon=D:\PROGS\SIBYL\BIN\default.ico
     4
     5[Breakpoints]
     6
     7Breakpoint1=..\.\STRINGUTILSUNIT.PAS|86
    48
    59[Browser Files]
    … …  
    1721File10=SYSUTILS
    1822File11=CLASSES
    19 File12=INIFILES
    20 File13=PMBITMAP
    21 File14=PMGPI
    22 File15=PMDEV
    23 File16=ACLUTILITY
    24 File17=ACLSTRINGUTILITY
    25 File18=ACLPROFILE
    26 File19=ACLFINDFUNCTIONS
    27 File20=ACLFILEIOUTILITY
    28 File21=ACLSTRING
    29 File22=ACLFILEUTILITY
    30 File23=CMDLINEPARAMETERUNIT
    31 File24=TESTASSERT
     23File12=TESTASSERT
     24File13=INIFILES
     25File14=PMBITMAP
     26File15=PMGPI
     27File16=PMDEV
     28File17=ACLUTILITY
     29File18=ACLSTRINGUTILITY
     30File19=ACLPROFILE
     31File20=ACLFINDFUNCTIONS
     32File21=ACLFILEIOUTILITY
     33File22=ACLSTRING
     34File23=ACLFILEUTILITY
     35File24=CMDLINEPARAMETERUNIT
    3236File25=CMDLINEPARAMETERUNITTESTS
     37File26=STRINGUTILSUNIT
     38File27=STRINGUTILSUNITTESTS
     39File28=HELPTOPICTESTS
    3340
    3441[Compiler Options]
    … …  
    5663[Directories]
    5764
    58 LastDir=P:\NEWVIEW_DEV\NEWVIEW
    59 OutDir=P:\NEWVIEW_DEV\build
     65LastDir=P:\NEWVIEW_DEV\NEWVIEW\UNITTESTS
     66OutDir=P:\NEWVIEW_DEV\build\unittest
    6067LibDir=P:\NEWVIEW_DEV\build\library;P:\NEWVIEW_DEV\build\sibyl\lib
    6168LibSrcDir=P:\NEWVIEW_DEV\NEWVIEW;D:\PROGS\SIBYL\Source\RTL;D:\PROGS\SIBYL\Source\SPCC
    … …  
    6572[Find History]
    6673
    67 Find0=missing
    68 Find1=2
    69 Find2=testParseCmdLine_HelpManagerText
    70 Find3=tmpCmdLineParameters
    71 Find4=testParseCmdLine_doubleColonG
    72 Find5=testParseCmdLine_empty
    73 Find6=testParseCmdLine_upperHELP
    74 Find7=testParseCmdLine_h
    75 Find8=testSplitCmdLineParameter_simpleOne
    76 Find9=Assert
    77 Find10=testSplitCmdLineParameter_Empty
    78 Find11=FUNCTION
    79 Find12=Exception
    80 Find13=VAR
    81 Find14=Pointer
    82 Find15=xxx
     74Find0=rst
     75Find1=bc
     76Find2=quote
     77Find3=missing
     78Find4=2
     79Find5=testParseCmdLine_HelpManagerText
     80Find6=tmpCmdLineParameters
     81Find7=testParseCmdLine_doubleColonG
     82Find8=testParseCmdLine_empty
     83Find9=testParseCmdLine_upperHELP
     84Find10=testParseCmdLine_h
     85Find11=testSplitCmdLineParameter_simpleOne
     86Find12=Assert
     87Find13=testSplitCmdLineParameter_Empty
     88Find14=FUNCTION
     89Find15=Exception
    8390
    8491[General]
    8592
    8693Version=Sibyl Project Ver2.02
    87 ProjectName=P:\newview_dev\NewView\unittests\newviewtests.spr
     94ProjectName=P:\NEWVIEW_DEV\NewView\unittests\newviewtests.spr
    8895ProjectType=NonVisual
    8996CompLibName=
    … …  
    94101Platform=Standard
    95102
     103[Last Closed Files]
     104
     105File0=.\CmdLineParameterUnitTests.pas
     106File1=.\HelpTopicTests.pas
     107File2=..\.\CmdLineParameterUnit.pas
     108File3=D:\PROGS\SIBYL\SOURCE\SPCC\SYSUTILS.PAS
     109
    96110[Last Open Files]
    97111
    … …  
    100114File0.Bottom=-5
    101115File0.Width=1243
    102 File0.Height=500
     116File0.Height=477
    103117File0.Column=1
    104 File0.Line=1
    105 File1=.\cmdlineparameterunittests.pas
     118File0.Line=49
     119File1=.\StringUtilsUnitTests.pas
    106120File1.Left=-4
    107121File1.Bottom=-5
    108122File1.Width=1243
    109 File1.Height=501
    110 File1.Column=5
    111 File1.Line=1010
     123File1.Height=538
     124File1.Column=77
     125File1.Line=298
    112126File2=.\testassert.pas
    113127File2.Left=-4
    114128File2.Bottom=-5
    115129File2.Width=1243
    116 File2.Height=500
    117 File2.Column=32
    118 File2.Line=27
    119 File3=..\.\CmdLineParameterUnit.pas
     130File2.Height=477
     131File2.Column=1
     132File2.Line=31
     133File3=..\.\StringUtilsUnit.pas
    120134File3.Left=-4
    121135File3.Bottom=-5
    122136File3.Width=1243
    123 File3.Height=501
    124 File3.Column=68
    125 File3.Line=422
     137File3.Height=477
     138File3.Column=109
     139File3.Line=94
     140File4=..\..\.\SIBYL\SPCC\SYSUTILS.PAS
     141File4.Left=-4
     142File4.Bottom=-5
     143File4.Width=1243
     144File4.Height=477
     145File4.Column=1
     146File4.Line=1868
     147File5=..\..\.\SIBYL\SPCC\CLASSES.PAS
     148File5.Left=-4
     149File5.Bottom=-5
     150File5.Width=1243
     151File5.Height=477
     152File5.Column=1
     153File5.Line=1951
    126154
    127155[Linker Options]
    … …  
    144172MainFile0=.\NewViewTests.pas
    145173MainFile0.Ext=.EXE
    146 MainFile0.Checksum=6912
     174MainFile0.Checksum=7680
    147175MainFile0.Expanded=False
    148 MainFile0.File0=.\CmdLineParameterUnitTests.pas
     176MainFile0.File0=.\StringUtilsUnitTests.pas
    149177MainFile0.File1=.\TestAssert.pas
    150178MainFile0.File2=[Dependencies]
    … …  
    161189MainFile0.Dependency10=D:\PROGS\SIBYL\Source\SPCC\SYSUTILS.PAS
    162190MainFile0.Dependency11=D:\PROGS\SIBYL\Source\SPCC\CLASSES.PAS
    163 MainFile0.Dependency12=D:\PROGS\SIBYL\Source\SPCC\INIFILES.PAS
    164 MainFile0.Dependency13=D:\PROGS\SIBYL\Source\RTL\PMBITMAP.PAS
    165 MainFile0.Dependency14=D:\PROGS\SIBYL\Source\RTL\PMGPI.PAS
    166 MainFile0.Dependency15=D:\PROGS\SIBYL\Source\RTL\PMDEV.PAS
    167 MainFile0.Dependency16=..\.\CMDLINEPARAMETERUNIT.PAS
    168 MainFile0.Dependency17=.\TESTASSERT.PAS
     191MainFile0.Dependency12=.\TESTASSERT.PAS
     192MainFile0.Dependency13=D:\PROGS\SIBYL\Source\SPCC\INIFILES.PAS
     193MainFile0.Dependency14=D:\PROGS\SIBYL\Source\RTL\PMBITMAP.PAS
     194MainFile0.Dependency15=D:\PROGS\SIBYL\Source\RTL\PMGPI.PAS
     195MainFile0.Dependency16=D:\PROGS\SIBYL\Source\RTL\PMDEV.PAS
     196MainFile0.Dependency17=..\.\CMDLINEPARAMETERUNIT.PAS
    169197MainFile0.Dependency18=.\CMDLINEPARAMETERUNITTESTS.PAS
     198MainFile0.Dependency19=..\.\STRINGUTILSUNIT.PAS
     199MainFile0.Dependency20=.\STRINGUTILSUNITTESTS.PAS
     200MainFile0.Dependency21=.\HELPTOPICTESTS.PAS
    170201
    171202[Replace History]
Note: See TracChangeset for help on using the changeset viewer.