virtualbox 0.5.4 → 0.6.0

data/test/test_helper.rb

@@ -18,112 +18,4 @@ require File.join(File.dirname(__FILE__), '..', 'lib', 'virtualbox')
 
 # Data
 class Test::Unit::TestCase
-  def mock_xml_doc
-    Nokogiri::XML(mock_xml)
-  end
-
-  def mock_xml
-    <<-xml
-<?xml version="1.0"?>
-<VirtualBox xmlns="http://www.innotek.de/VirtualBox-settings" version="1.9-macosx">
-  <Machine uuid="{8710d3db-d96a-46ed-9004-59fa891fda90}" name="foo" OSType="Ubuntu" currentSnapshot="{f1e6edb3-6e12-4615-9642-a80a3a1ad115}" lastStateChange="2010-02-07T20:01:20Z">
-    <Description>This is a description</Description>
-    <ExtraData>
-      <ExtraDataItem name="GUI/AutoresizeGuest" value="on"/>
-      <ExtraDataItem name="GUI/Fullscreen" value="off"/>
-      <ExtraDataItem name="GUI/LastWindowPostion" value="1040,171,720,422"/>
-      <ExtraDataItem name="GUI/MiniToolBarAlignment" value="bottom"/>
-      <ExtraDataItem name="GUI/MiniToolBarAutoHide" value="on"/>
-      <ExtraDataItem name="GUI/SaveMountedAtRuntime" value="yes"/>
-      <ExtraDataItem name="GUI/Seamless" value="off"/>
-      <ExtraDataItem name="GUI/ShowMiniToolBar" value="yes"/>
-      <ExtraDataItem name="VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/GuestPort" value="23"/>
-      <ExtraDataItem name="VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/HostPort" value="2222"/>
-      <ExtraDataItem name="VBoxInternal/Devices/pcnet/0/LUN#0/Config/guestssh/Protocol" value="TCP"/>
-    </ExtraData>
-    <Hardware version="2">
-      <CPU count="1">
-        <HardwareVirtEx enabled="true" exclusive="false"/>
-        <HardwareVirtExNestedPaging enabled="false"/>
-        <HardwareVirtExVPID enabled="false"/>
-        <PAE enabled="true"/>
-      </CPU>
-      <Memory RAMSize="360"/>
-      <Boot>
-        <Order position="1" device="Floppy"/>
-        <Order position="2" device="DVD"/>
-        <Order position="3" device="HardDisk"/>
-        <Order position="4" device="None"/>
-      </Boot>
-      <Display VRAMSize="12" monitorCount="1" accelerate3D="false" accelerate2DVideo="false"/>
-      <RemoteDisplay enabled="false" port="3389" authType="Null" authTimeout="5000"/>
-      <BIOS>
-        <ACPI enabled="true"/>
-        <IOAPIC enabled="false"/>
-        <Logo fadeIn="true" fadeOut="true" displayTime="0"/>
-        <BootMenu mode="MessageAndMenu"/>
-        <TimeOffset value="0"/>
-        <PXEDebug enabled="false"/>
-      </BIOS>
-      <USBController enabled="true" enabledEhci="true">
-        <DeviceFilter name="Apple, Inc Apple Keyboard [0069]" active="true" vendorId="05ac" productId="0220" revision="0069" manufacturer="Apple, Inc" product="Apple Keyboard" remote="no"/>
-        <DeviceFilter name="Micron Built-in iSight [0189]" active="false" vendorId="05ac" productId="8501" revision="0189" manufacturer="Micron" product="Built-in iSight" remote="no"/>
-      </USBController>
-      <Network>
-        <Adapter slot="0" enabled="true" MACAddress="0800279C2E41" cable="true" speed="0" type="Am79C973">
-          <NAT/>
-        </Adapter>
-        <Adapter slot="1" enabled="false" MACAddress="0800277D1707" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="2" enabled="false" MACAddress="080027FB5229" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="3" enabled="false" MACAddress="080027DE7343" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="4" enabled="false" MACAddress="0800277989CB" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="5" enabled="false" MACAddress="08002768E43B" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="6" enabled="false" MACAddress="080027903DF3" cable="true" speed="0" type="Am79C973"/>
-        <Adapter slot="7" enabled="false" MACAddress="0800276A0A7D" cable="true" speed="0" type="Am79C973"/>
-      </Network>
-      <UART>
-        <Port slot="0" enabled="false" IOBase="0x3f8" IRQ="4" hostMode="Disconnected"/>
-        <Port slot="1" enabled="false" IOBase="0x3f8" IRQ="4" hostMode="Disconnected"/>
-      </UART>
-      <LPT>
-        <Port slot="0" enabled="false" IOBase="0x378" IRQ="4"/>
-        <Port slot="1" enabled="false" IOBase="0x378" IRQ="4"/>
-      </LPT>
-      <AudioAdapter controller="AC97" driver="CoreAudio" enabled="false"/>
-      <SharedFolders>
-        <SharedFolder name="foo" hostPath="/foo" writable="true"/>
-        <SharedFolder name="bar" hostPath="/bar" writable="true"/>
-      </SharedFolders>
-      <Clipboard mode="Bidirectional"/>
-      <Guest memoryBalloonSize="0" statisticsUpdateInterval="0"/>
-      <GuestProperties>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/Product" value="Linux" timestamp="1265440664974640000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/Release" value="2.6.24-26-virtual" timestamp="1265440664974987000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/Version" value="#1 SMP Tue Dec 1 20:00:30 UTC 2009" timestamp="1265440664975592000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/ServicePack" value="" timestamp="1265440664976342000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestAdd/Revision" value="3.1.2" timestamp="1265440664977228000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestAdd/Version" value="56127" timestamp="1265440664977917000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/LoggedInUsers" value="1" timestamp="1265441395765168000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/Net/Count" value="1" timestamp="1265441395765770000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/Net/0/V4/IP" value="10.0.2.15" timestamp="1265441395765987000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/Net/0/V4/Broadcast" value="10.0.2.255" timestamp="1265441395766412000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/Net/0/V4/Netmask" value="255.255.255.0" timestamp="1265441395766827000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/Net/0/Status" value="Up" timestamp="1265441395767109000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/NoLoggedInUsers" value="false" timestamp="1265440815142014000" flags=""/>
-        <GuestProperty name="/VirtualBox/HostInfo/GUI/LanguageID" value="en_US" timestamp="1265440628402728000" flags=""/>
-        <GuestProperty name="/VirtualBox/GuestInfo/OS/LoggedInUsersList" value="hobo" timestamp="1265441395763755000" flags=""/>
-      </GuestProperties>
-    </Hardware>
-    <StorageControllers>
-      <StorageController name="foo" type="PIIX4" PortCount="2">
-        <AttachedDevice type="HardDisk" port="0" device="0">
-          <Image uuid="{2c16dd48-4cf1-497e-98fa-84ed55cfe71f}"/>
-        </AttachedDevice>
-        <AttachedDevice type="DVD" port="1" device="0"/>
-      </StorageController>
-    </StorageControllers>
-  </Machine>
-</VirtualBox>
-xml
-  end
 end

