You've already forked lazarus-ccr
started classes to interpreted svn commands
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@88 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
289
components/svn/test/fpcunitsvnpkg.lpi
Normal file
289
components/svn/test/fpcunitsvnpkg.lpi
Normal file
@@ -0,0 +1,289 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="5"/>
|
||||
<General>
|
||||
<MainUnit Value="0"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
<Language Value=""/>
|
||||
<CharSet Value=""/>
|
||||
</VersionInfo>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="4">
|
||||
<Item1>
|
||||
<PackageName Value="svnpkg"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="FPCUnitTestRunner"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<PackageName Value="FCL"/>
|
||||
</Item4>
|
||||
</RequiredPackages>
|
||||
<Units Count="12">
|
||||
<Unit0>
|
||||
<Filename Value="fpcunitsvnpkg.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="fpcunitsvnpkg"/>
|
||||
<UsageCount Value="20"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="testsvnclasses.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="TestSvnClasses"/>
|
||||
<CursorPos X="83" Y="36"/>
|
||||
<TopLine Value="17"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="20"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\..\..\lazarus\components\fpcunit\guitestrunner.pas"/>
|
||||
<UnitName Value="GuiTestRunner"/>
|
||||
<CursorPos X="1" Y="48"/>
|
||||
<TopLine Value="29"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\fcl\inc\fpcunit.pp"/>
|
||||
<UnitName Value="fpcunit"/>
|
||||
<CursorPos X="1" Y="446"/>
|
||||
<TopLine Value="427"/>
|
||||
<EditorIndex Value="9"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<UnitName Value="svnclasses"/>
|
||||
<CursorPos X="16" Y="173"/>
|
||||
<TopLine Value="154"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="info.xml"/>
|
||||
<CursorPos X="64" Y="4"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
<SyntaxHighlighter Value="XML"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\fcl\xml\dom.pp"/>
|
||||
<UnitName Value="DOM"/>
|
||||
<CursorPos X="3" Y="1168"/>
|
||||
<TopLine Value="1165"/>
|
||||
<EditorIndex Value="4"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="..\..\..\..\fpcbuild\2.0.4\fpcsrc\packages\extra\gtk2\gtk+\gtk\gtksocket.inc"/>
|
||||
<CursorPos X="74" Y="77"/>
|
||||
<TopLine Value="58"/>
|
||||
<EditorIndex Value="5"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="..\..\..\..\lazarus\lcl\interfaces\gtk2\gtk2extrah.inc"/>
|
||||
<CursorPos X="47" Y="44"/>
|
||||
<TopLine Value="25"/>
|
||||
<EditorIndex Value="6"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
<Filename Value="..\..\..\..\fpcbuild\2.0.4\fpcsrc\packages\extra\gtk2\gtk+\gdk\gdkdrawable.inc"/>
|
||||
<CursorPos X="94" Y="12"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="7"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit9>
|
||||
<Unit10>
|
||||
<Filename Value="..\..\..\..\lazarus\lcl\interfaces\win32\win32winapi.inc"/>
|
||||
<CursorPos X="33" Y="3164"/>
|
||||
<TopLine Value="3145"/>
|
||||
<EditorIndex Value="8"/>
|
||||
<UsageCount Value="10"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit10>
|
||||
<Unit11>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\rtl\win\wininc\ascdef.inc"/>
|
||||
<CursorPos X="10" Y="268"/>
|
||||
<TopLine Value="249"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit11>
|
||||
</Units>
|
||||
<JumpHistory Count="30" HistoryIndex="29">
|
||||
<Position1>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="80" Column="3" TopLine="58"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="82" Column="21" TopLine="46"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="43" Column="3" TopLine="41"/>
|
||||
</Position3>
|
||||
<Position4>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="124" Column="42" TopLine="106"/>
|
||||
</Position4>
|
||||
<Position5>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\fcl\xml\dom.pp"/>
|
||||
<Caret Line="224" Column="37" TopLine="189"/>
|
||||
</Position5>
|
||||
<Position6>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\fcl\xml\dom.pp"/>
|
||||
<Caret Line="94" Column="15" TopLine="75"/>
|
||||
</Position6>
|
||||
<Position7>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="124" Column="30" TopLine="102"/>
|
||||
</Position7>
|
||||
<Position8>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="130" Column="13" TopLine="111"/>
|
||||
</Position8>
|
||||
<Position9>
|
||||
<Filename Value="..\..\..\..\fpc\2.1\fcl\xml\dom.pp"/>
|
||||
<Caret Line="217" Column="40" TopLine="198"/>
|
||||
</Position9>
|
||||
<Position10>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="134" Column="30" TopLine="111"/>
|
||||
</Position10>
|
||||
<Position11>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="131" Column="48" TopLine="112"/>
|
||||
</Position11>
|
||||
<Position12>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="130" Column="1" TopLine="112"/>
|
||||
</Position12>
|
||||
<Position13>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="83" Column="46" TopLine="72"/>
|
||||
</Position13>
|
||||
<Position14>
|
||||
<Filename Value="..\..\..\..\fpcbuild\2.0.4\fpcsrc\packages\extra\gtk2\gtk+\gtk\gtksocket.inc"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position14>
|
||||
<Position15>
|
||||
<Filename Value="..\..\..\..\lazarus\lcl\interfaces\gtk2\gtk2extrah.inc"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position15>
|
||||
<Position16>
|
||||
<Filename Value="..\..\..\..\fpcbuild\2.0.4\fpcsrc\packages\extra\gtk2\gtk+\gdk\gdkdrawable.inc"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position16>
|
||||
<Position17>
|
||||
<Filename Value="..\..\..\..\lazarus\lcl\interfaces\win32\win32winapi.inc"/>
|
||||
<Caret Line="1" Column="1" TopLine="1"/>
|
||||
</Position17>
|
||||
<Position18>
|
||||
<Filename Value="..\..\..\..\lazarus\lcl\interfaces\win32\win32winapi.inc"/>
|
||||
<Caret Line="3164" Column="33" TopLine="3145"/>
|
||||
</Position18>
|
||||
<Position19>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="89" Column="8" TopLine="72"/>
|
||||
</Position19>
|
||||
<Position20>
|
||||
<Filename Value="..\..\..\..\lazarus\components\fpcunit\guitestrunner.pas"/>
|
||||
<Caret Line="45" Column="36" TopLine="26"/>
|
||||
</Position20>
|
||||
<Position21>
|
||||
<Filename Value="..\..\..\..\lazarus\components\fpcunit\guitestrunner.pas"/>
|
||||
<Caret Line="47" Column="63" TopLine="28"/>
|
||||
</Position21>
|
||||
<Position22>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="55" Column="22" TopLine="36"/>
|
||||
</Position22>
|
||||
<Position23>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="103" Column="5" TopLine="60"/>
|
||||
</Position23>
|
||||
<Position24>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="33" Column="3" TopLine="31"/>
|
||||
</Position24>
|
||||
<Position25>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="17" Column="3" TopLine="15"/>
|
||||
</Position25>
|
||||
<Position26>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="185" Column="17" TopLine="25"/>
|
||||
</Position26>
|
||||
<Position27>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="174" Column="5" TopLine="131"/>
|
||||
</Position27>
|
||||
<Position28>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="182" Column="29" TopLine="156"/>
|
||||
</Position28>
|
||||
<Position29>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="60" Column="21" TopLine="36"/>
|
||||
</Position29>
|
||||
<Position30>
|
||||
<Filename Value="..\svnclasses.pas"/>
|
||||
<Caret Line="173" Column="11" TopLine="154"/>
|
||||
</Position30>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EAssertionFailedError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
13
components/svn/test/fpcunitsvnpkg.lpr
Normal file
13
components/svn/test/fpcunitsvnpkg.lpr
Normal file
@@ -0,0 +1,13 @@
|
||||
program fpcunitsvnpkg;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, Forms, GuiTestRunner, TestSvnClasses, svnpkg;
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TGuiTestRunner, TestRunner);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
18
components/svn/test/info.xml
Normal file
18
components/svn/test/info.xml
Normal file
@@ -0,0 +1,18 @@
|
||||
<?xml version="1.0" ?>
|
||||
<info>
|
||||
<entry kind="dir" path="." revision="10685">
|
||||
<url>svn+ssh://www.freepascal.org/FPC/svn/lazarus/trunk</url>
|
||||
<repository>
|
||||
<root>svn+ssh://www.freepascal.org/FPC/svn/lazarus</root>
|
||||
<uuid>4005530d-fff6-0310-9dd1-cebe43e6787f</uuid>
|
||||
</repository>
|
||||
<wc-info>
|
||||
<schedule>normal</schedule>
|
||||
</wc-info>
|
||||
<commit revision="10685">
|
||||
<author>jesus</author>
|
||||
<date>2007-02-25T22:55:08.029980Z</date>
|
||||
</commit>
|
||||
</entry>
|
||||
</info>
|
||||
|
||||
60
components/svn/test/testsvnclasses.pas
Normal file
60
components/svn/test/testsvnclasses.pas
Normal file
@@ -0,0 +1,60 @@
|
||||
unit TestSvnClasses;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, fpcunit, testutils, testregistry,
|
||||
svnclasses;
|
||||
|
||||
type
|
||||
|
||||
{ TTestSvnClasses }
|
||||
|
||||
TTestSvnClasses= class(TTestCase)
|
||||
private
|
||||
function GetInfoFileName: string;
|
||||
published
|
||||
procedure TestHookUp;
|
||||
procedure TestLoadInfo;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
function TTestSvnClasses.GetInfoFileName: string;
|
||||
begin
|
||||
Result := ExtractFilePath(ParamStr(0)) + 'info.xml';
|
||||
end;
|
||||
|
||||
procedure TTestSvnClasses.TestHookUp;
|
||||
var
|
||||
InfoFileName: string;
|
||||
begin
|
||||
InfoFileName := GetInfoFileName;
|
||||
AssertTrue(InfoFileName + ' does not exist', FileExists(InfoFileName));
|
||||
end;
|
||||
|
||||
procedure TTestSvnClasses.TestLoadInfo;
|
||||
var
|
||||
SvnInfo: TSvnInfo;
|
||||
begin
|
||||
SvnInfo := TSvnInfo.Create;
|
||||
try
|
||||
SvnInfo.LoadFromFile(GetInfoFileName);
|
||||
AssertEquals('Wrong revision', 10685, SvnInfo.Entry.Revision);
|
||||
AssertEquals('Wrong path', '.', SvnInfo.Entry.Path);
|
||||
AssertEquals('Wrong kind', ord(ekDirectory), ord(SvnInfo.Entry.Kind));
|
||||
AssertEquals('Wrong URL',
|
||||
'svn+ssh://www.freepascal.org/FPC/svn/lazarus/trunk',
|
||||
SvnInfo.Entry.URL);
|
||||
finally
|
||||
SvnInfo.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterTest(TTestSvnClasses);
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user