microwave 0.1006.33 → 1.0.0

data/spec/unit/provider/package/dpkg_spec.rb

@@ -0,0 +1,216 @@
+#
+# Author:: Bryan McLellan (btm@loftninjas.org)
+# Copyright:: Copyright (c) 2009 Bryan McLellan
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'spec_helper'
+
+describe Chef::Provider::Package::Dpkg do
+  before(:each) do
+    @node = Chef::Node.new
+    @events = Chef::EventDispatch::Dispatcher.new
+    @run_context = Chef::RunContext.new(@node, {}, @events)
+    @new_resource = Chef::Resource::Package.new("wget")
+    @new_resource.source "/tmp/wget_1.11.4-1ubuntu1_amd64.deb"
+
+    @provider = Chef::Provider::Package::Dpkg.new(@new_resource, @run_context)
+
+    @stdin = StringIO.new
+    @stdout = StringIO.new
+    @status = mock("Status", :exitstatus => 0)
+    @stderr = StringIO.new
+    @pid = mock("PID")
+    @provider.stub!(:popen4).and_return(@status)
+
+    ::File.stub!(:exists?).and_return(true)
+  end
+
+  describe "when loading the current resource state" do
+
+    it "should create a current resource with the name of the new_resource" do
+      @provider.load_current_resource
+      @provider.current_resource.package_name.should == "wget"
+    end
+
+    it "should raise an exception if a source is supplied but not found" do
+      @provider.load_current_resource
+      @provider.define_resource_requirements
+      ::File.stub!(:exists?).and_return(false)
+      lambda { @provider.run_action(:install) }.should raise_error(Chef::Exceptions::Package)
+    end
+
+    describe 'gets the source package version from dpkg-deb' do
+      def check_version(version)
+        @stdout = StringIO.new("wget\t#{version}")
+        @provider.stub!(:popen4).with("dpkg-deb -W #{@new_resource.source}").and_yield(@pid, @stdin, @stdout, @stderr).and_return(@status)
+        @provider.load_current_resource
+        @provider.current_resource.package_name.should == "wget"
+        @new_resource.version.should == version
+      end
+      
+      it 'if short version provided' do
+        check_version('1.11.4')
+      end
+      
+      it 'if extended version provided' do
+        check_version('1.11.4-1ubuntu1')
+      end
+      
+      it 'if distro-specific version provided' do
+        check_version('1.11.4-1ubuntu1~lucid')
+      end
+    end
+
+    it "gets the source package name from dpkg-deb correctly when the package name has `-', `+' or `.' characters" do
+      @stdout = StringIO.new("f.o.o-pkg++2\t1.11.4-1ubuntu1")
+      @provider.stub!(:popen4).and_yield(@pid, @stdin, @stdout, @stderr).and_return(@status)
+      @provider.load_current_resource
+      @provider.current_resource.package_name.should == "f.o.o-pkg++2"
+    end
+
+    it "should raise an exception if the source is not set but we are installing" do
+      @new_resource = Chef::Resource::Package.new("wget")
+      @provider.new_resource = @new_resource
+      @provider.define_resource_requirements
+      @provider.load_current_resource
+      lambda { @provider.run_action(:install)}.should raise_error(Chef::Exceptions::Package)
+    end
+
+    it "should return the current version installed if found by dpkg" do
+      @stdout = StringIO.new(<<-DPKG_S)
+Package: wget
+Status: install ok installed
+Priority: important
+Section: web
+Installed-Size: 1944
+Maintainer: Ubuntu Core developers <ubuntu-devel-discuss@lists.ubuntu.com>
+Architecture: amd64
+Version: 1.11.4-1ubuntu1
+Config-Version: 1.11.4-1ubuntu1
+Depends: libc6 (>= 2.8~20080505), libssl0.9.8 (>= 0.9.8f-5)
+Conflicts: wget-ssl
+DPKG_S
+      @provider.stub!(:popen4).with("dpkg -s wget").and_yield(@pid, @stdin, @stdout, @stderr).and_return(@status)
+
+      @provider.load_current_resource
+      @provider.current_resource.version.should == "1.11.4-1ubuntu1"
+    end
+
+    it "should raise an exception if dpkg fails to run" do
+      @status = mock("Status", :exitstatus => -1)
+      @provider.stub!(:popen4).and_return(@status)
+      lambda { @provider.load_current_resource }.should raise_error(Chef::Exceptions::Package)
+    end
+  end
+
+  describe Chef::Provider::Package::Dpkg, "install and upgrade" do
+    it "should run dpkg -i with the package source" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -i /tmp/wget_1.11.4-1ubuntu1_amd64.deb",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @provider.install_package("wget", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -i if the package is a path and the source is nil" do
+      @new_resource = Chef::Resource::Package.new("/tmp/wget_1.11.4-1ubuntu1_amd64.deb")
+      @provider = Chef::Provider::Package::Dpkg.new(@new_resource, @run_context)
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -i /tmp/wget_1.11.4-1ubuntu1_amd64.deb",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @provider.install_package("/tmp/wget_1.11.4-1ubuntu1_amd64.deb", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -i if the package is a path and the source is nil for an upgrade" do
+      @new_resource = Chef::Resource::Package.new("/tmp/wget_1.11.4-1ubuntu1_amd64.deb")
+      @provider = Chef::Provider::Package::Dpkg.new(@new_resource, @run_context)
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -i /tmp/wget_1.11.4-1ubuntu1_amd64.deb",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @provider.upgrade_package("/tmp/wget_1.11.4-1ubuntu1_amd64.deb", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -i with the package source and options if specified" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -i --force-yes /tmp/wget_1.11.4-1ubuntu1_amd64.deb",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @new_resource.stub!(:options).and_return("--force-yes")
+
+      @provider.install_package("wget", "1.11.4-1ubuntu1")
+    end
+    it "should upgrade by running install_package" do
+      @provider.should_receive(:install_package).with("wget", "1.11.4-1ubuntu1")
+      @provider.upgrade_package("wget", "1.11.4-1ubuntu1")
+    end
+  end
+
+  describe Chef::Provider::Package::Dpkg, "remove and purge" do
+    it "should run dpkg -r to remove the package" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -r wget",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @provider.remove_package("wget", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -r to remove the package with options if specified" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -r --force-yes wget",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @new_resource.stub!(:options).and_return("--force-yes")
+
+      @provider.remove_package("wget", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -P to purge the package" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -P wget",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @provider.purge_package("wget", "1.11.4-1ubuntu1")
+    end
+
+    it "should run dpkg -P to purge the package with options if specified" do
+      @provider.should_receive(:run_command_with_systems_locale).with({
+        :command => "dpkg -P --force-yes wget",
+        :environment => {
+          "DEBIAN_FRONTEND" => "noninteractive"
+        }
+      })
+      @new_resource.stub!(:options).and_return("--force-yes")
+
+      @provider.purge_package("wget", "1.11.4-1ubuntu1")
+    end
+  end
+end

data/spec/unit/provider/package/easy_install_spec.rb

@@ -0,0 +1,112 @@
+#
+# Author:: Joe Williams (<joe@joetify.com>)
+# Copyright:: Copyright (c) 2009 Joe Williams
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'spec_helper'
+
+describe Chef::Provider::Package::EasyInstall do
+  before(:each) do
+    @node = Chef::Node.new
+    @events = Chef::EventDispatch::Dispatcher.new
+    @run_context = Chef::RunContext.new(@node, {}, @events)
+    @new_resource = Chef::Resource::EasyInstallPackage.new('boto')
+    @new_resource.version('1.8d')
+
+    @current_resource = Chef::Resource::EasyInstallPackage.new('boto')
+    @current_resource.version('1.8d')
+
+    @provider = Chef::Provider::Package::EasyInstall.new(@new_resource, @run_context)
+    Chef::Resource::Package.stub!(:new).and_return(@current_resource)
+
+    @stdin = StringIO.new
+    @stdout = StringIO.new
+    @status = mock("Status", :exitstatus => 0)
+    @stderr = StringIO.new
+    @pid = 2342
+    @provider.stub!(:popen4).and_return(@status)
+  end
+
+  describe "easy_install_binary_path" do
+    it "should return a Chef::Provider::EasyInstall object" do
+      provider = Chef::Provider::Package::EasyInstall.new(@node, @new_resource)
+      provider.should be_a_kind_of(Chef::Provider::Package::EasyInstall)
+    end
+
+    it "should set the current resources package name to the new resources package name" do
+      $stdout.stub!(:write)
+      @current_resource.should_receive(:package_name).with(@new_resource.package_name)
+      @provider.load_current_resource
+    end
+
+    it "should return a relative path to easy_install if no easy_install_binary is given" do
+      @provider.easy_install_binary_path.should eql("easy_install")
+    end
+
+    it "should return a specific path to easy_install if a easy_install_binary is given" do
+      @new_resource.should_receive(:easy_install_binary).and_return("/opt/local/bin/custom/easy_install")
+      @provider.easy_install_binary_path.should eql("/opt/local/bin/custom/easy_install")
+    end
+
+  end
+
+  describe "actions_on_package" do
+    it "should run easy_install with the package name and version" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install \"boto==1.8d\""
+      })
+      @provider.install_package("boto", "1.8d")
+    end
+
+    it "should run easy_install with the package name and version and specified options" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install --always-unzip \"boto==1.8d\""
+      })
+      @new_resource.stub!(:options).and_return("--always-unzip")
+      @provider.install_package("boto", "1.8d")
+    end
+
+    it "should run easy_install with the package name and version" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install \"boto==1.8d\""
+      })
+      @provider.upgrade_package("boto", "1.8d")
+    end
+
+    it "should run easy_install -m with the package name and version" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install -m boto"
+      })
+      @provider.remove_package("boto", "1.8d")
+    end
+
+    it "should run easy_install -m with the package name and version and specified options" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install -x -m boto"
+      })
+      @new_resource.stub!(:options).and_return("-x")
+      @provider.remove_package("boto", "1.8d")
+    end
+
+    it "should run easy_install -m with the package name and version" do
+      @provider.should_receive(:run_command).with({
+        :command => "easy_install -m boto"
+      })
+      @provider.purge_package("boto", "1.8d")
+    end
+
+  end
+end

