libgems 0.0.1

data/test/test_gem_dependency_list.rb

@@ -0,0 +1,230 @@
+require File.expand_path('../gemutilities', __FILE__)
+require 'libgems/dependency_list'
+
+class TestGemDependencyList < RubyGemTestCase
+
+  def setup
+    super
+
+    @deplist = LibGems::DependencyList.new
+
+    @a1 = quick_gem 'a', '1'
+    @a2 = quick_gem 'a', '2'
+    @a3 = quick_gem 'a', '3'
+
+    @b1 = quick_gem 'b', '1' do |s| s.add_dependency 'a', '>= 1' end
+    @b2 = quick_gem 'b', '2' do |s| s.add_dependency 'a', '>= 1' end
+
+    @c1 = quick_gem 'c', '1' do |s| s.add_dependency 'b', '>= 1' end
+    @c2 = quick_gem 'c', '2'
+
+    @d1 = quick_gem 'd', '1' do |s| s.add_dependency 'c', '>= 1' end
+  end
+
+  def test_self_from_source_index
+    hash = {
+      'a-1' => @a1,
+      'b-2' => @b2,
+    }
+
+    si = LibGems::SourceIndex.new hash
+    deps = LibGems::DependencyList.from_source_index si
+
+    assert_equal %w[b-2 a-1], deps.dependency_order.map { |s| s.full_name }
+  end
+
+  def test_active_count
+    assert_equal 0, @deplist.send(:active_count, [], {})
+    assert_equal 1, @deplist.send(:active_count, [@a1], {})
+    assert_equal 0, @deplist.send(:active_count, [@a1],
+                                  { @a1.full_name => true })
+  end
+
+  def test_add
+    assert_equal [], @deplist.dependency_order
+
+    @deplist.add @a1, @b2
+
+    assert_equal [@b2, @a1], @deplist.dependency_order
+  end
+
+  def test_dependency_order
+    @deplist.add @a1, @b1, @c1, @d1
+
+    order = @deplist.dependency_order
+
+    assert_equal %w[d-1 c-1 b-1 a-1], order.map { |s| s.full_name }
+  end
+
+  def test_dependency_order_circle
+    @a1.add_dependency 'c', '>= 1'
+    @deplist.add @a1, @b1, @c1
+
+    order = @deplist.dependency_order
+
+    assert_equal %w[b-1 c-1 a-1], order.map { |s| s.full_name }
+  end
+
+  def test_dependency_order_development
+    e1 = quick_gem 'e', '1'
+    f1 = quick_gem 'f', '1'
+    g1 = quick_gem 'g', '1'
+
+    @a1.add_dependency 'e'
+    @a1.add_dependency 'f'
+    @a1.add_dependency 'g'
+    g1.add_development_dependency 'a'
+
+    deplist = LibGems::DependencyList.new true
+    deplist.add @a1, e1, f1, g1
+
+    order = deplist.dependency_order
+
+    assert_equal %w[g-1 a-1 f-1 e-1], order.map { |s| s.full_name },
+                 'development on'
+
+    deplist2 = LibGems::DependencyList.new
+    deplist2.add @a1, e1, f1, g1
+
+    order = deplist2.dependency_order
+
+    assert_equal %w[a-1 g-1 f-1 e-1], order.map { |s| s.full_name },
+                 'development off'
+  end
+
+  def test_dependency_order_diamond
+    util_diamond
+    e1 = quick_gem 'e', '1'
+    @deplist.add e1
+    @a1.add_dependency 'e', '>= 1'
+
+    order = @deplist.dependency_order
+
+    assert_equal %w[d-1 c-2 b-1 a-2 e-1], order.map { |s| s.full_name },
+                 'deps of trimmed specs not included'
+  end
+
+  def test_dependency_order_no_dependendencies
+    @deplist.add @a1, @c2
+
+    order = @deplist.dependency_order
+
+    assert_equal %w[c-2 a-1], order.map { |s| s.full_name }
+  end
+
+  def test_find_name
+    @deplist.add @a1, @b2
+
+    assert_equal "a-1", @deplist.find_name("a-1").full_name
+    assert_equal "b-2", @deplist.find_name("b-2").full_name
+
+    assert_nil @deplist.find_name("c-2")
+  end
+
+  def test_ok_eh
+    assert @deplist.ok?, 'no dependencies'
+
+    @deplist.add @b2
+
+    refute @deplist.ok?, 'unsatisfied dependency'
+
+    @deplist.add @a1
+
+    assert @deplist.ok?, 'satisfied dependency'
+  end
+
+  def test_ok_eh_mismatch
+    a1 = quick_gem 'a', '1'
+    a2 = quick_gem 'a', '2'
+
+    b = quick_gem 'b', '1' do |s| s.add_dependency 'a', '= 1' end
+    c = quick_gem 'c', '1' do |s| s.add_dependency 'a', '= 2' end
+
+    d = quick_gem 'd', '1' do |s|
+      s.add_dependency 'b'
+      s.add_dependency 'c'
+    end
+
+    @deplist.add a1, a2, b, c, d
+
+    assert @deplist.ok?, 'this will break on require'
+  end
+
+  def test_ok_eh_redundant
+    @deplist.add @a1, @a3, @b2
+
+    @deplist.remove_by_name("a-1")
+
+    assert @deplist.ok?
+  end
+
+  def test_ok_to_remove_eh
+    @deplist.add @a1
+
+    assert @deplist.ok_to_remove?("a-1")
+
+    @deplist.add @b2
+
+    refute @deplist.ok_to_remove?("a-1")
+
+    @deplist.add @a2
+
+    assert @deplist.ok_to_remove?("a-1")
+    assert @deplist.ok_to_remove?("a-2")
+    assert @deplist.ok_to_remove?("b-2")
+  end
+
+  def test_ok_to_remove_eh_after_sibling_removed
+    @deplist.add @a1, @a2, @b2
+
+    assert @deplist.ok_to_remove?("a-1")
+    assert @deplist.ok_to_remove?("a-2")
+
+    @deplist.remove_by_name("a-1")
+
+    refute @deplist.ok_to_remove?("a-2")
+  end
+
+  def test_remove_by_name
+    @deplist.add @a1, @b2
+
+    @deplist.remove_by_name "a-1"
+
+    refute @deplist.ok?
+  end
+
+  def test_tsort_each_node
+    util_diamond
+
+    order = %w[a-1 a-2 b-1 c-2 d-1]
+
+    @deplist.tsort_each_node do |node|
+      assert_equal order.shift, node.full_name
+    end
+
+    assert_empty order
+  end
+
+  def test_tsort_each_child
+    util_diamond
+
+    order = %w[a-2]
+
+    @deplist.tsort_each_child(@b1) do |node|
+      assert_equal order.shift, node.full_name
+    end
+
+    assert_empty order
+  end
+
+  # d1 -> b1 -> a1
+  # d1 -> c2 -> a2
+  def util_diamond
+    @c2.add_dependency 'a', '>= 2'
+    @d1.add_dependency 'b'
+
+    @deplist.add @a1, @a2, @b1, @c2, @d1
+  end
+
+end
+

