tpkg 2.3.3 → 2.3.4

data/test/test_os.rb

@@ -0,0 +1,193 @@
+#
+# Tests OS abstraction code
+#
+
+require File.expand_path('tpkgtest', File.dirname(__FILE__))
+
+class Tpkg::OS::TestImplementation < Tpkg::OS
+end
+
+class TpkgOSTests < Test::Unit::TestCase
+  include TpkgTests
+  
+  def setup
+    @os = Tpkg::OS.new
+  end
+  
+  def test_register_implementation
+    Tpkg::OS.register_implementation(Tpkg::OS::TestImplementation)
+    assert_includes Tpkg::OS.class_variable_get(:@@implementations), Tpkg::OS::TestImplementation
+  end
+  def test_create
+    fact = Facter::Util::Fact.new('operatingsystem')
+    Facter.stubs(:[]).returns(fact)
+    fact.stubs(:value).returns('RedHat')
+    assert_instance_of Tpkg::OS::RedHat, Tpkg::OS.create
+  end
+  def test_initialize
+    [true, false].each do |debugval|
+      os = Tpkg::OS.new(:debug => debugval)
+      assert_equal debugval, os.instance_variable_get(:@debug)
+    end
+    # Reach into Facter's guts to test that initialize called Facter.loadfacts
+    if Facter.collection.respond_to?(:internal_loader)
+      assert Facter.collection.internal_loader.instance_variable_get(:@loaded_all)
+    else
+      assert Facter.collection.loader.instance_variable_get(:@loaded_all)
+    end
+  end
+  
+  def test_init_links
+    # assert_raise(NotImplementedError) { @os.init_links('/path/to/init/script', {:init => {}}) }
+    assert_equal [], @os.init_links('/path/to/init/script', {:init => {}})
+  end
+  def test_available_native_packages
+    assert_raise(NotImplementedError) { @os.available_native_packages('curl') }
+  end
+  def test_install_native_package
+    assert_raise(NotImplementedError) { @os.install_native_package({}) }
+  end
+  def test_upgrade_native_package
+    assert_raise(NotImplementedError) { @os.upgrade_native_package({}) }
+  end
+  def test_stub_native_pkg
+    # See comment in method
+    # assert_raise NotImplementedError { @os.stub_native_pkg({}) }
+    pkgfile = make_package
+    metadata = Tpkg::metadata_from_package(pkgfile)
+    pkg = { :metadata => metadata, :source => pkgfile }
+    assert_nil @os.stub_native_pkg(pkg)
+  end
+  def test_remove_native_stub_pkg
+    # See comment in method
+    # assert_raise NotImplementedError { @os.remove_native_stub_pkg({}) }
+    assert_nil @os.remove_native_stub_pkg({})
+  end
+  def test_os_version
+    verfact = Facter::Util::Fact.new('operatingsystemrelease')
+    verfact.stubs(:value).returns('1.2.3')
+    Facter.expects(:[]).with('operatingsystemrelease').returns(verfact).at_least_once
+    assert_equal '1.2.3', @os.os_version
+    
+    # Muck with the returned variable and ensure that doesn't stick.  I.e.
+    # ensure that the method called dup on the string before returning it.
+    ver = @os.os_version
+    goodver = ver.dup
+    ver << 'junk'
+    assert_equal(goodver, @os.os_version)
+    
+  end
+  def test_native_pkg_to_install_string
+    assert_equal 'pkg-1.0-1', @os.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0', :package_version => '1'}})
+    assert_equal 'pkg-1.0', @os.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0'}})
+  end
+  
+  def test_os
+    osfact = Facter::Util::Fact.new('operatingsystem')
+    osfact.stubs(:value).returns('TestOS')
+    Facter.expects(:[]).with('operatingsystem').returns(osfact).at_least_once
+    verfact = Facter::Util::Fact.new('operatingsystemrelease')
+    verfact.stubs(:value).returns('1.2.3')
+    Facter.expects(:[]).with('operatingsystemrelease').returns(verfact).at_least_once
+    assert_equal 'TestOS-1.2.3', @os.os
+    
+    # Muck with the returned variable and ensure that doesn't stick.  I.e.
+    # ensure that the method called dup on the string before returning it.
+    os = @os.os
+    goodos = os.dup
+    os << 'junk'
+    assert_equal(goodos, @os.os)
+  end
+  def test_os_name
+    osfact = Facter::Util::Fact.new('operatingsystem')
+    osfact.stubs(:value).returns('TestOS')
+    Facter.expects(:[]).with('operatingsystem').returns(osfact).at_least_once
+    assert_equal 'TestOS', @os.os_name
+    
+    # Muck with the returned variable and ensure that doesn't stick.  I.e.
+    # ensure that the method called dup on the string before returning it.
+    name = @os.os_name
+    goodname = name.dup
+    name << 'junk'
+    assert_equal(goodname, @os.os_name)
+  end
+  def test_arch
+    hwfact = Facter::Util::Fact.new('hardwaremodel')
+    hwfact.stubs(:value).returns('i286')
+    Facter.expects(:[]).with('hardwaremodel').returns(hwfact).at_least_once
+    assert_equal 'i286', @os.arch
+    
+    # Muck with the returned variable and ensure that doesn't stick.  I.e.
+    # ensure that the method called dup on the string before returning it.
+    arch = @os.arch
+    goodarch = arch.dup
+    arch << 'junk'
+    assert_equal(goodarch, @os.arch)
+  end
+  def test_fqdn
+    fqdnfact = Facter::Util::Fact.new('fqdn')
+    fqdnfact.stubs(:value).returns('test.example.com')
+    Facter.expects(:[]).with('fqdn').returns(fqdnfact).at_least_once
+    assert_equal 'test.example.com', @os.fqdn
+    # Test fallback to hostname + domain
+    hostfact = Facter::Util::Fact.new('hostname')
+    hostfact.stubs(:value).returns('test2')
+    domainfact = Facter::Util::Fact.new('domain')
+    domainfact.stubs(:value).returns('example.com')
+    Facter.expects(:[]).with('fqdn').returns(nil)
+    Facter.expects(:[]).with('hostname').returns(hostfact).at_least_once
+    Facter.expects(:[]).with('domain').returns(domainfact).at_least_once
+    assert_equal 'test2.example.com', @os.fqdn
+  end
+  def test_cron_dot_d_directory
+    assert_nil @os.cron_dot_d_directory
+  end
+  def test_sudo_default
+    assert @os.sudo_default?
+  end
+  
+  def test_sys_v_init_links
+    installed_path = '/path/to/init/script'
+    tpkgfile = {
+      :init => {}
+    }
+    default_levels = ['1', '2', '3']
+    init_directory = '/etc/rc.d'
+    assert_equal(
+      ['/etc/rc.d/rc1.d/S99script',
+       '/etc/rc.d/rc2.d/S99script',
+       '/etc/rc.d/rc3.d/S99script'],
+      @os.sys_v_init_links(installed_path, tpkgfile, default_levels, init_directory))
+    
+    tpkgfile = {
+      :init => {
+        :start => '98'
+      }
+    }
+    assert_equal(
+      ['/etc/rc.d/rc1.d/S98script',
+       '/etc/rc.d/rc2.d/S98script',
+       '/etc/rc.d/rc3.d/S98script'],
+      @os.sys_v_init_links(installed_path, tpkgfile, default_levels, init_directory))
+    
+    tpkgfile = {
+      :init => {
+        :levels => ['1', '2']
+      }
+    }
+    assert_equal(
+      ['/etc/rc.d/rc1.d/S99script',
+       '/etc/rc.d/rc2.d/S99script'],
+      @os.sys_v_init_links(installed_path, tpkgfile, default_levels, init_directory))
+    
+    tpkgfile = {
+      :init => {
+        :levels => '13'
+      }
+    }
+    assert_equal(
+      ['/etc/rc.d/rc1.d/S99script',
+       '/etc/rc.d/rc3.d/S99script'],
+      @os.sys_v_init_links(installed_path, tpkgfile, default_levels, init_directory))
+  end
+end

