rake-delphi 0.0.4

data/test/test-git.rb

@@ -0,0 +1,144 @@
+# encoding: utf-8
+
+require 'rake'
+require 'test/unit'
+require 'fileutils'
+require 'rake/common/chdirtask'
+require 'rake/common/git'
+require 'rake/helpers/unittest'
+
+class CustomTestGit <  Test::Unit::TestCase
+private
+    def init_test_dit_dir
+        @test_git_dir = File.expand_path('../tmp', __FILE__)
+        FileUtils.mkdir_p(@test_git_dir)
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            `rm -rf .git *`
+            `git init .`
+            `git config --global user.email "git@test.ru"`
+            `git config --global user.name "Git test"`
+            `echo file content > file.txt`
+            `git add file.txt`
+            `git commit -m "first commit"`
+        end
+    end
+
+    def second_commit
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            `echo line added >> file.txt`
+            `git commit -a -m "file content added"`
+        end
+    end
+
+    def third_commit
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            `echo line two added >> file.txt`
+            `git commit -a -m "line two added message"`
+        end
+    end
+
+public
+    def setup
+        @rake_task = Rake::Task.new('some-task-' + name, Rake.application)
+        init_test_dit_dir
+    end
+
+    def test_git
+        # empty test to avoid failure
+    end
+end
+
+class TestGit <  CustomTestGit
+    def test_git
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            assert_equal nil, Rake::Delphi::Git.version
+        end
+    end
+
+    def test_version_0_0_1_0
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            `git tag 0.0.1 -a -m "version 0.0.1"`
+            assert_equal '0.0.1.0', Rake::Delphi::Git.version
+        end
+    end
+
+    def test_version_0_0_1_1
+        test_version_0_0_1_0
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            second_commit
+            assert_equal '0.0.1.1', Rake::Delphi::Git.version
+        end
+    end
+end
+
+class TestGitChangelog <  CustomTestGit
+private
+public
+    def setup
+        super
+        second_commit
+        third_commit
+        @opts = {:since => 'HEAD^^'}
+    end
+
+    def test_changelog_last
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            chlog = Rake::Delphi::GitChangelog.new(@rake_task, nil)
+            assert_equal [], chlog.changelog, 'Changelog'
+            assert_equal [], chlog.processed, 'Processed'
+        end
+    end
+
+    def test_changelog_from_root
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            assert_equal ["line two added message", "file content added"], chlog.changelog, 'Changelog'
+        end
+    end
+
+    def test_changelog_filter
+        @opts.merge!({:filter => 'line' })
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            assert_equal ["line two added message"], chlog.changelog, 'Changelog'
+        end
+    end
+
+    def test_changelog_processed_array
+        @opts.merge!({ :process => [{'added' => 'deleted'}] })
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            assert_equal ["line two deleted message", "file content deleted"], chlog.processed, 'Changelog'
+            # changelog must be unmodified
+            assert_equal ["line two added message", "file content added"], chlog.changelog, 'Changelog unmodified'
+        end
+    end
+
+    def test_changelog_processed_hash
+        @opts.merge!({ :process => {'added' => 'deleted'} })
+        Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+            chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            assert_equal ["line two deleted message", "file content deleted"], chlog.processed, 'Changelog processed'
+            # changelog must be unmodified
+            assert_equal ["line two added message", "file content added"], chlog.changelog, 'Changelog unmodified'
+        end
+    end
+
+    def test_changelog_processed_not_a_hash_string
+        @opts.merge!({ :process => 'added'})
+        assert_raise RuntimeError do
+            Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+                chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            end
+        end
+    end
+
+    def test_changelog_processed_not_a_hash_array
+        @opts.merge!({ :process => [['added']] })
+        assert_raise RuntimeError do
+            Rake::Delphi::ChDir.new(@rake_task, @test_git_dir) do
+                chlog = Rake::Delphi::GitChangelog.new(@rake_task, @opts)
+            end
+        end
+    end
+end

data/test/test-hashes.rb