data/test/test_gem_doc_manager.rb

@@ -0,0 +1,31 @@
+require File.expand_path('../gemutilities', __FILE__)
+require 'libgems/doc_manager'
+
+class TestGemDocManager < RubyGemTestCase
+
+  def setup
+    super
+
+    @spec = quick_gem 'a'
+    @manager = LibGems::DocManager.new(@spec)
+  end
+
+  def test_uninstall_doc_unwritable
+    orig_mode = File.stat(@spec.installation_path).mode
+
+    # File.chmod has no effect on MS Windows directories (it needs ACL).
+    if win_platform?
+      skip("test_uninstall_doc_unwritable skipped on MS Windows")
+    else
+      File.chmod(0, @spec.installation_path)
+    end
+
+    assert_raises LibGems::FilePermissionError do
+      @manager.uninstall_doc
+    end
+  ensure
+    File.chmod orig_mode, @spec.installation_path
+  end
+
+end
+

data/test/test_gem_ext_configure_builder.rb

@@ -0,0 +1,84 @@
+require File.expand_path('../gemutilities', __FILE__)
+require 'libgems/ext'
+
+class TestGemExtConfigureBuilder < RubyGemTestCase
+
+  def setup
+    super
+
+    @makefile_body =  "all:\n\t@echo ok\ninstall:\n\t@echo ok"
+
+    @ext = File.join @tempdir, 'ext'
+    @dest_path = File.join @tempdir, 'prefix'
+
+    FileUtils.mkdir_p @ext
+    FileUtils.mkdir_p @dest_path
+  end
+
+  def test_self_build
+    skip("test_self_build skipped on MS Windows (VC++)") if vc_windows?
+
+    File.open File.join(@ext, './configure'), 'w' do |configure|
+      configure.puts "#!/bin/sh\necho \"#{@makefile_body}\" > Makefile"
+    end
+
+    output = []
+
+    Dir.chdir @ext do
+      LibGems::Ext::ConfigureBuilder.build nil, nil, @dest_path, output
+    end
+
+    assert_equal "sh ./configure --prefix=#{@dest_path}", output.shift
+    assert_equal "", output.shift
+    assert_equal "make", output.shift
+    assert_match(/^ok$/m, output.shift)
+    assert_equal "make install", output.shift
+    assert_match(/^ok$/m, output.shift)
+  end
+
+  def test_self_build_fail
+    skip("test_self_build_fail skipped on MS Windows (VC++)") if vc_windows?
+    output = []
+
+    error = assert_raises LibGems::InstallError do
+      Dir.chdir @ext do
+        LibGems::Ext::ConfigureBuilder.build nil, nil, @dest_path, output
+      end
+    end
+
+    shell_error_msg = %r{(\./configure: .*)|(Can't open \./configure(?:: No such file or directory)?)}
+    sh_prefix_configure = "sh ./configure --prefix="
+
+    expected = %r(configure failed:
+
+#{Regexp.escape sh_prefix_configure}#{Regexp.escape @dest_path}
+.*?: #{shell_error_msg}
+)
+
+    assert_match expected, error.message
+
+    assert_equal "#{sh_prefix_configure}#{@dest_path}", output.shift
+    assert_match %r(#{shell_error_msg}), output.shift
+    assert_equal true, output.empty?
+  end
+
+  def test_self_build_has_makefile
+    if vc_windows? && !nmake_found?
+      skip("test_self_build_has_makefile skipped - nmake not found")
+    end
+
+    File.open File.join(@ext, 'Makefile'), 'w' do |makefile|
+      makefile.puts @makefile_body
+    end
+
+    output = []
+    Dir.chdir @ext do
+      LibGems::Ext::ConfigureBuilder.build nil, nil, @dest_path, output
+    end
+
+    assert_equal make_command, output[0]
+    assert_equal "#{make_command} install", output[2]
+  end
+
+end
+

data/test/test_gem_ext_ext_conf_builder.rb

@@ -0,0 +1,173 @@
+require File.expand_path('../gemutilities', __FILE__)
+require 'libgems/ext'
+
+class TestGemExtExtConfBuilder < RubyGemTestCase
+
+  def setup
+    super
+
+    @ext = File.join @tempdir, 'ext'
+    @dest_path = File.join @tempdir, 'prefix'
+
+    FileUtils.mkdir_p @ext
+    FileUtils.mkdir_p @dest_path
+  end
+
+  def test_class_build
+    if vc_windows? && !nmake_found?
+      skip("test_class_build skipped - nmake not found")
+    end
+
+    File.open File.join(@ext, 'extconf.rb'), 'w' do |extconf|
+      extconf.puts "require 'mkmf'\ncreate_makefile 'foo'"
+    end
+
+    output = []
+
+    Dir.chdir @ext do
+      LibGems::Ext::ExtConfBuilder.build 'extconf.rb', nil, @dest_path, output
+    end
+
+    expected = [
+      "ruby extconf.rb",
+      "creating Makefile\n",
+      "make",
+      "make: Nothing to be done for `all'.\n",
+      "make install",
+      "make: Nothing to be done for `install'.\n"
+    ]
+
+    assert_match(/^#{LibGems.ruby} extconf.rb/, output[0])
+    assert_equal "creating Makefile\n", output[1]
+    case RUBY_PLATFORM
+    when /mswin/ then
+      assert_equal "nmake", output[2]
+      assert_equal "nmake install", output[4]
+    else
+      assert_equal "make", output[2]
+      assert_equal "make install", output[4]
+    end
+  end
+
+  def test_class_build_rbconfig_make_prog
+    configure_args = RbConfig::CONFIG['configure_args']
+    RbConfig::CONFIG['configure_args'] = '--with-make-prog=mymake'
+
+    File.open File.join(@ext, 'extconf.rb'), 'w' do |extconf|
+      extconf.puts "require 'mkmf'\ncreate_makefile 'foo'"
+    end
+
+    output = []
+
+    assert_raises LibGems::InstallError do
+      Dir.chdir @ext do
+        LibGems::Ext::ExtConfBuilder.build 'extconf.rb', nil, @dest_path, output
+      end
+    end
+
+    assert_equal "creating Makefile\n", output[1]
+    assert_equal "mymake", output[2]
+  ensure
+    RbConfig::CONFIG['configure_args'] = configure_args
+  end
+
+  def test_class_build_env_make
+    configure_args, env_make = RbConfig::CONFIG['configure_args'], ENV.delete('make')
+    RbConfig::CONFIG['configure_args'] = ''
+    ENV['make'] = 'anothermake'
+
+    File.open File.join(@ext, 'extconf.rb'), 'w' do |extconf|
+      extconf.puts "require 'mkmf'\ncreate_makefile 'foo'"
+    end
+
+    output = []
+
+    assert_raises LibGems::InstallError do
+      Dir.chdir @ext do
+        LibGems::Ext::ExtConfBuilder.build 'extconf.rb', nil, @dest_path, output
+      end
+    end
+
+    assert_equal "creating Makefile\n", output[1]
+    assert_equal "anothermake", output[2]
+  ensure
+    RbConfig::CONFIG['configure_args'] = configure_args
+    ENV['make'] = env_make
+  end
+
+  def test_class_build_extconf_fail
+    if vc_windows? && !nmake_found?
+      skip("test_class_build_extconf_fail skipped - nmake not found")
+    end
+
+    File.open File.join(@ext, 'extconf.rb'), 'w' do |extconf|
+      extconf.puts "require 'mkmf'"
+      extconf.puts "have_library 'nonexistent' or abort 'need libnonexistent'"
+      extconf.puts "create_makefile 'foo'"
+    end
+
+    output = []
+
+    error = assert_raises LibGems::InstallError do
+      Dir.chdir @ext do
+        LibGems::Ext::ExtConfBuilder.build 'extconf.rb', nil, @dest_path, output
+      end
+    end
+
+    assert_match(/\Aextconf failed:
+
+#{LibGems.ruby} extconf.rb.*
+checking for main\(\) in .*?nonexistent/m, error.message)
+
+    assert_match(/^#{LibGems.ruby} extconf.rb/, output[0])
+  end
+
+  def test_class_make
+    if vc_windows? && !nmake_found?
+      skip("test_class_make skipped - nmake not found")
+    end
+
+    output = []
+    makefile_path = File.join(@ext, 'Makefile')
+    File.open makefile_path, 'w' do |makefile|
+      makefile.puts "RUBYARCHDIR = $(foo)$(target_prefix)"
+      makefile.puts "RUBYLIBDIR = $(bar)$(target_prefix)"
+      makefile.puts "all:"
+      makefile.puts "install:"
+    end
+
+    Dir.chdir @ext do
+      LibGems::Ext::ExtConfBuilder.make @ext, output
+    end
+
+    assert_equal make_command, output[0]
+    assert_equal "#{make_command} install", output[2]
+
+    edited_makefile = <<-EOF
+RUBYARCHDIR = #{@ext}$(target_prefix)
+RUBYLIBDIR = #{@ext}$(target_prefix)
+all:
+install:
+    EOF
+
+    assert_equal edited_makefile, File.read(makefile_path)
+  end
+
+  def test_class_make_no_Makefile
+    error = assert_raises LibGems::InstallError do
+      Dir.chdir @ext do
+        LibGems::Ext::ExtConfBuilder.make @ext, ['output']
+      end
+    end
+
+    expected = <<-EOF.strip
+Makefile not found:
+
+output
+    EOF
+
+    assert_equal expected, error.message
+  end
+
+end
+