virtualbox 0.4.3 → 0.5.0

data/test/test_helper.rb

@@ -1,16 +1,10 @@
 begin
-  require File.join(File.dirname(__FILE__), '..', 'vendor', 'gems', 'environment')
+  require File.expand_path('../.bundle/environment', __FILE__)
 rescue LoadError
-  puts <<-ENVERR
-==================================================
-ERROR: Gem environment file not found!
-
-This gem uses bundler to handle gem dependencies. To setup the
-test environment, please run `gem bundle test` If you don't
-have bundler, you can install that with `gem install bundler`
-==================================================
-ENVERR
-  exit
+  # Fallback on doing the resolve at runtime.
+  require "rubygems"
+  require "bundler"
+  Bundler.setup
 end
 
 # ruby-debug, not necessary, but useful if we have it
@@ -22,4 +16,116 @@ require 'contest'
 require 'mocha'
 
 # The actual library
-require File.join(File.dirname(__FILE__), '..', 'lib', 'virtualbox')
+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

@@ -11,11 +11,6 @@ class AttributableTest < Test::Unit::TestCase
 
     def initialize
       super
-
-      populate_attributes({
-        :foo => "foo",
-        :bar => "bar"
-      })
     end
   end
 
@@ -94,6 +89,46 @@ class AttributableTest < Test::Unit::TestCase
         assert_nil @model.bar
       end
     end
+
+    context "lazy loading" do
+      class LazyModel < EmptyAttributeModel
+        attribute :foo, :lazy => true
+        attribute :bar
+
+        def load_attribute(attribute)
+          write_attribute(attribute, "foo")
+        end
+      end
+
+      setup do
+        @model = LazyModel.new
+      end
+
+      should "return proper value for lazy_attribute?" do
+        assert @model.lazy_attribute?(:foo)
+        assert !@model.lazy_attribute?(:bar)
+        assert !@model.lazy_attribute?(:i_dont_exist)
+      end
+
+      should "load the lazy attribute on read" do
+        assert !@model.loaded_attribute?(:foo)
+        assert_equal "foo", @model.foo
+        assert @model.loaded_attribute?(:foo)
+      end
+
+      should "not be loaded initially, then should be loaded after being read" do
+        assert !@model.loaded_attribute?(:foo)
+        @model.foo
+        assert @model.loaded_attribute?(:foo)
+      end
+
+      should "mark as loaded if write_attribute is called on an attribute" do
+        assert !@model.loaded_attribute?(:foo)
+        @model.write_attribute(:foo, "bar")
+        assert @model.loaded_attribute?(:foo)
+        assert_equal "bar", @model.foo
+      end
+    end
   end
 
   context "populating attributes" do
@@ -112,11 +147,26 @@ class AttributableTest < Test::Unit::TestCase
         assert_equal v, @model.send(k)
       end
     end
+
+    should "not load nonexistent keys" do
+      new_attributes = {
+        :foo => "zxcv"
+      }
+
+      @model.populate_attributes(new_attributes)
+      assert @model.loaded_attribute?(:foo)
+      assert !@model.loaded_attribute?(:bar)
+    end
   end
 
   context "reading and writing attributes" do
     setup do
       @model = AttributeModel.new
+      @model.populate_attributes({
+        :foo => "foo",
+        :bar => "bar"
+      })
+
       @checkstring = "HEY"
     end
 

data/test/virtualbox/abstract_model/relatable_test.rb

@@ -11,9 +11,11 @@ class RelatableTest < Test::Unit::TestCase
     end
   end
 
-  class RelatableModel
+  class EmptyRelatableModel
     include VirtualBox::AbstractModel::Relatable
+  end
 
+  class RelatableModel < EmptyRelatableModel
     relationship :foos, Relatee
     relationship :bars, BarRelatee
   end
@@ -128,6 +130,12 @@ class RelatableTest < Test::Unit::TestCase
         Relatee.expects(:destroy_relationship).with(@model, "FOO").once
         @model.destroy_relationship(:foos)
       end
+
+      should "call read_relationship (to force the load if lazy)" do
+        Relatee.expects(:destroy_relationship).with(@model, "FOO").once
+        @model.expects(:read_relationship).with(:foos).once
+        @model.destroy_relationship(:foos)
+      end
     end
 
     context "all relationships" do