@@ -0,0 +1,57 @@
+# encoding: utf-8
+
+require 'rake'
+require 'fileutils'
+require 'test/unit'
+require 'rake/common/hashtask'
+require 'rake/helpers/unittest'
+
+class CustomTestHashTask <  Test::Unit::TestCase
+private
+    def _file
+        return @file ||= File.expand_path('../resources/hashes/hash.file', __FILE__)
+    end
+public
+    def default_test
+        # do not fail
+    end
+end
+
+class TestHashTask <  CustomTestHashTask
+    def test_hash_md5
+        assert_equal '9893532233CAFF98CD083A116B013C0B', Rake::Delphi::HashTask.new(_file, 'md5').digest
+    end
+
+    def test_hash_sha1
+        assert_equal '94E66DF8CD09D410C62D9E0DC59D3A884E458E05', Rake::Delphi::HashTask.new(_file, 'sha1').digest
+    end
+
+    def test_hash_crc32
+        # other than `md5` or `sha1`
+        assert_equal '431F313F', Rake::Delphi::HashTask.new(_file, nil).digest
+        assert_equal '431F313F', Rake::Delphi::HashTask.new(_file, '').digest
+        assert_equal '431F313F', Rake::Delphi::HashTask.new(_file, 'sha2').digest
+        assert_equal '431F313F', Rake::Delphi::HashTask.new(_file, 'md4').digest
+    end
+end
+
+class TestHashesTask <  CustomTestHashTask
+public
+    def setup
+        super
+        @rake_task = Rake::Task.new('some-task-' + name, Rake.application)
+    end
+
+    def test_hash_md5
+        assert_equal({ _file => { 'MD5' => '9893532233CAFF98CD083A116B013C0B' } }, \
+            Rake::Delphi::HashesTask.new(@rake_task, _file, 'md5').to_hash)
+    end
+
+    def test_hash_sha1_array
+        file2 = File.expand_path('../hash.2.file', _file)
+        files = [_file, file2]
+        assert_equal({ _file => { 'SHA1' => '94E66DF8CD09D410C62D9E0DC59D3A884E458E05' }, \
+                file2 => { 'SHA1' => '031DF9EE7F13F5CA460490E77FBFF9687975BACC' } }, \
+            Rake::Delphi::HashesTask.new(@rake_task, files, 'sha1').to_hash)
+    end
+end

data/test/test-ini.rb

@@ -0,0 +1,18 @@
+# encoding: utf-8
+
+require 'rake'
+require 'test/unit'
+require 'rake/common/initask'
+require 'rake/helpers/unittest'
+
+class TestIniProperty <  Test::Unit::TestCase
+private
+    def _file
+        return @file ||= File.expand_path('../resources/ini/file.ini', __FILE__)
+    end
+public
+    def test_read_ini
+        assert_equal 'some ini value 1', Rake::Delphi::IniProperty.get('%s:%s:%s' % [_file, 'IniSection', 'IniValue1'])
+        assert_equal 'ini section 2 value 2', Rake::Delphi::IniProperty.get('%s:%s:%s' % [_file, 'IniSection-2', 'IniValue2'])
+    end
+end

data/test/test-libstask.rb

@@ -0,0 +1,54 @@
+# encoding: utf-8
+
+require 'rake'
+require 'test/unit'
+require 'rake/common/libstask'
+require 'rake/helpers/unittest'
+
+class TestLibsTask <  Test::Unit::TestCase
+private
+    def _dir
+        return @dir ||= File.expand_path('../resources/libstask/', __FILE__)
+    end
+public
+    def setup
+        ENV['RAKE_DIR'] = _dir
+        @task = Rake::Delphi::LibsTask.define('test-libs-task-' + name, Rake.application)
+        @task.invoke
+    end
+
+    def test_define
+        # define task second time
+        task2 = Rake::Delphi::LibsTask.define('test-libs-task-test_define', Rake.application)
+        # if name contains brackets (in Ruby 1.8.7 unit tests)
+        if name =~ /[()]/
+            assert_equal('test-libs-task-test_define(TestLibsTask)', task2.name)
+        else
+            assert_equal('test-libs-task-test_define', task2.name)
+        end
+        # already invoked
+        assert_not_equal(nil, task2.libs)
+    end
+
+    def test_libs_relative
+        libs_rel = @task.libs_relative(0)
+        assert_equal([
+                "./lib/level-1", \
+                "./lib/level-1/level-2-1", \
+                "./lib/level-1/level-2-1/level-3-1",
+                "./lib/level-1/level-2-1/level-3-2", \
+                "./lib/level-1/level-2-2"],
+            libs_rel)
+    end
+
+    def test_libs_relative_level
+        libs_rel = @task.libs_relative(1)
+        assert_equal([
+                "./../lib/level-1", \
+                "./../lib/level-1/level-2-1", \
+                "./../lib/level-1/level-2-1/level-3-1",
+                "./../lib/level-1/level-2-1/level-3-2", \
+                "./../lib/level-1/level-2-2"],
+            libs_rel)
+    end
+end