data/test/test_os_debian.rb

@@ -0,0 +1,99 @@
+#
+# Tests Debian OS abstraction code
+#
+
+require File.expand_path('tpkgtest', File.dirname(__FILE__))
+
+class TpkgOSDebianTests < Test::Unit::TestCase
+  include TpkgTests
+  
+  def setup
+    @debian = Tpkg::OS::Debian.new(
+      :dpkgquerycmd => File.join(TESTCMDDIR, 'debian/dpkg-query'),
+      :aptcachecmd => File.join(TESTCMDDIR, 'debian/apt-cache'),
+      )
+  end
+  
+  def test_supported
+    fact = Facter::Util::Fact.new('operatingsystem')
+    Facter.expects(:[]).with('operatingsystem').returns(fact).at_least_once
+    fact.stubs(:value).returns('Debian')
+    assert Tpkg::OS::Debian.supported?
+    fact.stubs(:value).returns('Ubuntu')
+    assert Tpkg::OS::Debian.supported?
+    fact.stubs(:value).returns('Other')
+    refute Tpkg::OS::Debian.supported?
+  end
+  def test_initialize
+    [:dpkgquerycmd, :aptcachecmd, :aptgetcmd].each do |cmdvar|
+      debian = Tpkg::OS::Debian.new(cmdvar => TESTCMD)
+      assert_equal TESTCMD, debian.instance_variable_get("@#{cmdvar}")
+      debian = Tpkg::OS::Debian.new(:testcmd => TESTCMD)
+      assert_equal TESTCMD, debian.instance_variable_get("@#{cmdvar}")
+    end
+    # Test that super is called
+    [true, false].each do |debugval|
+      debian = Tpkg::OS::Debian.new(:debug => debugval)
+      assert_equal debugval, debian.instance_variable_get(:@debug)
+    end
+  end
+  def test_init_links
+    correct = (2..5).collect{|i| "/etc/rc#{i}.d/S99script"}
+    assert_equal correct, @debian.init_links('/path/to/init/script', {:init => {}})
+  end
+  def test_cron_dot_d_directory
+    assert_equal '/etc/cron.d', @debian.cron_dot_d_directory
+  end
+  def test_available_native_packages
+    assert_equal(
+      [
+        {:metadata=>
+          {:name=>'ruby1.9.1', :version=>'1.9.3.194', :package_version=>'3'},
+          :source=>:native_installed,
+          :prefer=>true},
+        {:metadata=>
+          {:name=>'ruby1.9.1', :version=>'1.9.3.194', :package_version=>'7'},
+          :source=>:native_available},
+      ],
+      @debian.available_native_packages('ruby1.9.1'))
+    assert_equal(
+      [
+        {:metadata=>
+          {:name=>'exim4', :version=>'4.80', :package_version=>'7'},
+          :source=>:native_available}
+      ],
+      @debian.available_native_packages('exim4'))
+    assert_equal [], @debian.available_native_packages('bogus')
+  end
+  def test_native_pkg_to_install_string
+    assert_equal 'pkg=1.0-1', @debian.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0', :package_version => '1'}})
+    assert_equal 'pkg=1.0', @debian.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0'}})
+  end
+  def test_install_native_package
+    @debian.expects(:system).with('apt-get -y install ruby1.9.1=1.9.3.194-7')
+    @debian.install_native_package({:metadata => {:name => 'ruby1.9.1', :version => '1.9.3.194', :package_version => '7'}})
+  end
+  def test_upgrade_native_package
+    @debian.expects(:system).with('apt-get -y install ruby1.9.1=1.9.3.194-7')
+    @debian.upgrade_native_package({:metadata => {:name => 'ruby1.9.1', :version => '1.9.3.194', :package_version => '7'}})
+  end
+  def test_os_version
+    # The os_version method caches its result, so we need a new object for
+    # each test
+    fact = Facter::Util::Fact.new('lsbmajdistrelease')
+    Facter.expects(:[]).with('lsbmajdistrelease').returns(fact).at_least_once
+    fact.stubs(:value).returns('6')
+    assert_equal '6', Tpkg::OS::Debian.new.os_version
+    fact.stubs(:value).returns('testing')
+    assert_equal 'testing', Tpkg::OS::Debian.new.os_version
+    fact.stubs(:value).returns('testing/unstable')
+    assert_equal 'testing', Tpkg::OS::Debian.new.os_version
+    
+    # Test fallback to lsbdistrelease
+    fact = Facter::Util::Fact.new('lsbdistrelease')
+    fact.stubs(:value).returns('6.0.7')
+    Facter.expects(:[]).with('lsbmajdistrelease').returns(nil)
+    Facter.expects(:[]).with('lsbdistrelease').returns(fact).at_least_once
+    assert_equal '6', Tpkg::OS::Debian.new.os_version
+  end
+end

