bob-test 0.0.2

data/LICENSE

@@ -0,0 +1,23 @@
+Copyright (c) 2009 Nicolás Sanguinetti <http://nicolassanguinetti.info>
+Copyright (c) 2009 Simon Rozet <http://atonie.org>
+
+Permission is hereby granted, free of charge, to any person
+obtaining a copy of this software and associated documentation
+files (the "Software"), to deal in the Software without
+restriction, including without limitation the rights to use,
+copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following
+conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1 @@
+See 4c8296ec4f50c92686e4fa9cd7006b4780a9ddbb for details.

data/Rakefile

@@ -0,0 +1,9 @@
+task :default do
+  ruby "-Ilib test/bob_test_test.rb"
+end
+
+begin
+  require "mg"
+  MG.new("bob-test.gemspec")
+rescue LoadError
+end

data/lib/bob/test.rb

@@ -0,0 +1,4 @@
+require "bob"
+require "bob/test/buildable_stub"
+require "bob/test/scm/git"
+require "bob/test/scm/svn"

data/lib/bob/test/buildable_stub.rb

@@ -0,0 +1,37 @@
+module Bob::Test
+  BuildableStub = Struct.new(:scm, :uri, :branch, :build_script) do
+    include Bob::Buildable
+
+    attr_reader :repo, :builds, :metadata
+
+    def self.call(repo)
+      scm = (Bob::Test::GitRepo === repo) ? :git : :svn
+      uri =
+        if scm == :git
+          repo.path
+        else
+          "file://#{SvnRepo.server_root}/#{repo.name}"
+        end
+      # move to repo
+      branch = (scm == :git) ? "master" : ""
+      build_script = "./test"
+
+      new(scm, uri, branch, build_script)
+    end
+
+    def initialize(*args)
+      super
+
+      @builds   = {}
+      @metadata = {}
+    end
+
+    def start_building(commit_id, commit_info)
+      @metadata[commit_id] = commit_info
+    end
+
+    def finish_building(commit_id, status, output)
+      @builds[commit_id] = [status ? :successful : :failed, output]
+    end
+  end
+end

data/lib/bob/test/scm/abstract.rb

@@ -0,0 +1,66 @@
+module Bob::Test
+  class AbstractSCMRepo
+    attr_reader :path, :name
+
+    def initialize(name, base_dir=Bob.directory)
+      @name   = name
+      @path   = File.join(base_dir, @name.to_s)
+    end
+
+    def destroy
+      FileUtils.rm_r path if File.directory?(path)
+    end
+
+    def add_commit(message, &action)
+      Dir.chdir(path) do
+        yield action
+        commit(message)
+      end
+    end
+
+    def add_failing_commit
+      add_commit "This commit will fail" do
+        system "echo '#{build_script(false)}' > test"
+        system "chmod +x test"
+        add    "test"
+      end
+    end
+
+    def add_successful_commit
+      add_commit "This commit will work" do
+        system "echo '#{build_script(true)}' > test"
+        system "chmod +x test"
+        add    "test"
+      end
+    end
+
+    def commits
+      raise NotImplementedError
+    end
+
+    def head
+      commits.last[:identifier]
+    end
+
+    protected
+      def add(file)
+        raise NotImplementedError
+      end
+
+      def commit(message)
+        raise NotImplementedError
+      end
+
+      def run(command)
+        system "#{command} &>/dev/null"
+      end
+
+      def build_script(successful=true)
+        <<-script
+#!/bin/sh
+echo "Running tests..."
+exit #{successful ? 0 : 1}
+script
+      end
+  end
+end

data/lib/bob/test/scm/git.rb

@@ -0,0 +1,48 @@
+require File.dirname(__FILE__) + "/abstract"
+
+module Bob::Test
+  class GitRepo < AbstractSCMRepo
+    def create
+      FileUtils.mkdir_p(path)
+
+      Dir.chdir(path) do
+        run "git init"
+        run "git config user.name 'John Doe'"
+        run "git config user.email 'johndoe@example.org'"
+        run "echo 'just a test repo' >> README"
+        add "README"
+        commit "First commit"
+      end
+    end
+
+    def commits
+      Dir.chdir(path) do
+        commits = `git log --pretty=oneline`.collect { |l| l.split(" ").first }
+        commits.inject([]) do |commits, sha1|
+          format  = "---%n:message: >-%n  %s%n:timestamp: %ci%n" +
+            ":identifier: %H%n:author: %n :name: %an%n :email: %ae%n"
+          commits << YAML.load(`git show -s --pretty=format:"#{format}" #{sha1}`)
+        end.reverse
+      end
+    end
+
+    def head
+      Dir.chdir(path) do
+        `git log --pretty=format:%H | head -1`.chomp
+      end
+    end
+
+    def short_head
+      head[0..6]
+    end
+
+    protected
+      def add(file)
+        run "git add #{file}"
+      end
+
+      def commit(message)
+        run %Q{git commit -m "#{message}"}
+      end
+  end
+end

data/lib/bob/test/scm/svn.rb

