bbrowning-virtualbox 0.7.6.dev

data/test/virtualbox/dvd_test.rb

@@ -0,0 +1,28 @@
+require File.expand_path("../../test_helper", __FILE__)
+
+class DVDTest < Test::Unit::TestCase
+  setup do
+    @klass = VirtualBox::DVD
+  end
+
+  context "device type" do
+    should "be :dvd" do
+      assert_equal :dvd, @klass.device_type
+    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
+end

data/test/virtualbox/ext/byte_normalizer_test.rb

@@ -0,0 +1,34 @@
+require File.expand_path("../../../test_helper", __FILE__)
+require 'virtualbox/ext/byte_normalizer'
+
+class ByteNormalizerTest < Test::Unit::TestCase
+  class A
+    include VirtualBox::ByteNormalizer
+  end
+
+  setup do
+    @instance = A.new
+  end
+
+  should "convert megabytes to bytes" do
+    expected = {
+      1 => 1_048_576,
+      345.4 => 362_178_150.4
+    }
+
+    expected.each do |input, out|
+      assert_equal out, @instance.megabytes_to_bytes(input)
+    end
+  end
+
+  should "convert bytes to megabytes" do
+    expected = {
+      1_048_576 => 1,
+      362_178_150.4 => 345.4
+    }
+
+    expected.each do |input, out|
+      assert_equal out, @instance.bytes_to_megabytes(input)
+    end
+  end
+end

data/test/virtualbox/ext/platform_test.rb

@@ -0,0 +1,50 @@
+require File.expand_path("../../../test_helper", __FILE__)
+require 'virtualbox/ext/platform'
+
+class PlatformTest < Test::Unit::TestCase
+  context "mac" do
+    should "return true if it contains darwin" do
+      success = ["i386-darwin", "i686-darwin10", "imadarwin"]
+      success.each do |item|
+        VirtualBox::Platform.stubs(:platform).returns(item)
+        assert VirtualBox::Platform.mac?
+      end
+    end
+  end
+
+  context "windows" do
+    should "return true if it contains mswin" do
+      success = ["i386-mswin32", "i686-mswin64", "imswin"]
+      success.each do |item|
+        VirtualBox::Platform.stubs(:platform).returns(item)
+        assert VirtualBox::Platform.windows?
+      end
+    end
+
+    should "return true if it contains mingw" do
+      success = ["i386-mingw32", "i686-mingw64", "mingw"]
+      success.each do |item|
+        VirtualBox::Platform.stubs(:platform).returns(item)
+        assert VirtualBox::Platform.windows?
+      end
+    end
+
+    should "return true if it contains cygwin" do
+      success = ["i386-cygwin", "i686-cygwin64", "cygwin"]
+      success.each do |item|
+        VirtualBox::Platform.stubs(:platform).returns(item)
+        assert VirtualBox::Platform.windows?
+      end
+    end
+  end
+
+  context "linux" do
+    should "return true if it contains linux" do
+      success = ["i386-linux", "i686-linux241", "linux"]
+      success.each do |item|
+        VirtualBox::Platform.stubs(:platform).returns(item)
+        assert VirtualBox::Platform.linux?
+      end
+    end
+  end
+end

data/test/virtualbox/ext/subclass_listing_test.rb

@@ -0,0 +1,25 @@
+require File.expand_path("../../../test_helper", __FILE__)
+require 'virtualbox/ext/subclass_listing'
+
+class SubclassListingTest < Test::Unit::TestCase
+  class A
+    include VirtualBox::SubclassListing
+  end
+  class B < A; end
+  class C < B; end
+  class D < A; end
+  class E
+    include VirtualBox::SubclassListing
+  end
+  class F < E; end
+
+  should "list subclasses, including sub-subclasses, etc" do
+    assert_equal [F], E.subclasses
+    assert_equal [C], B.subclasses
+    assert_equal [B, C, D], A.subclasses.sort_by { |c| c.name }
+  end
+
+  should "list direct subclasses if flag is set" do
+    assert_equal [B, D], A.subclasses(true).sort_by { |c| c.name }
+  end
+end

data/test/virtualbox/extra_data_test.rb