data/spec/unit/provider/package/freebsd_spec.rb

@@ -0,0 +1,259 @@
+#
+# Authors:: Bryan McLellan (btm@loftninjas.org)
+#           Matthew Landauer (matthew@openaustralia.org)
+# Copyright:: Copyright (c) 2009 Bryan McLellan, Matthew Landauer
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'spec_helper'
+require 'ostruct'
+
+describe Chef::Provider::Package::Freebsd, "load_current_resource" do
+  before(:each) do
+    @node = Chef::Node.new
+    @events = Chef::EventDispatch::Dispatcher.new
+    @run_context = Chef::RunContext.new(@node, {}, @events)
+    @new_resource     = Chef::Resource::Package.new("zsh")
+    @current_resource = Chef::Resource::Package.new("zsh")
+
+    @provider = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context)
+    @provider.current_resource = @current_resource
+    ::File.stub!(:exist?).with('/usr/ports/Makefile').and_return(false)
+  end
+
+  describe "when determining the current package state" do
+    before do
+      @provider.stub!(:ports_candidate_version).and_return("4.3.6")
+    end
+
+    it "should create a current resource with the name of the new_resource" do
+      current_resource = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context).current_resource
+      current_resource.name.should == "zsh"
+    end
+
+    it "should return a version if the package is installed" do
+      @provider.should_receive(:current_installed_version).and_return("4.3.6_7")
+      @provider.load_current_resource
+      @current_resource.version.should == "4.3.6_7"
+    end
+
+    it "should return nil if the package is not installed" do
+      @provider.should_receive(:current_installed_version).and_return(nil)
+      @provider.load_current_resource
+      @current_resource.version.should be_nil
+    end
+
+    it "should return a candidate version if it exists" do
+      @provider.should_receive(:current_installed_version).and_return(nil)
+      @provider.load_current_resource
+      @provider.candidate_version.should eql("4.3.6")
+    end
+  end
+
+  describe "when querying for package state and attributes" do
+    before do
+      #@new_resource = Chef::Resource::Package.new("zsh")
+
+      #@provider = Chef::Provider::Package::Freebsd.new(@node, @new_resource)
+
+      #@status = mock("Status", :exitstatus => 0)
+      #@stdin = mock("STDIN", :null_object => true)
+      #@stdout = mock("STDOUT", :null_object => true)
+      #@stderr = mock("STDERR", :null_object => true)
+      #@pid = mock("PID", :null_object => true)
+    end
+
+    it "should return the version number when it is installed" do
+      pkg_info = OpenStruct.new(:stdout => "zsh-4.3.6_7")
+      @provider.should_receive(:shell_out!).with('pkg_info -E "zsh*"', :env => nil, :returns => [0,1]).and_return(pkg_info)
+      #@provider.should_receive(:popen4).with('pkg_info -E "zsh*"').and_yield(@pid, @stdin, ["zsh-4.3.6_7"], @stderr).and_return(@status)
+      @provider.stub!(:package_name).and_return("zsh")
+      @provider.current_installed_version.should == "4.3.6_7"
+    end
+
+    it "does not set the current version number when the package is not installed" do
+      pkg_info = OpenStruct.new(:stdout => "")
+      @provider.should_receive(:shell_out!).with('pkg_info -E "zsh*"', :env => nil, :returns => [0,1]).and_return(pkg_info)
+      @provider.stub!(:package_name).and_return("zsh")
+      @provider.current_installed_version.should be_nil
+    end
+
+    it "should return the port path for a valid port name" do
+      whereis = OpenStruct.new(:stdout => "zsh: /usr/ports/shells/zsh")
+      @provider.should_receive(:shell_out!).with("whereis -s zsh", :env => nil).and_return(whereis)
+      #@provider.should_receive(:popen4).with("whereis -s zsh").and_yield(@pid, @stdin, ["zsh: /usr/ports/shells/zsh"], @stderr).and_return(@status)
+      @provider.stub!(:port_name).and_return("zsh")
+      @provider.port_path.should == "/usr/ports/shells/zsh"
+    end
+
+    # Not happy with the form of these tests as they are far too closely tied to the implementation and so very fragile.
+    it "should return the ports candidate version when given a valid port path" do
+      @provider.stub!(:port_path).and_return("/usr/ports/shells/zsh")
+      make_v = OpenStruct.new(:stdout => "4.3.6\n")
+      @provider.should_receive(:shell_out!).with("make -V PORTVERSION", {:cwd=>"/usr/ports/shells/zsh", :returns=>[0, 1], :env=>nil}).and_return(make_v)
+      @provider.ports_candidate_version.should == "4.3.6"
+    end
+
+    it "should figure out the package name when we have ports" do
+      ::File.stub!(:exist?).with('/usr/ports/Makefile').and_return(true)
+      @provider.stub!(:port_path).and_return("/usr/ports/shells/zsh")
+      make_v = OpenStruct.new(:stdout => "zsh-4.3.6_7\n")
+      @provider.should_receive(:shell_out!).with("make -V PKGNAME", {:cwd=>"/usr/ports/shells/zsh", :env=>nil, :returns=>[0, 1]}).and_return(make_v)
+      #@provider.should_receive(:ports_makefile_variable_value).with("PKGNAME").and_return("zsh-4.3.6_7")
+      @provider.package_name.should == "zsh"
+    end
+  end
+
+  describe Chef::Provider::Package::Freebsd, "install_package" do
+    before(:each) do
+      @cmd_result = OpenStruct.new(:status => true)
+
+      @provider.current_resource = @current_resource
+      @provider.stub!(:package_name).and_return("zsh")
+      @provider.stub!(:latest_link_name).and_return("zsh")
+      @provider.stub!(:port_path).and_return("/usr/ports/shells/zsh")
+    end
+
+    it "should run pkg_add -r with the package name" do
+      @provider.should_receive(:shell_out!).with("pkg_add -r zsh", :env => nil).and_return(@cmd_result)
+      @provider.install_package("zsh", "4.3.6_7")
+    end
+
+    it "should run make install when installing from ports" do
+      @new_resource.stub!(:source).and_return("ports")
+      @provider.should_not_receive(:shell_out!).with("make -DBATCH -f /usr/ports/shells/zsh/Makefile install", :timeout => 1200, :env=>nil)
+      @provider.should_receive(:shell_out!).with("make -DBATCH install", :timeout => 1200, :env=>nil, :cwd => @provider.port_path).and_return(@cmd_result)
+      @provider.install_package("zsh", "4.3.6_7")
+    end
+  end
+
+  describe Chef::Provider::Package::Freebsd, "port path" do
+    before do
+      #@node = Chef::Node.new
+      @new_resource = Chef::Resource::Package.new("zsh")
+      @new_resource.cookbook_name = "adventureclub"
+      @provider = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context)
+    end
+
+    it "should figure out the port path from the package_name using whereis" do
+      whereis = OpenStruct.new(:stdout => "zsh: /usr/ports/shells/zsh")
+      @provider.should_receive(:shell_out!).with("whereis -s zsh", :env=>nil).and_return(whereis)
+      @provider.port_path.should == "/usr/ports/shells/zsh"
+    end
+
+    it "should use the package_name as the port path when it starts with /" do
+      new_resource = Chef::Resource::Package.new("/usr/ports/www/wordpress")
+      provider = Chef::Provider::Package::Freebsd.new(new_resource, @run_context)
+      provider.should_not_receive(:popen4)
+      provider.port_path.should == "/usr/ports/www/wordpress"
+    end
+
+    it "should use the package_name as a relative path from /usr/ports when it contains / but doesn't start with it" do
+      # @new_resource = mock( "Chef::Resource::Package",
+      #                       :package_name => "www/wordpress",
+      #                       :cookbook_name => "xenoparadox")
+      new_resource = Chef::Resource::Package.new("www/wordpress")
+      provider = Chef::Provider::Package::Freebsd.new(new_resource, @run_context)
+      provider.should_not_receive(:popen4)
+      provider.port_path.should == "/usr/ports/www/wordpress"
+    end
+  end
+
+  describe Chef::Provider::Package::Freebsd, "ruby-iconv (package with a dash in the name)" do
+    before(:each) do
+      @new_resource     = Chef::Resource::Package.new("ruby-iconv")
+      @current_resource = Chef::Resource::Package.new("ruby-iconv")
+      @provider = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context)
+      @provider.current_resource = @current_resource
+      @provider.stub!(:port_path).and_return("/usr/ports/converters/ruby-iconv")
+      @provider.stub!(:package_name).and_return("ruby18-iconv")
+      @provider.stub!(:latest_link_name).and_return("ruby18-iconv")
+
+      @install_result = OpenStruct.new(:status => true)
+    end
+
+    it "should run pkg_add -r with the package name" do
+      @provider.should_receive(:shell_out!).with("pkg_add -r ruby18-iconv", :env => nil).and_return(@install_result)
+      @provider.install_package("ruby-iconv", "1.0")
+    end
+
+    it "should run make install when installing from ports" do
+      @new_resource.stub!(:source).and_return("ports")
+      @provider.should_receive(:shell_out!).with("make -DBATCH install", :timeout => 1200, :env=>nil, :cwd => @provider.port_path).and_return(@install_result)
+      @provider.install_package("ruby-iconv", "1.0")
+    end
+  end
+
+  describe Chef::Provider::Package::Freebsd, "remove_package" do
+    before(:each) do
+      @pkg_delete = OpenStruct.new(:status => true)
+      @new_resource.version "4.3.6_7"
+      @current_resource.version "4.3.6_7"
+      @provider.current_resource = @current_resource
+      @provider.stub!(:package_name).and_return("zsh")
+    end
+
+    it "should run pkg_delete with the package name and version" do
+      @provider.should_receive(:shell_out!).with("pkg_delete zsh-4.3.6_7", :env => nil).and_return(@pkg_delete)
+      @provider.remove_package("zsh", "4.3.6_7")
+    end
+  end
+
+  # A couple of examples to show up the difficulty of determining the command to install the binary package given the port:
+  # PORT DIRECTORY                        INSTALLED PACKAGE NAME  COMMAND TO INSTALL PACKAGE
+  # /usr/ports/lang/perl5.8               perl-5.8.8_1            pkg_add -r perl
+  # /usr/ports/databases/mysql50-server   mysql-server-5.0.45_1   pkg_add -r mysql50-server
+  #
+  # So, in one case it appears the command to install the package can be derived from the name of the port directory and in the
+  # other case it appears the command can be derived from the package name. Very confusing!
+  # Well, luckily, after much poking around, I discovered that the two can be disambiguated through the use of the LATEST_LINK
+  # variable which is set by the ports Makefile
+  #
+  # PORT DIRECTORY                        LATEST_LINK     INSTALLED PACKAGE NAME  COMMAND TO INSTALL PACKAGE
+  # /usr/ports/lang/perl5.8               perl            perl-5.8.8_1            pkg_add -r perl
+  # /usr/ports/databases/mysql50-server   mysql50-server  mysql-server-5.0.45_1   pkg_add -r mysql50-server
+  #
+  # The variable LATEST_LINK is named that way because the directory that "pkg_add -r" downloads from is called "Latest" and
+  # contains the "latest" versions of package as symbolic links to the files in the "All" directory.
+
+  describe Chef::Provider::Package::Freebsd, "install_package latest link fixes" do
+    it "should install the perl binary package with the correct name" do
+      @new_resource = Chef::Resource::Package.new("perl5.8")
+      @current_resource = Chef::Resource::Package.new("perl5.8")
+      @provider = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context)
+      @provider.current_resource = @current_resource
+      @provider.stub!(:package_name).and_return("perl")
+      @provider.stub!(:latest_link_name).and_return("perl")
+
+      cmd = OpenStruct.new(:status => true)
+      @provider.should_receive(:shell_out!).with("pkg_add -r perl", :env => nil).and_return(cmd)
+      @provider.install_package("perl5.8", "5.8.8_1")
+    end
+
+    it "should install the mysql50-server binary package with the correct name" do
+
+      @new_resource     = Chef::Resource::Package.new("mysql50-server")
+      @current_resource = Chef::Resource::Package.new("mysql50-server")
+      @provider = Chef::Provider::Package::Freebsd.new(@new_resource, @run_context)
+      @provider.current_resource = @current_resource
+      @provider.stub!(:package_name).and_return("mysql-server")
+      @provider.stub!(:latest_link_name).and_return("mysql50-server")
+
+      cmd = OpenStruct.new(:status => true)
+      @provider.should_receive(:shell_out!).with("pkg_add -r mysql50-server", :env=>nil).and_return(cmd)
+      @provider.install_package("mysql50-server", "5.0.45_1")
+    end
+  end
+end