added tag v1_9_0_4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 65 insertions, 0 deletions

diff --git a/trunk/test/rubygems/test_kernel.rb b/trunk/test/rubygems/test_kernel.rb
new file mode 100644
index 0000000000..da31d772eb
--- /dev/null
+++ b/trunk/test/rubygems/test_kernel.rb
@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+#--
+# Copyright 2006 by Chad Fowler, Rich Kilmer, Jim Weirich and others.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+require 'test/unit'
+require File.join(File.expand_path(File.dirname(__FILE__)), 'gemutilities')
+require 'rubygems/package'
+
+class TestKernel < RubyGemTestCase
+
+  def setup
+    super
+
+    @old_path = $:.dup
+
+    util_make_gems
+  end
+
+  def teardown
+    super
+
+    $:.replace @old_path
+  end
+
+  def test_gem
+    assert gem('a', '= 1'), "Should load"
+    assert $:.any? { |p| %r{a-1/lib} =~ p }
+    assert $:.any? { |p| %r{a-1/bin} =~ p }
+  end
+
+  def test_gem_redundent
+    assert gem('a', '= 1'), "Should load"
+    assert ! gem('a', '= 1'), "Should not load"
+    assert_equal 1, $:.select { |p| %r{a-1/lib} =~ p }.size
+    assert_equal 1, $:.select { |p| %r{a-1/bin} =~ p }.size
+  end
+
+  def test_gem_overlapping
+    assert gem('a', '= 1'), "Should load"
+    assert ! gem('a', '>= 1'), "Should not load"
+    assert_equal 1, $:.select { |p| %r{a-1/lib} =~ p }.size
+    assert_equal 1, $:.select { |p| %r{a-1/bin} =~ p }.size
+  end
+
+  def test_gem_conflicting
+    assert gem('a', '= 1'), "Should load"
+
+    ex = assert_raise Gem::Exception do
+      gem 'a', '= 2'
+    end
+
+    assert_match(/activate a \(= 2, runtime\)/, ex.message)
+    assert_match(/activated a-1/, ex.message)
+
+    assert $:.any? { |p| %r{a-1/lib} =~ p }
+    assert $:.any? { |p| %r{a-1/bin} =~ p }
+    assert ! $:.any? { |p| %r{a-2/lib} =~ p }
+    assert ! $:.any? { |p| %r{a-2/bin} =~ p }
+  end
+
+end
+