francois-piston 2.0.0

data/lib/subclass_responsibility_error.rb

@@ -0,0 +1,2 @@
+class SubclassResponsibilityError < RuntimeError
+end

data/test/integration_helpers.rb

@@ -0,0 +1,35 @@
+PISTON_ROOT = Pathname.new(File.dirname(__FILE__)).parent.realpath
+
+def logger
+  @logger ||= Log4r::Logger["test"]
+end
+
+def runcmd(cmd, *args)
+  cmdline = [cmd]
+  cmdline += args
+  cmdline = cmdline.flatten.map {|s| s.to_s}.join(" ")
+  logger.debug "> #{cmdline}"
+
+  output = `#{cmdline}`
+  logger.debug "< #{output}"
+  return output if $?.success?
+  raise CommandFailed, "Could not run %s, exit status: <%d>\n===\n%s\n===" % [cmdline.inspect, $?.exitstatus, output]
+end
+
+def svn(*args)
+  runcmd(:svn, *args)
+end
+
+def svnadmin(*args)
+  runcmd(:svnadmin, *args)
+end
+
+def git(*args)
+  runcmd(:git, *args)
+end
+
+def piston(*args)
+  runcmd(:ruby, "-I", PISTON_ROOT + "lib", PISTON_ROOT + "bin/piston", *args)
+end
+
+class CommandFailed < RuntimeError; end

data/test/spec_suite.rb

@@ -0,0 +1,4 @@
+dir = File.dirname(__FILE__)
+Dir["#{dir}/**/test_*.rb"].each do |file|
+  require file
+end

data/test/test_helper.rb

@@ -0,0 +1,83 @@
+require "test/unit"
+require "rubygems"
+require "mocha"
+require "log4r"
+require "fileutils"
+
+begin
+  require "turn"
+rescue LoadError
+  # NOP: ignore, this is not a real dependency
+end
+
+require File.expand_path("#{File.dirname(__FILE__)}/../config/requirements")
+require File.expand_path("#{File.dirname(__FILE__)}/integration_helpers")
+require "find"
+
+module Test
+  module Unit
+    module Assertions
+      def deny(boolean, message = nil)
+        message = build_message message, '<?> is not false or nil.', boolean
+        assert_block message do
+          not boolean
+        end
+      end
+    end
+  end
+end
+
+class Piston::TestCase < Test::Unit::TestCase
+  class << self
+    def logger
+      @@logger ||= Log4r::Logger["test"]
+    end
+  end
+  
+  attr_reader :pathnames
+  def setup
+    super
+    @pathnames = []
+  end
+
+  def teardown
+    pathnames.each do |pathname|
+      pathname.rmtree if File.exists?(pathname)
+    end
+    super
+  end
+
+  def run(*args)
+    return if method_name.to_sym == :default_test && self.class == Piston::TestCase
+    super
+  end
+
+  def mkpath(path_or_pathname)
+    returning(path_or_pathname.is_a?(Pathname) ? path_or_pathname : Pathname.new(File.expand_path(path_or_pathname))) do |path|
+      path.mkpath
+      pathnames.push(path)
+    end
+  end
+
+  def logger
+    self.class.logger
+  end
+end
+
+LOG_DIR = Pathname.new(File.expand_path("#{File.dirname(__FILE__)}/../log")) unless Object::const_defined?(:LOG_DIR)
+LOG_DIR.mkdir rescue nil
+
+Log4r::Logger.root.level = Log4r::DEBUG
+
+Log4r::Logger.new("main")
+Log4r::Logger.new("handler")
+Log4r::Logger.new("handler::client")
+Log4r::Logger.new("handler::client::out")
+Log4r::Logger.new("test")
+
+FileUtils.touch("#{LOG_DIR}/test.log")
+Log4r::FileOutputter.new("log", :trunc => true, :filename => (LOG_DIR + "test.log").realpath.to_s)
+
+Log4r::Logger["main"].add "log"
+Log4r::Logger["handler"].add "log"
+Log4r::Logger["test"].add "log"

data/test/unit/git/commit/test_checkout.rb