@@ -143,19 +151,66 @@ class RelatableTest < Test::Unit::TestCase
     end
   end
 
+  context "lazy relationships" do
+    class LazyRelatableModel < EmptyRelatableModel
+      relationship :foos, RelatableTest::Relatee, :lazy => true
+      relationship :bars, RelatableTest::BarRelatee
+    end
+
+    setup do
+      @model = LazyRelatableModel.new
+    end
+
+    should "return true if a relationship is lazy, and false if not, when checking" do
+      assert @model.lazy_relationship?(:foos)
+      assert !@model.lazy_relationship?(:bars)
+    end
+
+    should "not be loaded by default" do
+      assert !@model.loaded_relationship?(:foos)
+    end
+
+    should "call `load_relationship` on initial load" do
+      @model.expects(:load_relationship).with(:foos).once
+      @model.foos
+    end
+
+    should "not call `load_relationship` for non lazy attributes" do
+      @model.expects(:load_relationship).never
+      @model.bars
+    end
+
+    should "mark a relationship as loaded on populate_relationship" do
+      @model.populate_relationship(:foos, {})
+      assert @model.loaded_relationship?(:foos)
+    end
+
+    should "not populate the lazy relationship right away" do
+      Relatee.expects(:populate_relationship).never
+      BarRelatee.expects(:populate_relationship).once
+      @model.populate_relationships({})
+    end
+  end
+
   context "saving relationships" do
     setup do
       @model = RelatableModel.new
     end
 
+    should "call save_relationship for all relationships" do
+      @model.expects(:save_relationship).with(:foos)
+      @model.expects(:save_relationship).with(:bars)
+      @model.save_relationships
+    end
+
     should "call save_relationship on the related class" do
       Relatee.expects(:save_relationship).with(@model, @model.foos).once
-      @model.save_relationships
+      @model.save_relationship(:foos)
     end
 
     should "forward parameters through" do
       Relatee.expects(:save_relationship).with(@model, @model.foos, "YES").once
-      @model.save_relationships("YES")
+      @model.save_relationship(:foos, "YES")
     end
   end
 
@@ -193,8 +248,15 @@ class RelatableTest < Test::Unit::TestCase
       @model = RelatableModel.new
     end
 
-    should "call populate_relationship on the related class" do
+    should "be able to populate a single relationship" do
       Relatee.expects(:populate_relationship).with(@model, @data).once
+      @model.populate_relationship(:foos, @data)
+    end
+
+    should "call populate_relationship on the related class" do
+      populate_seq = sequence("populate_seq")
+      @model.expects(:populate_relationship).with(:foos, @data).once.in_sequence(populate_seq)
+      @model.expects(:populate_relationship).with(:bars, @data).once.in_sequence(populate_seq)
       @model.populate_relationships(@data)
     end
 

data/test/virtualbox/abstract_model_test.rb

@@ -19,6 +19,83 @@ class AbstractModelTest < Test::Unit::TestCase
     relationship :bars, Bar, :dependent => :destroy
   end
 
+  context "reloading" do
+    context "with a single class" do
+      setup do
+        @model = FakeModel.new
+      end
+
+      teardown do
+        FakeModel.reloaded!
+      end
+
+      should "not want to be reloaded initially" do
+        assert !FakeModel.reload?
+      end
+
+      should "want to be reloaded once signaled by the class method" do
+        FakeModel.reload!
+        assert FakeModel.reload?
+      end
+
+      should "want to be reloaded once signaled by the instance method" do
+        @model.reload!
+        assert FakeModel.reload?
+      end
+
+      should "not want to be reloaded once reloaded! is called" do
+        @model.reload!
+        assert FakeModel.reload?
+        FakeModel.reloaded!
+        assert !FakeModel.reload?
+      end
+    end
+
+    context "with inheritance" do
+      class SubModel < FakeModel
+      end
+
+      setup do
+        @lazy = FakeModel.new
+        @sub = SubModel.new
+      end
+
+      should "not interfere with each others reload flags" do
+        @lazy.reload!
+        assert !SubModel.reload?
+        assert FakeModel.reload?
+      end
+    end
+  end
+
+  context "lazy attributes and relationships" do
+    class LazyModel < VirtualBox::AbstractModel
+      attribute :foo, :lazy => true
+      attribute :bar
+      relationship :foos, AbstractModelTest::Foo, :lazy => true
+      relationship :bars, AbstractModelTest::Bar, :lazy => true
+    end
+
+    setup do
+      @model = LazyModel.new
+    end
+
+    should "return false on lazy_attribute? for all attributes if new" do
+      assert !@model.lazy_attribute?(:foo)
+      assert !@model.lazy_relationship?(:foos)
+    end
+
+    should "only save loaded relationships" do
+      @model.existing_record!
+      assert @model.lazy_relationship?(:foos)
+      assert @model.lazy_relationship?(:bars)
+      @model.stubs(:loaded_relationship?).with(:foos).returns(false)
+      @model.stubs(:loaded_relationship?).with(:bars).returns(true)
+      @model.expects(:save_relationship).with(:bars).once
+      @model.save
+    end
+  end
+
   context "inspecting" do
     setup do
       @model = FakeModel.new