data/test/test_os_freebsd.rb

@@ -0,0 +1,89 @@
+#
+# Tests FreeBSD OS abstraction code
+#
+
+require File.expand_path('tpkgtest', File.dirname(__FILE__))
+
+class TpkgOSFreeBSDTests < Test::Unit::TestCase
+  include TpkgTests
+  
+  def setup
+    @freebsd = Tpkg::OS::FreeBSD.new(
+      :pkginfocmd => File.join(TESTCMDDIR, 'freebsd/pkg_info'),
+      )
+  end
+  def setup_mock_os
+    fact = Facter::Util::Fact.new('hardwaremodel')
+    fact.stubs(:value).returns('i386')
+    Facter.expects(:[]).with('hardwaremodel').returns(fact).at_least_once
+    fact = Facter::Util::Fact.new('operatingsystemrelease')
+    fact.stubs(:value).returns('9.1-RELEASE')
+    Facter.expects(:[]).with('operatingsystemrelease').returns(fact).at_least_once
+  end
+  
+  def test_supported
+    fact = Facter::Util::Fact.new('operatingsystem')
+    Facter.expects(:[]).with('operatingsystem').returns(fact).at_least_once
+    fact.stubs(:value).returns('FreeBSD')
+    assert Tpkg::OS::FreeBSD.supported?
+    fact.stubs(:value).returns('Other')
+    refute Tpkg::OS::FreeBSD.supported?
+  end
+  def test_initialize
+    [:pkginfocmd, :pkgaddcmd, :pkgdeletecmd].each do |cmdvar|
+      freebsd = Tpkg::OS::FreeBSD.new(cmdvar => TESTCMD)
+      assert_equal TESTCMD, freebsd.instance_variable_get("@#{cmdvar}")
+      freebsd = Tpkg::OS::FreeBSD.new(:testcmd => TESTCMD)
+      assert_equal TESTCMD, freebsd.instance_variable_get("@#{cmdvar}")
+    end
+    # Test that super is called
+    [true, false].each do |debugval|
+      freebsd = Tpkg::OS::FreeBSD.new(:debug => debugval)
+      assert_equal debugval, freebsd.instance_variable_get(:@debug)
+    end
+  end
+  
+  def test_packagesite
+    setup_mock_os
+    assert_equal 'ftp://ftp.freebsd.org/pub/FreeBSD/ports/i386/packages-9-stable/All/', @freebsd.packagesite
+    freebsd = Tpkg::OS::FreeBSD.new(:packagesite => 'http://example.com/freebsd/<%= os_version %>/<%= arch %>')
+    assert_equal 'http://example.com/freebsd/9/i386/', freebsd.packagesite
+  end
+  def test_init_links
+    assert_equal ['/usr/local/etc/rc.d/script'], @freebsd.init_links('/path/to/init/script', {:init => {}})
+  end
+  def test_available_native_packages
+    assert_equal(
+      [
+        {:metadata=>
+          {:name=>'curl', :version=>'7.24.0'},
+          :source=>:native_installed,
+          :prefer=>true},
+      ],
+      @freebsd.available_native_packages('curl'))
+    assert_equal [], @freebsd.available_native_packages('bogus')
+  end
+  def test_native_pkg_to_install_string
+    assert_equal 'pkg-1.0_1', @freebsd.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0', :package_version => '1'}})
+    assert_equal 'pkg-1.0', @freebsd.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0'}})
+  end
+  def test_install_native_package
+    setup_mock_os
+    @freebsd.expects(:system).
+      with('sh', '-c', "PACKAGESITE=#{@freebsd.packagesite} pkg_add -r curl-7.24.0")
+    @freebsd.install_native_package({:metadata => {:name => 'curl', :version => '7.24.0'}})
+  end
+  def test_upgrade_native_package
+    setup_mock_os
+    @freebsd.expects(:system).with('pkg_delete curl-7.24.0')
+    @freebsd.expects(:system).
+      with('sh', '-c', "PACKAGESITE=#{@freebsd.packagesite} pkg_add -r curl-7.24.0")
+    @freebsd.upgrade_native_package({:metadata => {:name => 'curl', :version => '7.24.0'}})
+  end
+  def test_os_version
+    fact = Facter::Util::Fact.new('operatingsystemrelease')
+    fact.stubs(:value).returns('9.1-RELEASE')
+    Facter.expects(:[]).with('operatingsystemrelease').returns(fact).at_least_once
+    assert_equal '9', Tpkg::OS::FreeBSD.new.os_version
+  end
+end

