2009-09-12 17:00:51 +00:00
|
|
|
require_relative 'gemutilities'
|
2008-02-10 08:00:19 +00:00
|
|
|
require 'rubygems/package'
|
2007-11-10 07:48:56 +00:00
|
|
|
|
|
|
|
class TestKernel < RubyGemTestCase
|
|
|
|
|
|
|
|
def setup
|
|
|
|
super
|
|
|
|
|
|
|
|
@old_path = $:.dup
|
|
|
|
|
|
|
|
util_make_gems
|
|
|
|
end
|
|
|
|
|
|
|
|
def teardown
|
|
|
|
super
|
|
|
|
|
|
|
|
$:.replace @old_path
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_gem
|
2007-12-20 08:39:12 +00:00
|
|
|
assert gem('a', '= 1'), "Should load"
|
|
|
|
assert $:.any? { |p| %r{a-1/lib} =~ p }
|
|
|
|
assert $:.any? { |p| %r{a-1/bin} =~ p }
|
2007-11-10 07:48:56 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
def test_gem_redundent
|
2007-12-20 08:39:12 +00:00
|
|
|
assert gem('a', '= 1'), "Should load"
|
2009-06-09 21:38:59 +00:00
|
|
|
refute gem('a', '= 1'), "Should not load"
|
2007-12-20 08:39:12 +00:00
|
|
|
assert_equal 1, $:.select { |p| %r{a-1/lib} =~ p }.size
|
|
|
|
assert_equal 1, $:.select { |p| %r{a-1/bin} =~ p }.size
|
2007-11-10 07:48:56 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
def test_gem_overlapping
|
2007-12-20 08:39:12 +00:00
|
|
|
assert gem('a', '= 1'), "Should load"
|
2009-06-09 21:38:59 +00:00
|
|
|
refute gem('a', '>= 1'), "Should not load"
|
2007-12-20 08:39:12 +00:00
|
|
|
assert_equal 1, $:.select { |p| %r{a-1/lib} =~ p }.size
|
|
|
|
assert_equal 1, $:.select { |p| %r{a-1/bin} =~ p }.size
|
2007-11-10 07:48:56 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
def test_gem_conflicting
|
2007-12-20 08:39:12 +00:00
|
|
|
assert gem('a', '= 1'), "Should load"
|
2007-11-10 07:48:56 +00:00
|
|
|
|
2009-06-09 21:38:59 +00:00
|
|
|
ex = assert_raises Gem::LoadError do
|
2007-12-20 08:39:12 +00:00
|
|
|
gem 'a', '= 2'
|
2007-11-10 07:48:56 +00:00
|
|
|
end
|
|
|
|
|
2008-06-17 22:04:18 +00:00
|
|
|
assert_match(/activate a \(= 2, runtime\)/, ex.message)
|
2007-12-20 08:39:12 +00:00
|
|
|
assert_match(/activated a-1/, ex.message)
|
2009-06-09 21:38:59 +00:00
|
|
|
assert_equal 'a', ex.name
|
|
|
|
assert_equal Gem::Requirement.new('= 2'), ex.version_requirement
|
2007-11-10 07:48:56 +00:00
|
|
|
|
2007-12-20 08:39:12 +00:00
|
|
|
assert $:.any? { |p| %r{a-1/lib} =~ p }
|
|
|
|
assert $:.any? { |p| %r{a-1/bin} =~ p }
|
2009-06-09 21:38:59 +00:00
|
|
|
refute $:.any? { |p| %r{a-2/lib} =~ p }
|
|
|
|
refute $:.any? { |p| %r{a-2/bin} =~ p }
|
2007-11-10 07:48:56 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
|