data/test/virtualbox/abstract_model/attributable_test.rb

@@ -164,7 +164,7 @@ class AttributableTest < Test::Unit::TestCase
       @model = AttributeModel.new
       @model.populate_attributes({
         :foo => "foo",
-        :bar => "bar"
+        :bar => false
       })
 
       @checkstring = "HEY"
@@ -189,6 +189,12 @@ class AttributableTest < Test::Unit::TestCase
       }
     end
 
+    should "understand false values" do
+      assert_nothing_raised {
+        assert_equal false, @model.bar
+      }
+    end
+
     should "raise an error if attempting to write an undefined attribute" do
       assert_raises(NoMethodError) { @model.baz = @check_string }
     end

data/test/virtualbox/abstract_model/dirty_test.rb

@@ -10,7 +10,7 @@ class DirtyTest < Test::Unit::TestCase
     end
 
     def foo=(value)
-      set_dirty!(:foo, @foo, value)
+      set_dirty!("foo", @foo, value)
       @foo = value
     end
 

data/test/virtualbox/abstract_model/interface_attributes_test.rb

@@ -0,0 +1,169 @@
+require File.join(File.dirname(__FILE__), '..', '..', 'test_helper')
+
+class InterfaceAttributesTest < Test::Unit::TestCase
+  class EmptyInterfaceAttributeModel
+    include VirtualBox::AbstractModel::Attributable
+    include VirtualBox::AbstractModel::InterfaceAttributes
+  end
+
+  class InterfaceAttributeModel < EmptyInterfaceAttributeModel
+    attribute :foo
+    attribute :foo2, :property_getter => :get_foo, :property_setter => :set_foo
+    attribute :foo3, :property => :grab_foo3, :readonly => true
+    attribute :foo4, :property => :put_foo4
+    attribute :bar, :property => false
+  end
+
+  context "converting spec to a proc" do
+    setup do
+      @instance = EmptyInterfaceAttributeModel.new
+      @interface = mock("interface")
+    end
+
+    context "symbols" do
+      should "convert to a proc which calls the symbol on the interface" do
+        result = mock("result")
+        proc = @instance.spec_to_proc(:foo)
+        @interface.expects(:foo).once.returns(result)
+        assert_equal result, proc.call(@interface)
+      end
+
+      should "forward all parameters" do
+        result = mock("result")
+        proc = @instance.spec_to_proc(:foo)
+        @interface.expects(:foo).with(1, 2, 3).once.returns(result)
+        assert_equal result, proc.call(@interface, 1, 2, 3)
+      end
+    end
+
+    context "procs" do
+      should "leave proc as is" do
+        result = mock("result")
+        proc = Proc.new { |m| result }
+        converted = @instance.spec_to_proc(proc)
+        assert_equal proc, converted
+        assert_equal result, converted.call(@interface)
+      end
+    end
+  end
+
+  context "loading a single interface attribute" do
+    setup do
+      @instance = InterfaceAttributeModel.new
+      @interface = mock("interface")
+      @interface.stubs(:foo).returns("foo")
+    end
+
+    should "return immediately if not a valid attribute" do
+      @proc.expects(:call).never
+      @instance.load_interface_attribute(:baz, @interface)
+    end
+
+    should "return immediately if is marked as a non-property" do
+      @proc.expects(:call).never
+      @instance.load_interface_attribute(:bar, @interface)
+    end
+
+    should "use the getter specified if exists" do
+      key = :foo2
+      @interface.expects(:get_foo).returns(:bar)
+      @instance.expects(:write_attribute).with(key, :bar)
+      @instance.load_interface_attribute(key, @interface)
+    end
+
+    should "use the property specified first" do
+      key = :foo3
+      @interface.expects(:grab_foo3).returns(:bar)
+      @instance.expects(:write_attribute).with(key, :bar)
+      @instance.load_interface_attribute(key, @interface)
+    end
+
+    should "use the attribute name if no getter is specified" do
+      key = :foo
+      @interface.expects(:foo).returns(:bar)
+      @instance.expects(:write_attribute).with(key, :bar)
+      @instance.load_interface_attribute(key, @interface)
+    end
+
+    should "write the attribute with the value of the proc" do
+      key = :foo
+      @instance.expects(:write_attribute).with(key, "foo").once
+      @instance.load_interface_attribute(key, @interface)
+    end
+  end
+
+  context "saving a single interface attribute" do
+    setup do
+      @instance = InterfaceAttributeModel.new
+      @interface = mock("interface")
+
+      @value = :bar
+      @instance.stubs(:read_attribute).with(anything).returns(@value)
+    end
+
+    should "return immediately if not a valid attribute" do
+      @proc.expects(:call).never
+      @instance.save_interface_attribute(:baz, @interface)
+    end
+
+    should "return immediately if attribute doesn't have an interface setter" do
+      @proc.expects(:call).never
+      @instance.save_interface_attribute(:bar, @interface)
+    end
+
+    should "save the attribute with the value of the proc" do
+      key = :foo
+      @interface.expects(:foo=).with(@value).once
+      @instance.save_interface_attribute(key, @interface)
+    end
+
+    should "use the property specified first" do
+      key = :foo4
+      @interface.expects(:put_foo4).returns(:bar)
+      @instance.save_interface_attribute(key, @interface)
+    end
+
+    should "use the setter if it exists" do
+      key = :foo2
+      @interface.expects(:set_foo).with(@value).once
+      @instance.save_interface_attribute(key, @interface)
+    end
+
+    should "not save readonly attributes" do
+      key = :foo3
+      @interface.expects(:foo3=).never
+      @instance.save_interface_attribute(key, @interface)
+    end
+  end
+
+  context "loading all interface attributes" do
+    setup do
+      @instance = InterfaceAttributeModel.new
+      @interface = mock('interface')
+    end
+
+    should "load each" do
+      load_seq = sequence("load_seq")
+      InterfaceAttributeModel.attributes.each do |key, options|
+        @instance.expects(:load_interface_attribute).with(key, @interface)
+      end
+
+      @instance.load_interface_attributes(@interface)
+    end
+  end
+
+  context "saving all interface attributes" do
+    setup do
+      @instance = InterfaceAttributeModel.new
+      @interface = mock('interface')
+    end
+
+    should "save each" do
+      InterfaceAttributeModel.attributes.each do |key, options|
+        @instance.expects(:save_interface_attribute).with(key, @interface)
+      end
+
+      @instance.save_interface_attributes(@interface)
+    end
+  end
+end