data/test/test-projectinfo.rb

@@ -0,0 +1,66 @@
+# encoding: Windows-1251
+
+require 'rake'
+require 'test/unit'
+require 'rake/delphi'
+require 'rake/delphi/projectinfo'
+require 'rake/delphi/dcc32'
+require 'rake/helpers/unittest'
+require 'helpers/consts'
+
+module Rake
+    module Delphi
+        class BDSVersionInfo
+            # override method
+            def self.encoding
+                'Windows-1251'
+            end
+        end
+    end
+end
+
+module DelphiTests
+
+class TestBDSVersionInfo <  Test::Unit::TestCase
+private
+    def version
+        2006
+    end
+public
+    def setup
+        @rake_task = Rake::Delphi::Dcc32Task.new('some-task-' + name, Rake.application)
+        @rake_task.systempath = PROJECT_PATH + '/testproject.dpr'
+        @info = Rake::Delphi::BDSVersionInfo.new(@rake_task)
+    end
+
+    def test_info
+        assert_equal '4.3.2.1', @info['FileVersion']
+        assert_equal 'Rake', @info['CompanyName']
+        assert_equal 'Test rake-delphi project %d description' % version, @info['FileDescription']
+        assert_equal 'testproject.exe', @info['InternalName']
+        assert_equal 'Copyright. ��������', @info['LegalCopyright']
+        assert_equal 'Trademark. �������� �����', @info['LegalTrademarks']
+        assert_equal 'testproject.exe', @info['OriginalFilename']
+        assert_equal 'Test rake-delphi project %d product name' % version, @info['ProductName']
+        assert_equal '1.2.3.4', @info['ProductVersion']
+        assert_equal 'Test project comment', @info['Comments']
+    end
+end
+
+class TestRAD2007VersionInfo < TestBDSVersionInfo
+private
+    def version
+        2007
+    end
+public
+    def setup
+        super
+        @info = Rake::Delphi::RAD2007VersionInfo.new(@rake_task)
+    end
+
+    def test_info
+        super
+    end
+end
+
+end

data/test/test-zip.rb

@@ -0,0 +1,43 @@
+# encoding: utf-8
+
+require 'rake'
+require 'test/unit'
+require 'rake/common/ziptask'
+require 'rake/helpers/unittest'
+
+class TestZipTask <  Test::Unit::TestCase
+private
+public
+    def setup
+        @rake_task = Rake::Task.new('some-task-' + name, Rake.application)
+        @zip = __FILE__.pathmap('%X.zip')
+        File.unlink(@zip) if File.exists?(@zip)
+    end
+
+    def test_zip_no_task
+        assert_raise NoMethodError do
+            # first argument must be a Rake::Task
+            # "undefined method `application' for nil:NilClass" must be raised
+            Rake::Delphi::ZipTask.new(nil, nil, nil)
+        end
+    end
+
+    def test_zip_no_filename
+        assert_raise RuntimeError do
+            # second argument must be non-empty
+            Rake::Delphi::ZipTask.new(@rake_task, nil, nil)
+        end
+    end
+
+    def test_zip_empty_filename
+        assert_raise RuntimeError do
+            # second argument must be non-empty
+            Rake::Delphi::ZipTask.new(@rake_task, '', nil)
+        end
+    end
+
+    def test_zip_file
+        Rake::Delphi::ZipTask.new(@rake_task, @zip, [__FILE__])
+        assert(File.exists?(@zip))
+    end
+end

metadata