@@ -0,0 +1,31 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitCommitCheckout < Piston::TestCase
+  def setup
+    super
+    @repos = mock("repos")
+    @repos.stubs(:url).returns("git://a.repos.com/project.git")
+    @reposdir = Pathname.new("tmp/.repos.tmp.git")
+  end
+
+  def test_clones_repository_at_indicated_path
+    @sha1 = "a9302"
+    @commit = Piston::Git::Commit.new(@repos, @sha1)
+    @commit.expects(:git).with(:clone, @repos.url, @reposdir)
+    @commit.expects(:git).with(:checkout, "-b", "my-#{@sha1}", @sha1)
+    @commit.expects(:git).with(:log, "-n", "1").returns("commit 922b12a6bcbb6f6a2cec60bcf5de17118086080a\nAuthor: Fran\303\247ois Beausoleil <francois@teksol.info>\nDate:   Fri Mar 14 13:28:41 2008 -0400\n\n    Changed how dependencies are found and managed, by using config/requirements.rb everywhere.\n    \n    Updated test/test_helper.rb where appropriate.\n")
+    Dir.expects(:chdir).with(@reposdir).yields
+    @commit.checkout_to(@reposdir)
+  end
+
+  def test_cloning_head_finds_head_commit
+    @sha1 = "master"
+    @commit = Piston::Git::Commit.new(@repos, @sha1)
+    @commit.expects(:git).with(:clone, @repos.url, @reposdir)
+    @commit.expects(:git).with(:checkout, "-b", "my-#{@sha1}", @sha1)
+    @commit.expects(:git).with(:log, "-n", "1").returns("commit 922b12a6bcbb6f6a2cec60bcf5de17118086080a\nAuthor: Fran\303\247ois Beausoleil <francois@teksol.info>\nDate:   Fri Mar 14 13:28:41 2008 -0400\n\n    Changed how dependencies are found and managed, by using config/requirements.rb everywhere.\n    \n    Updated test/test_helper.rb where appropriate.\n")
+    Dir.expects(:chdir).with(@reposdir).yields
+    @commit.checkout_to(@reposdir)
+    assert_equal "922b12a6bcbb6f6a2cec60bcf5de17118086080a", @commit.sha1
+  end
+end

data/test/unit/git/commit/test_each.rb

@@ -0,0 +1,30 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitCommitEach < Piston::TestCase
+  def setup
+    super
+    @repos = mock("repository")
+    @repos.stubs(:url).returns("git://github.com/francois/arepos.git")
+    @tmpdir = mkpath("tmp/.arepos.tmp.git")
+    
+    @commit = Piston::Git::Commit.new(@repos, "ab"*20)
+    @commit.stubs(:git).returns("commit " + "ab" * 20)
+    @commit.checkout_to(@tmpdir)
+  end
+
+  def test_prunes_search_tree_on_dot_git_directory
+    @tmpdir.expects(:find).yields(@tmpdir + ".git")
+    assert_throws :prune do
+      @commit.each do |relpath| 
+        # Can't assert anything
+      end
+    end
+  end
+
+  def test_yields_paths_relative_to_working_copy
+    @tmpdir.expects(:find).yields(@tmpdir + "a.rb")
+    @commit.each do |relpath|
+      assert_equal Pathname.new("a.rb"), relpath
+    end
+  end
+end

data/test/unit/git/commit/test_rememberance.rb

@@ -0,0 +1,22 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitCommitRememberance < Piston::TestCase
+  def setup
+    super
+    @repos = mock("repository")
+    @repos.stubs(:url).returns("git://github.com/francois/arepos.git")
+
+    @reposdir = Pathname.new("tmp/repos.git")
+    @commit = Piston::Git::Commit.new(@repos, "ab"*20)
+    @commit.stubs(:git).with("ls-remote", @repos.url, @commit.commit).returns("b"*40)
+    @values = @commit.remember_values
+  end
+
+  def test_remembers_original_commit_sha1
+    assert_equal @values[Piston::Git::COMMIT], @commit.sha1
+  end
+
+  def test_remembers_original_branch_name
+    assert_equal @values[Piston::Git::BRANCH], @commit.revision
+  end
+end

data/test/unit/git/commit/test_validation.rb