data/test/virtualbox/abstract_model/relatable_test.rb

@@ -6,6 +6,7 @@ class RelatableTest < Test::Unit::TestCase
       "FOO"
     end
   end
+
   class BarRelatee
     def self.set_relationship(caller, old_value, new_value)
     end
@@ -243,6 +244,25 @@ class RelatableTest < Test::Unit::TestCase
     end
   end
 
+  context "determining the class of relationships" do
+    class ClassRelatableModel < EmptyRelatableModel
+      relationship :foo, Relatee
+      relationship :bar, "RelatableTest::Relatee"
+    end
+
+    setup do
+      @model = ClassRelatableModel.new
+    end
+
+    should "just return the class for Class types" do
+      assert_equal Relatee, @model.relationship_class(:foo)
+    end
+
+    should "turn string into class" do
+      assert_equal Relatee, @model.relationship_class(:bar)
+    end
+  end
+
   context "populating relationships" do
     setup do
       @model = RelatableModel.new

data/test/virtualbox/abstract_model_test.rb

@@ -13,7 +13,7 @@ class AbstractModelTest < Test::Unit::TestCase
   class Bar; end
 
   class FakeModel < VirtualBox::AbstractModel
-    attribute :foo
+    attribute :foo, :property => false
     attribute :bar
     relationship :foos, Foo
     relationship :bars, Bar, :dependent => :destroy