@@ -0,0 +1,179 @@
+--- !ruby/object:Gem::Specification
+name: rake-delphi
+version: !ruby/object:Gem::Version
+  version: 0.0.4
+  prerelease: 
+platform: ruby
+authors:
+- Alexey Shumkin
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-02-21 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Tasks for building Delphi projects
+email:
+- Alex.Crezoff@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile.rb
+- lib/rake/common/chdirtask.rb
+- lib/rake/common/classes.rb
+- lib/rake/common/dsl.rb
+- lib/rake/common/echotask.rb
+- lib/rake/common/exectask.rb
+- lib/rake/common/git.rb
+- lib/rake/common/hashtask.rb
+- lib/rake/common/initask.rb
+- lib/rake/common/libstask.rb
+- lib/rake/common/sendmailtask.rb
+- lib/rake/common/ziptask.rb
+- lib/rake/delphi.rb
+- lib/rake/delphi/dcc32.rb
+- lib/rake/delphi/envvariables.rb
+- lib/rake/delphi/liblist.rb
+- lib/rake/delphi/project.rb
+- lib/rake/delphi/projectinfo.rb
+- lib/rake/delphi/rc.rb
+- lib/rake/delphi/resources.rb
+- lib/rake/delphi/tool.rb
+- lib/rake/delphi/version.rb
+- lib/rake/helpers/digest.rb
+- lib/rake/helpers/file.rb
+- lib/rake/helpers/filelist.rb
+- lib/rake/helpers/gemversion.rb
+- lib/rake/helpers/logger.rb
+- lib/rake/helpers/rake.rb
+- lib/rake/helpers/raketask.rb
+- lib/rake/helpers/string.rb
+- lib/rake/helpers/unittest.rb
+- lib/rake/templates/project.erb
+- rake-delphi.gemspec
+- test/helpers/consts.rb
+- test/resources/FakeDelphi/dcc32.exe
+- test/resources/FakeDelphi/rc.exe
+- test/resources/echo/file.in
+- test/resources/echo/file.out
+- test/resources/hashes/hash.2.file
+- test/resources/hashes/hash.file
+- test/resources/ini/file.ini
+- test/resources/libstask/lib/level-1/level-2-1/level-3-1/.gitkeep
+- test/resources/libstask/lib/level-1/level-2-1/level-3-2/.gitkeep
+- test/resources/libstask/lib/level-1/level-2-2/.gitkeep
+- test/resources/testproject/.gitignore
+- test/resources/testproject/ExplicitLib/ExplicitLibUnit.pas
+- test/resources/testproject/Rakefile.rb
+- test/resources/testproject/lib/AnyLib/LibUnit.pas
+- test/resources/testproject/local.resources.txt
+- test/resources/testproject/release.dcc.cfg
+- test/resources/testproject/resources.rc
+- test/resources/testproject/testproject.bdsproj
+- test/resources/testproject/testproject.cfg
+- test/resources/testproject/testproject.dpr
+- test/resources/testproject/testproject.dproj
+- test/resources/testproject/testproject.ico
+- test/test-delphi.rb
+- test/test-echo.rb
+- test/test-gemversion.rb
+- test/test-git.rb
+- test/test-hashes.rb
+- test/test-ini.rb
+- test/test-libstask.rb
+- test/test-projectinfo.rb
+- test/test-zip.rb
+homepage: http://github.com/ashumkin/rake-delphi.gem
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Tasks for building Delphi projects
+test_files:
+- test/helpers/consts.rb
+- test/resources/FakeDelphi/dcc32.exe
+- test/resources/FakeDelphi/rc.exe
+- test/resources/echo/file.in
+- test/resources/echo/file.out
+- test/resources/hashes/hash.2.file
+- test/resources/hashes/hash.file
+- test/resources/ini/file.ini
+- test/resources/libstask/lib/level-1/level-2-1/level-3-1/.gitkeep
+- test/resources/libstask/lib/level-1/level-2-1/level-3-2/.gitkeep
+- test/resources/libstask/lib/level-1/level-2-2/.gitkeep
+- test/resources/testproject/.gitignore
+- test/resources/testproject/ExplicitLib/ExplicitLibUnit.pas
+- test/resources/testproject/Rakefile.rb
+- test/resources/testproject/lib/AnyLib/LibUnit.pas
+- test/resources/testproject/local.resources.txt
+- test/resources/testproject/release.dcc.cfg
+- test/resources/testproject/resources.rc
+- test/resources/testproject/testproject.bdsproj
+- test/resources/testproject/testproject.cfg
+- test/resources/testproject/testproject.dpr
+- test/resources/testproject/testproject.dproj
+- test/resources/testproject/testproject.ico
+- test/test-delphi.rb
+- test/test-echo.rb
+- test/test-gemversion.rb
+- test/test-git.rb
+- test/test-hashes.rb
+- test/test-ini.rb
+- test/test-libstask.rb
+- test/test-projectinfo.rb
+- test/test-zip.rb