@@ -0,0 +1,155 @@
+require File.expand_path("../../test_helper", __FILE__)
+
+class ExtraDataTest < Test::Unit::TestCase
+  setup do
+    @parent = mock("parent")
+    @interface = mock("interface")
+    @ed = VirtualBox::ExtraData.new(@parent, @interface)
+    @ed["foo"] = "bar"
+    @ed.clear_dirty!
+  end
+
+  context "relationships" do
+    setup do
+      @caller = mock("caller")
+      @caller.stubs(:name).returns("foocaller")
+    end
+
+    context "populating" do
+      setup do
+        @interface = mock("interface")
+        @interface.stubs(:get_extra_data_keys).returns([])
+      end
+
+      should "return a ExtraData object" do
+        result = VirtualBox::ExtraData.populate_relationship(@caller, @interface)
+        assert result.is_a?(VirtualBox::ExtraData)
+      end
+
+      should "not be dirty" do
+        result = VirtualBox::ExtraData.populate_relationship(@caller, @interface)
+        assert !result.changed?
+      end
+
+      should "add the value of each key to the ED hash" do
+        expected_hash = { :a => 1, :b => 2, :c => 4 }
+        @interface.expects(:get_extra_data_keys).returns(expected_hash.keys)
+
+        expected_hash.each do |k, v|
+          @interface.expects(:get_extra_data).with(k).returns(v)
+        end
+
+        result = VirtualBox::ExtraData.populate_relationship(@caller, @interface)
+        assert_equal expected_hash.length, result.length
+        result.each do |k, v|
+          assert_equal expected_hash[k], v
+        end
+      end
+    end
+
+    context "saving" do
+      should "call save on the ExtraData object" do
+        object = mock("object")
+        object.expects(:save).once
+
+        VirtualBox::ExtraData.save_relationship(@caller, object)
+      end
+    end
+  end
+
+  context "setting dirty state" do
+    setup do
+      @ed = VirtualBox::ExtraData.new(@parent, @interface)
+    end
+
+    should "not be dirty initially" do
+      assert !@ed.changed?
+    end
+
+    should "be dirty when setting a value" do
+      @ed["foo"] = "bar"
+      assert @ed.changed?
+      assert @ed.changes.has_key?(:foo)
+    end
+  end
+
+  context "global extra data" do
+    setup do
+      global = mock("global")
+      global.expects(:extra_data).once.returns("foo")
+      VirtualBox::Global.expects(:global).returns(global)
+      @global = VirtualBox::ExtraData.global(true)
+    end
+
+    should "call the global extra data if it has never been loaded" do
+      assert_equal "foo", VirtualBox::ExtraData.global
+    end
+
+    should "return the same object if it exists for global data, rather than recreating it" do
+      VirtualBox::Global.expects(:global).never
+      assert_equal @global, VirtualBox::ExtraData.global
+    end
+
+    should "return a new object if reload is true" do
+      global = mock("global")
+      global.expects(:extra_data).once.returns("bar")
+      VirtualBox::Global.expects(:global).returns(global)
+      assert !@global.equal?(VirtualBox::ExtraData.global(true))
+    end
+  end
+
+  context "constructor" do
+    should "set the parent and interface with the given argument" do
+      ed = VirtualBox::ExtraData.new("JOEY", @interface)
+      assert_equal "JOEY", ed.parent
+      assert_equal @interface, ed.interface
+    end
+  end
+
+  context "saving extra data" do
+    setup do
+      @interface.stubs(:set_extra_data)
+    end
+
+    should "only save changed keys" do
+      @interface.expects(:set_extra_data).never
+      @interface.expects(:set_extra_data).with("bar", "baz").once
+
+      @ed["bar"] = "baz"
+      @ed.save
+    end
+
+    should "convert values to strings" do
+      @interface.expects(:set_extra_data).never
+      @interface.expects(:set_extra_data).with("bar", "7").once
+
+      @ed["bar"] = 7
+      @ed.save
+    end
+
+    should "clear the dirty status of keys" do
+      @ed["bar"] = "baz"
+      assert @ed.bar_changed?
+      @ed.save
+      assert !@ed.bar_changed?
+    end
+
+    should "remove nil keys from the hash" do
+      @ed["bar"] = "baz"
+      @ed.save
+      @ed["bar"] = nil
+      assert @ed.bar_changed?
+      @ed.save
+      assert !@ed.keys.include?("bar")
+    end
+  end
+
+  context "deleteting extra data" do
+    should "remove it from the interface and the hash" do
+      key = :foo
+      @interface.expects(:set_extra_data).with(key.to_s, nil).once
+      @ed.expects(:hash_delete).with(key.to_s)
+      @ed.delete(key)
+    end
+  end
+end