@@ -109,6 +109,11 @@ class AbstractModelTest < Test::Unit::TestCase
       @model.foo = @model.dup
       assert_equal "#<AbstractModelTest::FakeModel :bar=nil, :bars=..., :foo=#<AbstractModelTest::FakeModel>, :foos=...>", @model.inspect
     end
+
+    should "turn attributes which are AbstractInterfaces into classes" do
+      @model.foo = VirtualBox::COM::Interface::VirtualBox.new(VirtualBox::COM::Implementer::Nil)
+      assert_equal "#<AbstractModelTest::FakeModel :bar=nil, :bars=..., :foo=#<VirtualBox::COM::Interface::VirtualBox>, :foos=...>", @model.inspect
+    end
   end
 
   context "validation" do
@@ -323,15 +328,45 @@ class AbstractModelTest < Test::Unit::TestCase
     end
   end
 
+  context "integrating interface attributes" do
+    setup do
+      @model = FakeModel.new
+    end
+
+    should "clear the dirty state of an attribute after saving" do
+      key = :foo
+      interface = :bar
+      @model.expects(:clear_dirty!).with(key).once
+      @model.save_interface_attribute(key, interface)
+    end
+  end
+
   context "integrating relatable" do
     setup do
       @model = FakeModel.new
     end
 
-    should "set dirty state when a relationship is set" do
-      assert !@model.changed?
-      @model.foos = "foo"
-      assert @model.changed?
+    context "saving all changed interface attributes" do
+      setup do
+        @changes = [[:a, []], [:b, []], [:c, []]]
+        @model.stubs(:changes).returns(@changes)
+      end
+
+      should "save each" do
+        @model.changes.each do |key, options|
+          @model.expects(:save_interface_attribute).with(key, @interface)
+        end
+
+        @model.save_changed_interface_attributes(@interface)
+      end
+    end
+
+    context "with dirty" do
+      should "set dirty state when a relationship is set" do
+        assert !@model.changed?
+        @model.foos = "foo"
+        assert @model.changed?
+      end
     end
   end
 