@@ -27,6 +104,11 @@ class AbstractModelTest < Test::Unit::TestCase
     should "generate the proper inspect string" do
       assert_equal "#<AbstractModelTest::FakeModel :bar=nil, :bars=..., :foo=nil, :foos=...>", @model.inspect
     end
+
+    should "turn attributes which are AbstractModels into classes" do
+      @model.foo = @model.dup
+      assert_equal "#<AbstractModelTest::FakeModel :bar=nil, :bars=..., :foo=#<AbstractModelTest::FakeModel>, :foos=...>", @model.inspect
+    end
   end
 
   context "validation" do
@@ -166,11 +248,6 @@ class AbstractModelTest < Test::Unit::TestCase
       @model.save
     end
 
-    should "call save_relationships" do
-      @model.expects(:save_relationships).once
-      @model.save
-    end
-
     should "clear dirty state once saved" do
       @model.foo = "foo2"
       assert @model.foo_changed?
@@ -192,9 +269,57 @@ class AbstractModelTest < Test::Unit::TestCase
       @model = FakeModel.new
     end
 
-    should "populate relationships at the same time as attributes" do
-      Foo.expects(:populate_relationship).once
-      @model.populate_attributes({})
+    context "populating attributes" do
+      should "populate relationships at the same time as attributes" do
+        Foo.expects(:populate_relationship).once
+        @model.populate_attributes({})
+      end
+
+      should "not populate relationships if :ignore_relationships is true" do
+        Foo.expects(:populate_relationship).never
+        @model.populate_attributes({}, :ignore_relationships => true)
+      end
+
+      should "cause the model to become an existing record" do
+        assert @model.new_record?
+        @model.populate_attributes({})
+        assert !@model.new_record?
+      end
+
+      should "not cause dirtiness" do
+        assert_nil @model.foo
+        @model.populate_attributes({ :foo => "foo" })
+        assert_equal "foo", @model.foo
+        assert !@model.changed?
+      end
+    end
+
+    context "populating relationships" do
+      should "cause the model to become an existing record" do
+        assert @model.new_record?
+        @model.populate_relationships({})
+        assert !@model.new_record?
+      end
+
+      should "not cause dirtiness" do
+        # TODO: This test doesn't do much right now. We need to actually compare
+        # the relationship values for dirtiness.
+        @model.populate_relationships({ :foo => "foo" })
+        assert !@model.changed?
+      end
+    end
+
+    context "populating a single relationship" do
+      should "cause the model to become an existing record" do
+        assert @model.new_record?
+        @model.populate_relationship(:foos, {})
+        assert !@model.new_record?
+      end
+
+      should "not cause dirtiness" do
+        @model.populate_relationship(:foos, {})
+        assert !@model.changed?
+      end
     end
   end
 
@@ -232,5 +357,12 @@ class AbstractModelTest < Test::Unit::TestCase
       assert @model.foo_changed?
       assert_equal "foo2", @model.foo
     end
+
+    should "not mark dirtiness on write_attribute if the attribute is lazy and not yet loaded" do
+      @model.expects(:lazy_attribute?).with(:foo).returns(true)
+      @model.expects(:loaded_attribute?).with(:foo).returns(false)
+      @model.expects(:set_dirty!).never
+      @model.write_attribute(:foo, "foo2")
+    end
   end
 end