require File.join(File.dirname(__FILE__), '..', 'test_helper')

class DVDTest < Test::Unit::TestCase
  setup do
    VirtualBox::Command.stubs(:execute)
  end

  context "destroying a dvd" do
    setup do
      @dvd = VirtualBox::DVD.new
      VirtualBox::DVD.reloaded!
    end

    should "return false if attempting to destroy an empty drive" do
      assert !VirtualBox::DVD.empty_drive.destroy
    end

    should "call vboxmanage to destroy it" do
      VirtualBox::Command.expects(:vboxmanage).with("closemedium", "dvd", @dvd.uuid, "--delete")
      assert @dvd.destroy
    end

    should "return false if destroy failed" do
      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
      assert !@dvd.destroy
    end

    should "raise an exception if failed and flag is set" do
      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
      assert_raises(VirtualBox::Exceptions::CommandFailedException) {
        @dvd.destroy(true)
      }
    end

    should "mark the global class for reloading" do
      VirtualBox::Global.expects(:reload!)
      assert @dvd.destroy
    end
  end

  context "empty drive" do
    should "return an empty drive instance by calling new with :empty_drive" do
      dvd = VirtualBox::DVD.new(:empty_drive)
      assert dvd.empty_drive?
    end

    should "call new with :empty_drive with empty_drive class method" do
      dvd = VirtualBox::DVD.empty_drive
      assert dvd.empty_drive?
    end
  end

  context "retrieving all dvds" do
    setup do
      @media = mock("media")
      @media.expects(:dvds).returns([])
      @global = mock("global")
      @global.expects(:media).returns(@media)
    end

    should "return an array of DVD objects" do
      VirtualBox::Global.expects(:global).returns(@global)
      result = VirtualBox::DVD.all
      assert result.is_a?(Array)
    end
  end

  context "retrieving all dvds by command" do
      setup do
        @expectations = {
          "d3252617-8176-4f8c-9d73-1c9c82b23960" => {
            :location   => "/Users/mitchellh/Downloads/jeos-8.04.3-jeos-i386.iso",
            :accessible => "yes"
          },

          "4a08f52c-bca3-4908-8da4-4f48aaa4ebba" => {
            :location   => "/Applications/VirtualBox.app/Contents/MacOS/VBoxGuestAdditions.iso",
            :accessible => "yes"
          }
        }

        @valid = <<-valid
UUID:       d3252617-8176-4f8c-9d73-1c9c82b23960
Path:       /Users/mitchellh/Downloads/jeos-8.04.3-jeos-i386.iso
Accessible: yes

UUID:       4a08f52c-bca3-4908-8da4-4f48aaa4ebba
Path:       /Applications/VirtualBox.app/Contents/MacOS/VBoxGuestAdditions.iso
Accessible: yes
Usage:      TestJeOS (UUID: 3d0f87b4-50f7-4fc5-ad89-93375b1b32a3)
valid

        VirtualBox::Command.expects(:vboxmanage).with("list", "dvds").returns(@valid).once
      end

      should "return an array of DVD objects" do
        result = VirtualBox::DVD.all_from_command
        assert result.is_a?(Array)
        assert_equal @expectations.length, result.length

        result.each { |v| assert v.is_a?(VirtualBox::DVD) }
      end

      should "return the proper results" do
        result = VirtualBox::DVD.all_from_command
        assert result.is_a?(Array)
        assert_equal @expectations.length, result.length

        result.each do |image|
          expected_image = @expectations[image.uuid]
          assert expected_image

          expected_image.each do |k,v|
            assert_equal v, image.read_attribute(k)
          end
        end
      end
    end
end