rake-delphi 0.0.4

data/test/resources/testproject/testproject.bdsproj

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{C26EF931-F030-401E-98BD-888803951675}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">testproject.dpr</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription"></Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir"></Directories>
+			<Directories Name="PackageDLLOutputDir"></Directories>
+			<Directories Name="PackageDCPOutputDir"></Directories>
+			<Directories Name="SearchPath"></Directories>
+			<Directories Name="Packages"></Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir"></Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">4</VersionInfo>
+			<VersionInfo Name="MinorVer">3</VersionInfo>
+			<VersionInfo Name="Release">2</VersionInfo>
+			<VersionInfo Name="Build">1</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="Locale">1049</VersionInfo>
+			<VersionInfo Name="CodePage">1251</VersionInfo>
+		</VersionInfo>
+		<VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName">Rake</VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription">Test rake-delphi project 2006 description</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">4.3.2.1</VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName">testproject.exe</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright">Copyright. Копирайт</VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks">Trademark. Торговая марка</VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename">testproject.exe</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName">Test rake-delphi project 2006 product name</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.2.3.4</VersionInfoKeys>
+			<VersionInfoKeys Name="Comments">Test project comment</VersionInfoKeys>
+		</VersionInfoKeys>
+	</Delphi.Personality>
+</BorlandProject>

data/test/resources/testproject/testproject.cfg

@@ -0,0 +1,39 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"C:\Users\Shumkin.Alexey\Documents\Borland Studio Projects\Bpl"
+-LN"C:\Users\Shumkin.Alexey\Documents\Borland Studio Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
+-DCONFIG

data/test/resources/testproject/testproject.dpr

@@ -0,0 +1,78 @@
+program testproject;
+
+uses
+  Classes, SysUtils, Types
+  {$IFDEF LIBS}
+  , LibUnit
+  {$ENDIF LIBS}
+  {$IFDEF INDY}
+  , IdURI
+  {$ENDIF INDY}
+  {$IFDEF EXPLICIT_LIBS}
+  , ExplicitLibUnit
+  {$ENDIF}
+  ;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+{$IFDEF RESOURCES}
+{$R 'resources.res' 'resources.rc'}
+{$ENDIF RESOURCES}
+{$IFDEF ASSIGNABLE_CONSTS}
+const
+  TEST_CONST: string = '-=ASSIGNED CONST=-';
+{$ENDIF ASSIGNABLE_CONSTS}
+var
+  res: TResourceStream;
+  str: TStringStream;
+  s: string;
+begin
+  {$IFDEF DEBUG}
+  Write('DEBUG: ');
+  {$ENDIF}
+  {$IFOPT D+}
+  Write('D+: ');
+  {$ENDIF}
+  s := EmptyStr;
+  try
+    res := TResourceStream.Create(HInstance, 'LOCAL_RESOURCES', RT_RCDATA);
+    try
+      str := TStringStream.Create(EmptyStr);
+      try
+        res.SaveToStream(str);
+        s := str.DataString;
+      finally
+        FreeAndNil(str);
+      end;
+    finally
+      FreeAndNil(res);
+    end;
+  except
+    s := EmptyStr;
+  end;
+  {$IFDEF LIBS}
+  s := s + LibUnit.LibUnitFunction;
+  {$ENDIF LIBS}
+  {$IFDEF EXPLICIT_LIBS}
+  s := s + ExplicitLibUnit.ExplicitLibUnitFunction;
+  {$ENDIF EXPLICIT_LIBS}
+  {$IFDEF ASSIGNABLE_CONSTS}
+  s := s + TEST_CONST;
+  {$ENDIF ASSIGNABLE_CONSTS}
+  {$IFDEF RELEASE_CFG}
+  s := s + '-=RELEASE=-';
+  {$ENDIF RELEASE_CFG}
+  {$IFDEF CONFIG}
+  s := s + '-=CONFIG=-';
+  {$ENDIF CONFIG}
+  {$IFDEF INDY}
+  with TIdURI.Create('http://indy/path') do
+    try
+      s := s + Format('-=%s#%s=-', [Host, Document]);
+    finally
+      Free;
+    end;
+  {$ENDIF}
+  WriteLn('testproject works', s);
+end.

data/test/resources/testproject/testproject.dproj

@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{af8ea221-1e83-4b10-930b-73b0e6f4b239}</ProjectGuid>
+    <MainSource>testproject.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>testproject.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">4</VersionInfo>
+      <VersionInfo Name="MinorVer">3</VersionInfo>
+      <VersionInfo Name="Release">2</VersionInfo>
+      <VersionInfo Name="Build">1</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1049</VersionInfo>
+      <VersionInfo Name="CodePage">1251</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName">Rake</VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription">Test rake-delphi project 2007 description</VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">4.3.2.1</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName">testproject.exe</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright">Copyright. Копирайт</VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks">Trademark. Торговая марка</VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename">testproject.exe</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName">Test rake-delphi project 2007 product name</VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.2.3.4</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments">Test project comment</VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\rxctl110.bpl">RX Library Component and Tools Package</Excluded_Packages>
+      <Excluded_Packages Name="C:\Users\Public\Documents\RAD Studio\5.0\Bpl\JclDeveloperTools110.bpl">JEDI Code Library Developer Tools package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="c:\Program Files\FastReports\FastReport 4\LibD11\frxDB11.bpl">(untitled)</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">testproject.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="testproject.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+  </ItemGroup>
+</Project>