@@ -0,0 +1,34 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitCommitValidation < Piston::TestCase
+  def setup
+    super
+    @repository = mock("repository")
+    @repository.stubs(:url).returns("git://my-git-repos/my-project.git")
+  end
+
+  def test_is_invalid_if_cannot_ls_remote_repository
+    commit = new_commit("HEAD")
+    commit.expects(:git).with("ls-remote", @repository.url).raises(Piston::Git::Client::CommandError)
+    assert_raise Piston::Git::Commit::Gone do
+      commit.validate!
+    end
+  end
+
+  def test_is_valid_when_ls_remote_succeeds
+    commit = new_commit("HEAD")
+    commit.expects(:git).with("ls-remote", @repository.url).returns(INFO)
+    assert_nothing_raised do
+      commit.validate!
+    end
+  end
+
+  protected
+  def new_commit(commit, recalled_values={})
+    Piston::Git::Commit.new(@repository, commit, recalled_values)
+  end
+  
+  INFO = <<EOF
+a7c46c702243f145a4089b0cb33d189870f1ae53	HEAD
+EOF
+end

data/test/unit/git/repository/test_at.rb

@@ -0,0 +1,23 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitRepositoryAt < Piston::TestCase
+  def setup
+    super
+    @repos = Piston::Git::Repository.new("git://a.repos.com/project.git")
+  end
+
+  def test_returns_a_piston_git_commit
+    Piston::Git::Commit.expects(:new).with(@repos, "a93029").returns(commit = mock("commit"))
+    assert_equal commit, @repos.at("a93029")
+  end
+
+  def test_returns_a_piston_git_commit_at_head_when_appropriate
+    Piston::Git::Commit.expects(:new).with(@repos, "HEAD").returns(commit = mock("commit"))
+    assert_equal commit, @repos.at(:head)
+  end
+
+  def test_returns_a_git_commit_using_recalled_values
+    Piston::Git::Commit.expects(:new).with(@repos, "a"*40, Piston::Git::COMMIT => "a"*40).returns(commit = mock("commit"))
+    assert_equal commit, @repos.at(Piston::Git::COMMIT => "a"*40)
+  end
+end

data/test/unit/git/repository/test_basename.rb

@@ -0,0 +1,12 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitRepositoryBasename < Piston::TestCase
+  def test_basename_is_urls_last_component_minus_dot_git
+    assert_equal "piston", basename("git://github.com/francois/piston.git")
+  end
+
+  private
+  def basename(url)
+    Piston::Git::Repository.new(url).basename
+  end
+end

data/test/unit/git/repository/test_branchanme.rb

@@ -0,0 +1,15 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitRepositoryBranchname < Piston::TestCase
+  def test_branchname_is_nil_when_no_branch_in_url
+    assert_nil Piston::Git::Repository.new("git://github.com/francois/piston.git").branchname
+  end
+
+  def test_branchname_is_branch_when_branch_in_url
+    assert_equal "branch", Piston::Git::Repository.new("git://github.com/francois/piston.git?branch").branchname
+  end
+
+  def test_url_does_not_include_branchname
+    assert_equal "git://github.com/francois/piston.git", Piston::Git::Repository.new("git://github.com/francois/piston.git?branch").url
+  end
+end

data/test/unit/git/repository/test_guessing.rb

@@ -0,0 +1,32 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitRepositoryGuessing < Piston::TestCase
+  def test_understands_git_protocol
+    assert Piston::Git::Repository.understands_url?("git://github.com/francois/piston.git")
+  end
+
+  def test_understands_git_ssh_protocol
+    Piston::Git::Repository.expects(:git).with("ls-remote", "--heads", "git@github.com:francois/piston.git").returns("ab"*20 + " refs/heads/master")
+    assert Piston::Git::Repository.understands_url?("git@github.com:francois/piston.git")
+  end
+
+  def test_understand_http_when_heads_returned
+    Piston::Git::Repository.expects(:git).with("ls-remote", "--heads", "http://github.com/francois/piston.git").returns("ab"*20 + " refs/heads/master")
+    assert Piston::Git::Repository.understands_url?("http://github.com/francois/piston.git")
+  end
+
+  def test_does_not_understand_http_when_no_heads
+    Piston::Git::Repository.expects(:git).with("ls-remote", "--heads", "http://github.com/francois/piston.git").returns("")
+    deny Piston::Git::Repository.understands_url?("http://github.com/francois/piston.git")
+  end
+
+  def test_asks_url_when_ssh_protocol
+    Piston::Git::Repository.expects(:git).with("ls-remote", "--heads", "ssh://francois@github.com/francois/piston.git").returns("ab"*20 + " refs/heads/master")
+    assert Piston::Git::Repository.understands_url?("ssh://francois@github.com/francois/piston.git")
+  end
+
+  def test_asks_base_url_when_named_branch_in_url
+    Piston::Git::Repository.expects(:git).with("ls-remote", "--heads", "ssh://francois@github.com/francois/piston.git").returns("ab"*20 + " refs/heads/master")
+    assert Piston::Git::Repository.understands_url?("ssh://francois@github.com/francois/piston.git?convert")
+  end
+end

