diff options
Diffstat (limited to 'trunk/test/rubygems/test_kernel.rb')
-rw-r--r-- | trunk/test/rubygems/test_kernel.rb | 65 |
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 + |