data/test/test-delphi.rb

@@ -0,0 +1,166 @@
+# encoding: utf-8
+
+require 'rake'
+require 'fileutils'
+require 'test/unit'
+require 'rake/delphi'
+require 'rake/delphi/project'
+require 'rake/delphi/tool'
+require 'rake/helpers/unittest'
+require 'helpers/consts'
+
+module DelphiTests
+
+class TestDelphi <  Test::Unit::TestCase
+private
+    def reenable_tasks(task)
+        return unless task.class <= Rake::Task
+        task.reenable
+        task.prerequisites.each do |ptask|
+            ptask.reenable if ptask.class < Rake::Task
+            reenable_tasks(ptask)
+        end
+    end
+
+    def _test_compile_and_output(prepare_args, output)
+        args = [:altercfg, :usecfg, :defines, :debuginfo, :debug, :includepaths]
+        # reinitialize arguments (even absent ones)
+        args.each do |arg|
+            prepare_args[arg] = prepare_args[arg]
+        end
+
+        bin_dir = File.dirname(exe)
+        FileUtils.mkdir_p(bin_dir)
+        # reenable task for subsequent calls
+        prepare_task = ::Rake::Task['test:prepare']
+        prepare_task.reenable
+        # prepare arguments
+        useresources = prepare_args[:useresources]
+        prepare_args.delete(:useresources)
+        prepare_args[:bin] = bin_dir
+
+        prepare_task.invoke(useresources, prepare_args)
+
+        # reenable tasks (!!! after invoking 'test:prepare')
+        task = ::Rake::Task['test:compile']
+        reenable_tasks(task)
+        task.invoke
+
+        assert(File.exists?(exe), 'File %s does not exist' % exe)
+        out = `#{exe}`.chomp
+        assert_equal output, out, 'exe output'
+    end
+
+    def exe
+        exe = PROJECT_EXE % name.gsub(/[():]/, '_')
+    end
+public
+    def setup
+        ENV['RAKE_DIR'] = PROJECT_PATH
+        File.unlink(exe) if File.exists?(exe)
+        res = PROJECT_PATH + '/resources.res'
+        File.unlink(res) if File.exists?(res)
+#        assert(! File.exists?(exe), 'File %s exists' % exe)
+        require PROJECT_PATH + '/Rakefile.rb'
+    end
+
+    def test_compile
+        _test_compile_and_output({},
+            'testproject works')
+    end
+
+    def test_compile_defines
+        _test_compile_and_output({:defines => 'DEBUG'},
+            'DEBUG: testproject works')
+    end
+
+    def test_compile_debug_info
+        _test_compile_and_output({:debug => true, :debuginfo => true},
+            'D+: testproject works')
+    end
+
+    def test_compile_with_resources
+        _test_compile_and_output({:useresources => true, :defines => 'RESOURCES'},
+            'testproject works-=WITH RESOURCES=-')
+    end
+
+    def test_compile_with_libs
+        _test_compile_and_output({:useresources => true, :defines => 'LIBS'},
+            'testproject works-=WITH LIBS=-')
+    end
+
+    def test_compile_with_resources_and_libs
+        _test_compile_and_output({:useresources => true, :defines => 'RESOURCES,LIBS'},
+            'testproject works-=WITH RESOURCES=--=WITH LIBS=-')
+    end
+
+    def test_compile_consts
+        _test_compile_and_output({:defines => 'ASSIGNABLE_CONSTS', :writeableconst => true},
+            'testproject works-=ASSIGNED CONST=-')
+    end
+
+    def test_compile_alter_cfg
+        _test_compile_and_output({:altercfg => 'release.dcc.cfg'},
+            'testproject works-=RELEASE=-')
+    end
+
+    def test_compile_use_config
+        _test_compile_and_output({:usecfg => true},
+            'testproject works-=CONFIG=-')
+    end
+
+    def test_compile_use_library_path
+        # usually Indy components are in Delphi library paths
+        _test_compile_and_output({:defines => 'INDY', :uselibrarypath => true},
+            'testproject works-=indy#path=-')
+    end
+
+    def test_compile_with_explicit_libs
+        paths = ['./ExplicitLib/']
+        _test_compile_and_output({:defines => 'EXPLICIT_LIBS',
+                :includepaths => paths},
+            'testproject works-=WITH EXPLICIT LIBS=-')
+    end
+
+    def test_compile_with_explicit_and_implicit_libs
+        paths = ['./ExplicitLib/']
+        _test_compile_and_output({:defines => 'LIBS,EXPLICIT_LIBS',
+                :includepaths => paths},
+            'testproject works-=WITH LIBS=--=WITH EXPLICIT LIBS=-')
+    end
+end
+
+class TestCustomDelphiTool <  Test::Unit::TestCase
+private
+public
+    def test_checkToolFailure
+        assert_nothing_raised RuntimeError do
+            Rake::Delphi::CustomDelphiTool.checkToolFailure(__FILE__)
+        end
+    end
+
+    def test_checkToolFailure_failure
+        assert_raise RuntimeError do
+            Rake::Delphi::CustomDelphiTool.checkToolFailure(__FILE__ + '.ext')
+        end
+    end
+end
+
+class TestRCResourceCompiler <  Test::Unit::TestCase
+private
+public
+    def setup
+        Rake::Delphi::RCResourceCompiler.reinit
+        ENV['DELPHI_DIR'] = File.expand_path('../FakeDelphi', PROJECT_PATH)
+        ENV['DELPHI_VERSION'] = '10'
+    end
+
+    def test_find
+        rc = Rake::Delphi::RCResourceCompiler.new
+        assert_equal ENV['DELPHI_DIR'], rc.delphidir, 'delphi path'
+        assert_equal '10', rc.version, 'delphi version'
+        assert_equal ENV['DELPHI_DIR'] + 'bin/rc.exe', rc.toolpath, 'delphi path'
+    end
+end
+
+end