data/test/virtualbox/forwarded_port_test.rb

@@ -0,0 +1,286 @@
+require File.expand_path("../../test_helper", __FILE__)
+
+class ForwardedPortTest < Test::Unit::TestCase
+  setup do
+    @klass = VirtualBox::ForwardedPort
+
+    @nic = mock("nic")
+    @nic.stubs(:adapter_type).returns(:foo)
+    @nics = [@nic]
+
+    @caller = mock("caller")
+    @caller.stubs(:network_adapters).returns(@nics)
+
+    @interface = mock("interface")
+  end
+
+  context "validations" do
+    setup do
+      @collection = VirtualBox::Proxies::Collection.new(@caller)
+
+      @port = @klass.new
+      @port.name = "foo"
+      @port.guestport = "22"
+      @port.hostport = "2222"
+      @port.added_to_relationship(@collection)
+    end
+
+    should "be valid with all fields" do
+      assert @port.valid?
+    end
+
+    should "be invalid with no name" do
+      @port.name = nil
+      assert !@port.valid?
+    end
+
+    should "be invalid with no guest port" do
+      @port.guestport = nil
+      assert !@port.valid?
+    end
+
+    should "be invalid with no host port" do
+      @port.hostport = nil
+      assert !@port.valid?
+    end
+
+    should "be invalid if not in a relationship" do
+      @port.write_attribute(:parent, nil)
+      assert !@port.valid?
+    end
+  end
+
+  context "with an instance" do
+    setup do
+      @port = @klass.new({
+        :name => "foo",
+        :guestport => "22",
+        :hostport => "2222"
+      })
+
+      @collection = VirtualBox::Proxies::Collection.new(@caller)
+      @collection << @port
+
+      @port.clear_dirty!
+
+      @ed = mock("extradata")
+      @ed.stubs(:[]=)
+      @ed.stubs(:save)
+      @ed.stubs(:delete)
+      @caller.stubs(:extra_data).returns(@ed)
+    end
+
+    context "initializing a new record" do
+      setup do
+        @port = @klass.new
+      end
+
+      should "be a new record" do
+        assert @port.new_record?
+      end
+
+      should "not be dirty" do
+        assert !@port.changed?
+      end
+    end
+
+    context "device" do
+      setup do
+        @port.new_record!
+        @port.added_to_relationship(@collection)
+      end
+
+      should "return the value set if it was set" do
+        @port.device = "foo"
+        assert_equal "foo", @port.device
+      end
+
+      should "return the default if parent is nil" do
+        @port.expects(:parent).returns(nil)
+        assert_equal "pcnet", @port.device
+      end
+
+      should "return the default if the record is existing" do
+        @nic.expects(:adapter_type).never
+        @port.existing_record!
+        assert_equal "pcnet", @port.device
+      end
+
+      should "return pcnet if card is a Am79C970A type" do
+        @nic.expects(:adapter_type).returns(:Am79C970A)
+        assert_equal "pcnet", @port.device
+      end
+
+      should "return pcnet if card is a Am79C973 type" do
+        @nic.expects(:adapter_type).returns(:Am79C973)
+        assert_equal "pcnet", @port.device
+      end
+
+      should "return e1000 if card is a 82540EM type" do
+        @nic.expects(:adapter_type).returns(:I82540EM)
+        assert_equal "e1000", @port.device
+      end
+
+      should "return e1000 if card is a 82543GC type" do
+        @nic.expects(:adapter_type).returns(:I82543GC)
+        assert_equal "e1000", @port.device
+      end
+
+      should "return e1000 if card is a 82545EM type" do
+        @nic.expects(:adapter_type).returns(:I82545EM)
+        assert_equal "e1000", @port.device
+      end
+    end
+
+    context "saving" do
+      context "an existing record" do
+        setup do
+          @port.existing_record!
+        end
+
+        should "not do anything and return true if its unchanged" do
+          @caller.expects(:extra_data).never
+          assert @port.save
+        end
+
+        should "clear the dirty state after saving" do
+          @port.name = "diff"
+          @port.save
+          assert !@port.changed?
+        end
+
+        should "call destroy if the name changed" do
+          @port.name = "diff"
+          @port.expects(:destroy).once
+          @port.save
+        end
+
+        should "not call destroy if the name didn't change" do
+          assert !@port.name_changed?
+          @port.expects(:destroy).never
+          @port.save
+        end
+      end
+
+      context "a new record" do
+        setup do
+          @port.stubs(:valid?).returns(true)
+          @port.new_record!
+          assert @port.new_record?
+        end
+
+        should "no longer be a new record after saving" do
+          @port.save
+          assert !@port.new_record?
+        end
+
+        should "raise a ValidationFailedException if invalid and raise_errors is true" do
+          @port.expects(:valid?).returns(false)
+          assert_raises(VirtualBox::Exceptions::ValidationFailedException) {
+            @port.save
+          }
+        end
+
+        should "call save on the extra_data" do
+          @ed = mock("ed")
+          @ed.expects(:[]=).times(3)
+          @ed.expects(:save).once
+          @caller.expects(:extra_data).times(4).returns(@ed)
+          @port.save
+        end
+      end
+    end
+
+    context "key prefix" do
+      should "return a proper key prefix constructed with the attributes" do
+        assert_equal "VBoxInternal\/Devices\/#{@port.device}\/#{@port.instance}\/LUN#0\/Config\/#{@port.name}\/", @port.key_prefix
+      end
+
+      should "return with previous name if parameter is true" do
+        @port.name = "diff"
+        assert @port.name_changed?
+        assert_equal "VBoxInternal\/Devices\/#{@port.device}\/#{@port.instance}\/LUN#0\/Config\/#{@port.name_was}\/", @port.key_prefix(true)
+      end
+
+      should "not use previous name if parameter is true and name didn't change" do
+        assert !@port.name_changed?
+        assert_equal "VBoxInternal\/Devices\/#{@port.device}\/#{@port.instance}\/LUN#0\/Config\/#{@port.name}\/", @port.key_prefix(true)
+      end
+    end
+
+    context "destroying" do
+      setup do
+        @port.existing_record!
+      end
+
+      should "remove itself from it's collection" do
+        assert @collection.include?(@port)
+        @port.destroy
+        assert !@collection.include?(@port)
+      end
+
+      should "call delete on the extra data for each key" do
+        @ed = mock("ed")
+        @ed.expects(:delete).times(3)
+        @caller.expects(:extra_data).times(3).returns(@ed)
+        @port.destroy
+      end
+
+      should "do nothing if the record is new" do
+        @port.new_record!
+        @caller.expects(:extra_data).never
+        @port.destroy
+      end
+
+      should "be a new record after destroying" do
+        @port.destroy
+        assert @port.new_record?
+      end
+    end
+  end
+
+  context "relationships" do
+    context "saving" do
+      should "call #save on every object" do
+        objects = []
+        5.times do |i|
+          object = mock("object#{i}")
+          object.expects(:save).once
+          objects.push(object)
+        end
+
+        VirtualBox::ForwardedPort.save_relationship(@caller, objects)
+      end
+    end
+
+    context "populating" do
+      setup do
+        @caller.stubs(:extra_data).returns({
+          "invalid" => "7",
+          "VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/GuestPort" => "22",
+          "VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/HostPort" => "2222",
+          "VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/Protocol" => "TCP"
+        })
+
+        @objects = VirtualBox::ForwardedPort.populate_relationship(@caller, {})
+      end
+
+      should "return an array of ForwardedPorts" do
+        assert @objects.is_a?(VirtualBox::Proxies::Collection)
+        assert @objects.all? { |o| o.is_a?(VirtualBox::ForwardedPort) }
+      end
+
+      should "have the proper data" do
+        object = @objects.first
+        assert_equal "22", object.guestport
+        assert_equal "2222", object.hostport
+        assert_equal "TCP", object.protocol
+        assert_equal @objects, object.parent_collection
+      end
+
+      should "be existing records" do
+        assert !@objects.first.new_record?
+      end
+    end
+  end
+end