data/test/test_os_macosx.rb

@@ -0,0 +1,79 @@
+#
+# Tests Mac OS X OS abstraction code
+#
+
+require File.expand_path('tpkgtest', File.dirname(__FILE__))
+
+class TpkgOSMacOSXTests < Test::Unit::TestCase
+  include TpkgTests
+  
+  def setup
+    @testport = File.join(TESTCMDDIR, 'macosx/port')
+    @macosx = Tpkg::OS::MacOSX.new(
+      :portcmd => @testport,
+      )
+  end
+  
+  def test_supported
+    fact = Facter::Util::Fact.new('operatingsystem')
+    Facter.expects(:[]).with('operatingsystem').returns(fact).at_least_once
+    fact.stubs(:value).returns('Darwin')
+    assert Tpkg::OS::MacOSX.supported?
+    fact.stubs(:value).returns('Other')
+    refute Tpkg::OS::MacOSX.supported?
+  end
+  def test_initialize
+    [:portcmd].each do |cmdvar|
+      macosx = Tpkg::OS::MacOSX.new(cmdvar => TESTCMD)
+      assert_equal TESTCMD, macosx.instance_variable_get("@#{cmdvar}")
+      macosx = Tpkg::OS::MacOSX.new(:testcmd => TESTCMD)
+      assert_equal TESTCMD, macosx.instance_variable_get("@#{cmdvar}")
+    end
+    # Test that super is called
+    [true, false].each do |debugval|
+      macosx = Tpkg::OS::MacOSX.new(:debug => debugval)
+      assert_equal debugval, macosx.instance_variable_get(:@debug)
+    end
+  end
+  def test_available_native_packages
+    assert_equal(
+      [
+        {:metadata=>
+          {:name=>'curl', :version=>'7.27.0', :package_version=>'1'},
+          :source=>:native_installed,
+          :prefer=>true},
+        {:metadata=>
+          {:name=>'curl', :version=>'7.28.1'},
+          :source=>:native_available},
+      ],
+      @macosx.available_native_packages('curl'))
+    assert_equal(
+      [
+        {:metadata=>
+          {:name=>'ruby186', :version=>'1.8.6-p420'},
+          :source=>:native_available}
+      ],
+      @macosx.available_native_packages('ruby186'))
+    assert_equal [], @macosx.available_native_packages('bogus')
+  end
+  def test_native_pkg_to_install_string
+    assert_equal 'pkg', @macosx.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0', :package_version => '1'}})
+    assert_equal 'pkg', @macosx.native_pkg_to_install_string({:metadata => {:name => 'pkg', :version => '1.0'}})
+  end
+  def test_install_native_package
+    @macosx.expects(:system).with("#{@testport} install curl")
+    @macosx.install_native_package(
+      {:metadata => {:name => 'curl', :version => '7.28.1'}})
+  end
+  def test_upgrade_native_package
+    @macosx.expects(:system).with("#{@testport} upgrade curl")
+    @macosx.upgrade_native_package(
+      {:metadata => {:name => 'curl', :version => '7.28.1', :package_version => '7'}})
+  end
+  def test_os_version
+    fact = Facter::Util::Fact.new('macosx_productversion')
+    Facter.expects(:[]).with('macosx_productversion').returns(fact).at_least_once
+    fact.stubs(:value).returns('10.8.2')
+    assert_equal '10.8', Tpkg::OS::MacOSX.new.os_version
+  end
+end