data/test/unit/git/working_copy/test_copying.rb

@@ -0,0 +1,25 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitWorkingCopyCopying < Piston::TestCase
+  def setup
+    super
+    @wcdir = mkpath("tmp/wc")
+    @wc = Piston::Git::WorkingCopy.new(@wcdir)
+    @wc.stubs(:git)
+  end
+
+  def test_copies_file
+    files = ["file.rb"]
+    files.expects(:copy_to).with("file.rb", @wcdir + files.first)
+    @wc.copy_from(files)
+  end
+
+  def test_ensures_directories_are_created
+    files = ["file/a.rb"]
+    @wcdir.expects(:+).with(files.first).returns(target = mock("target"))
+    target.expects(:dirname).returns(target)
+    target.expects(:mkdir)
+    files.expects(:copy_to).with("file/a.rb", target)
+    @wc.copy_from(files)
+  end
+end

data/test/unit/git/working_copy/test_creation.rb

@@ -0,0 +1,22 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitWorkingCopyCreation < Piston::TestCase
+  def setup
+    super
+    @wcdir = mkpath("tmp/wc")
+    @wc = Piston::Git::WorkingCopy.new(@wcdir)
+    @wc.stubs(:git)
+  end
+
+  def test_create_does_a_simple_mkpath
+    @wcdir.expects(:mkpath)
+    @wc.create
+  end
+
+  def test_create_succeeds_even_if_mkpath_fails
+    @wcdir.expects(:mkpath).raises(Errno::EEXIST)
+    assert_nothing_raised do
+      @wc.create
+    end
+  end
+end

data/test/unit/git/working_copy/test_existence.rb

@@ -0,0 +1,18 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitWorkingCopyExistence < Piston::TestCase
+  def setup
+    super
+    @wc = Piston::Git::WorkingCopy.new("tmp/wc")
+    @wcdir = @wc.path
+  end
+
+  def test_exist_false_when_no_dir
+    deny @wc.exist?
+  end
+
+  def test_exist_true_when_dir_present
+    @wcdir.mkdir
+    assert @wc.exist?
+  end
+end

data/test/unit/git/working_copy/test_finalization.rb

@@ -0,0 +1,15 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitWorkingCopyFinalization < Piston::TestCase
+  def setup
+    super
+    @wcdir = mkpath("tmp/wc")
+    @wc = Piston::Git::WorkingCopy.new(@wcdir)
+  end
+
+  def test_finalize_adds_path_to_git
+    Dir.expects(:chdir).with(@wcdir).yields
+    @wc.expects(:git).with(:add, ".")
+    @wc.finalize
+  end
+end

data/test/unit/git/working_copy/test_guessing.rb

@@ -0,0 +1,35 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../../../test_helper")
+
+class Piston::Git::TestGitWorkingCopyGuessing < Piston::TestCase
+  def setup
+    super
+    @dir = mkpath("tmp/wc")
+  end
+
+  def test_does_git_status_on_directory
+    Dir.expects(:chdir).with(@dir).yields
+    Piston::Git::WorkingCopy.expects(:git).with(:status).returns("# On branch master
+nothing to commit (working directory clean)
+")
+    assert Piston::Git::WorkingCopy.understands_dir?(@dir)
+  end
+
+  def test_does_git_status_on_parent_directories_recursively
+    @wc = @dir
+    @tmp = @wc.parent
+    @root = @tmp.parent
+
+    Dir.expects(:chdir).with(@dir).raises(Errno::ENOENT)
+    Dir.expects(:chdir).with(@tmp).raises(Errno::ENOENT)
+    Dir.expects(:chdir).with(@root).yields
+    Piston::Git::WorkingCopy.expects(:git).with(:status).returns("# On branch master
+nothing to commit (working directory clean)
+")
+    assert Piston::Git::WorkingCopy.understands_dir?(@dir)
+  end
+
+  def test_denies_when_git_unavailable
+    Piston::Git::WorkingCopy.stubs(:git).raises(Piston::Git::Client::BadCommand)
+    deny Piston::Git::WorkingCopy.understands_dir?(@dir)
+  end
+end