data/test/test-echo.rb

@@ -0,0 +1,33 @@
+# encoding: utf-8
+
+require 'rake'
+require 'test/unit'
+require 'rake/common/echotask'
+require 'rake/helpers/unittest'
+
+class TestEchoToFileTask <  Test::Unit::TestCase
+private
+    def file_in
+        return @file_in ||= File.expand_path('../resources/echo/file.in', __FILE__)
+    end
+
+    def file_out
+        return @file_out ||= File.expand_path('../tmp/file.out', __FILE__)
+    end
+public
+    def setup
+        @rake_task = Rake::Task.new('some-task-' + name, Rake.application)
+    end
+
+    def test_nil_vars
+        Rake::Delphi::EchoToFile.new(@rake_task, file_in, file_out, nil)
+        lines = IO.readlines(file_out)
+        assert_equal "${echo_variable} must be replaced by its <value>\n", lines[0]
+    end
+
+    def test_vars
+        Rake::Delphi::EchoToFile.new(@rake_task, file_in, file_out, {'echo_variable' => 'echo_variable_value'})
+        lines = IO.readlines(file_out)
+        assert_equal "echo_variable_value must be replaced by its <value>\n", lines[0]
+    end
+end

data/test/test-gemversion.rb

@@ -0,0 +1,61 @@
+# encoding: utf-8
+
+require 'test/unit'
+require 'rake/helpers/gemversion'
+
+class TestVersionImproved <  Test::Unit::TestCase
+public
+    def setup
+    end
+
+    def test_new_nil
+        assert_equal '0.0.0.0', Gem::VersionImproved.new(nil).version
+    end
+
+    def test_new_empty_string
+        assert_equal '0.0.0.0', Gem::VersionImproved.new('').version
+    end
+
+    def test_comma_nil
+        assert_equal '0,0,0,0', Gem::VersionImproved.new(nil).comma
+    end
+
+    def test_comma_empty_string
+        assert_equal '0,0,0,0', Gem::VersionImproved.new('').comma
+    end
+
+    def test_comma
+        assert_equal '1,2,3,4', Gem::VersionImproved.new('1.2.3.4').comma
+    end
+
+    def test_prev_release
+        @version = Gem::VersionImproved.new('1.2.3.4')
+        assert_equal '1.2.2', @version.prev_release.version
+
+        @version = Gem::VersionImproved.new('1.2.3')
+        assert_equal '1.1', @version.prev_release.version
+
+        @version = Gem::VersionImproved.new('1.2')
+        assert_equal '0', @version.prev_release.version
+    end
+
+    def test_build
+        @version = Gem::VersionImproved.new('1.2.3.4')
+        assert_equal '1.2.3.4', @version.build.version
+
+        @version = Gem::VersionImproved.new('1.2.3')
+        assert_equal '1.2.3', @version.build.version
+
+        @version = Gem::VersionImproved.new('1.2')
+        assert_equal '1.2', @version.build.version
+
+        @version = Gem::VersionImproved.new('1.2.3.a')
+        assert_equal '1.2.4', @version.build.version
+
+        @version = Gem::VersionImproved.new('1.2.x')
+        assert_equal '1.3', @version.build.version
+
+        @version = Gem::VersionImproved.new('1.x')
+        assert_equal '2', @version.build.version
+    end
+end