data/test/virtualbox/appliance_test.rb

@@ -0,0 +1,152 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class ApplianceTest < Test::Unit::TestCase
+  setup do
+    @klass = VirtualBox::Appliance
+    @interface = mock("interface")
+    @parent = mock("parent")
+    @path = "foo.rb"
+
+    @appliance = mock("appliance")
+    @virtualbox = mock("virtualbox")
+    @lib = mock("lib")
+    VirtualBox::Lib.stubs(:lib).returns(@lib)
+    @lib.stubs(:virtualbox).returns(@virtualbox)
+    @virtualbox.stubs(:create_appliance).returns(@appliance)
+  end
+
+  context "class methods" do
+
+  end
+
+  context "initializing" do
+    should "load interface attribtues" do
+      @klass.any_instance.expects(:initialize_from_path).with(@path).once
+      @klass.new(@path)
+    end
+
+    context "initializing from path" do
+      setup do
+        @progress = mock("progress")
+        @appliance.stubs(:read).returns(@progress)
+        @appliance.stubs(:interpret)
+        @appliance.stubs(:virtual_system_descriptions)
+        @progress.stubs(:wait_for_completion)
+
+        @klass.any_instance.stubs(:populate_relationship)
+        @klass.any_instance.stubs(:load_interface_attributes)
+      end
+
+      should "write the interface as the appliance" do
+        instance = @klass.new(@path)
+        assert_equal @appliance, instance.interface
+      end
+
+      should "mark as an existing record" do
+        instance = @klass.new(@path)
+        assert !instance.new_record?
+      end
+
+      should "read the appliance then interpret it" do
+        init_seq = sequence("init")
+        @appliance.expects(:read).with(@path).once.returns(@progress).in_sequence(init_seq)
+        @progress.expects(:wait_for_completion).with(-1).in_sequence(init_seq)
+        @appliance.expects(:interpret).once.in_sequence(init_seq)
+        @klass.any_instance.expects(:load_interface_attributes).with(@appliance).once.in_sequence(init_seq)
+
+        @klass.new(@path)
+      end
+    end
+
+    context "initialize without path" do
+      setup do
+        @instance = @klass.new
+      end
+
+      should "write the interface as the appliance" do
+        assert_equal @appliance, @instance.interface
+      end
+
+      should "be new record" do
+        assert @instance.new_record?
+      end
+
+      should "not be dirty" do
+        assert !@instance.changed?
+      end
+    end
+  end
+
+  context "instance methods" do
+    setup do
+      @klass.any_instance.stubs(:initialize_from_path)
+      @instance = @klass.new(@path)
+      @instance.stubs(:interface).returns(@interface)
+    end
+
+    context "importing" do
+      setup do
+        @progress = mock("progress")
+
+        @interface.stubs(:import_machines).returns(@progress)
+      end
+
+      should "call import on interface and wait for completion" do
+        @interface.expects(:import_machines).returns(@progress)
+        @progress.expects(:wait)
+
+        @instance.import
+      end
+
+      should "call wait with block given" do
+        proc = mock("proc")
+        @progress.expects(:wait).yields(proc)
+        proc.expects(:call)
+
+        @instance.import do |proc|
+          proc.call
+        end
+      end
+    end
+
+    context "exporting" do
+      setup do
+        @progress = mock("progress")
+
+        @instance.path = :foo
+        @interface.stubs(:write).returns(@progress)
+      end
+
+      should "call write on interface and wait for completion" do
+        @interface.expects(:write).with("ovf-1.0", @instance.path).once.returns(@progress)
+        @progress.expects(:wait)
+
+        @instance.export
+      end
+
+      should "call wait with block given" do
+        proc = mock("proc")
+        @progress.expects(:wait).yields(proc)
+        proc.expects(:call)
+
+        @instance.export do |proc|
+          proc.call
+        end
+      end
+    end
+
+    context "adding a machine" do
+      setup do
+        @machine = mock("machine")
+        @machine_interface = mock("machine_interface")
+        @machine.stubs(:interface).returns(@machine_interface)
+        @machine_interface.stubs(:export)
+      end
+
+      should "call export on the VM interface with the appliance" do
+        @machine_interface.expects(:export).with(@interface).once
+        @instance.add_machine(@machine)
+      end
+    end
+  end
+end