@@ -0,0 +1,72 @@
+require File.dirname(__FILE__) + "/abstract"
+require "hpricot"
+
+module Bob::Test
+  class SvnRepo < AbstractSCMRepo
+    def self.server_root
+      @root ||= File.join(Bob.directory, "svn")
+    end
+
+    attr_reader :remote
+
+    def initialize(name, base_dir=Bob.directory)
+      super
+
+      @path   = File.join(base_dir, "svn-#{name}")
+      @remote = File.join(SvnRepo.server_root, name.to_s)
+    end
+
+    def create
+      create_remote
+
+      run "svn checkout file://#{remote} #{path}"
+
+      add_commit("First commit") do
+        run "echo 'just a test repo' >> README"
+        add "README"
+      end
+    end
+
+    def destroy
+      FileUtils.rm_r(remote) if File.directory?(remote)
+      super
+    end
+
+    def commits
+      Dir.chdir(path) do
+        doc = Hpricot::XML(`svn log --xml`)
+
+        (doc/:log/:logentry).inject([]) { |commits, commit|
+          commits << { :identifier => commit["revision"],
+            :message      => commit.at("msg").inner_html,
+            :committed_at => Time.parse(commit.at("date").inner_html) }
+        }.reverse
+      end
+    end
+
+    alias_method :short_head, :head
+
+    protected
+      def add(file)
+        run "svn add #{file}"
+      end
+
+      def commit(message)
+        run %Q{svn commit -m "#{message}"}
+        run "svn up"
+      end
+
+    private
+      def create_remote
+        FileUtils.mkdir_p(SvnRepo.server_root)
+
+        run "svnadmin create #{remote}"
+
+        File.open(File.join(remote, "conf", "svnserve.conf"), "w") { |f|
+          f.puts "[general]"
+          f.puts "anon-access = write"
+          f.puts "auth-access = write"
+        }
+      end
+  end
+end

data/test/bob_test_test.rb

@@ -0,0 +1,67 @@
+require "test/unit"
+require "bob/test"
+
+class BobTestTest < Test::Unit::TestCase
+  include Bob::Test
+
+  def assert_scm_repo(repo)
+    repo.destroy
+    repo.create
+
+    assert_equal 1, repo.commits.size
+    assert_equal "First commit", repo.commits.first[:message]
+
+    repo.add_failing_commit
+    assert_equal 2, repo.commits.size
+    assert_equal "This commit will fail", repo.commits.last[:message]
+    assert_equal repo.commits.last[:identifier], repo.head
+    assert repo.short_head
+
+    repo.add_successful_commit
+    assert_equal 3, repo.commits.size
+    assert_equal "This commit will work", repo.commits.last[:message]
+    assert_equal repo.commits.last[:identifier], repo.head
+  end
+
+  def test_buildable_stub
+    b = BuildableStub.new(:git, "git://github.com/ry/node", "master", "make")
+
+    assert_equal :git,                       b.scm
+    assert_equal "git://github.com/ry/node", b.uri
+    assert_equal "master",                   b.branch
+    assert_equal "make",                     b.build_script
+  end
+
+  def test_scm_repo
+    assert_scm_repo(GitRepo.new(:my_test_project))
+    assert_scm_repo(SvnRepo.new(:my_test_project))
+  end
+
+  def test_buildable_git_repo
+    Bob.directory = "/tmp/bob-git"
+
+    repo = GitRepo.new(:test_repo)
+    repo.destroy
+    repo.create
+
+    b = BuildableStub.call(repo)
+    assert_equal :git,                     b.scm
+    assert_equal "/tmp/bob-git/test_repo", b.uri
+    assert_equal "master",                 b.branch
+    assert_equal "./test",                 b.build_script
+  end
+
+  def test_buildable_svn_repo
+    Bob.directory = "/tmp/bob-svn"
+
+    repo = SvnRepo.new(:test_repo)
+    repo.destroy
+    repo.create
+
+    b = BuildableStub.call(repo)
+    assert_equal :svn,      b.scm
+    assert_equal "",        b.branch
+    assert_equal "./test",  b.build_script
+    assert_equal "file:///tmp/bob-svn/svn/test_repo", b.uri
+  end
+end

metadata

@@ -0,0 +1,83 @@
+--- !ruby/object:Gem::Specification 
+name: bob-test
+version: !ruby/object:Gem::Version 
+  version: 0.0.2
+platform: ruby
+authors: 
+- "Nicol\xC3\xA1s Sanguinetti"
+- Simon Rozet
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-06-01 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: bob
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hpricot
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: test helpers shared among Bob, Bobette and Integrity
+email: info@integrityapp.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- LICENSE
+- README.md
+- Rakefile
+- lib/bob/test.rb
+- lib/bob/test/buildable_stub.rb
+- lib/bob/test/scm/abstract.rb
+- lib/bob/test/scm/git.rb
+- lib/bob/test/scm/svn.rb
+- test/bob_test_test.rb
+has_rdoc: true
+homepage: http://integrityapp.com
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: integrity
+rubygems_version: 1.3.3
+signing_key: 
+specification_version: 3
+summary: test helpers shared among Bob, Bobette and Integrity
+test_files: []
+