virtualbox 0.1.1 → 0.2.0

data/test/virtualbox/vm_test.rb

@@ -81,9 +81,10 @@ showvminfo
   end
   
   def create_vm
-    command_seq = sequence("command_seq")
-    VirtualBox::Command.expects(:vboxmanage).with("showvminfo #{@name} --machinereadable").returns(@raw).in_sequence(command_seq)
-    VirtualBox::Command.expects(:vboxmanage).with(anything).returns("").at_least(0).in_sequence(command_seq)
+    VirtualBox::Command.expects(:vboxmanage).with("showvminfo #{@name} --machinereadable").returns(@raw)
+    VirtualBox::Command.expects(:vboxmanage).with("showvminfo #{@name}").returns("")
+    VirtualBox::Command.expects(:vboxmanage).with("list hdds").returns("")
+    VirtualBox::Command.expects(:vboxmanage).with("list dvds").returns("")
     vm = VirtualBox::VM.find(@name)
     assert vm
     vm
@@ -112,19 +113,103 @@ showvminfo
     end
   end
   
-  context "starting and stopping" do
+  context "exporting a VM" do
     setup do
       @vm = create_vm
     end
     
+    should "export the VM with no options if none are passed" do
+      VirtualBox::Command.expects(:vboxmanage).with("export #{@name} -o foo")
+      @vm.export("foo")
+    end
+    
+    should "export the VM with specified options" do
+      VirtualBox::Command.expects(:vboxmanage).with("export #{@name} -o foo --vsys 0 --foo bar")
+      @vm.export("foo", :foo => :bar)
+    end
+    
+    should "shell escape all the options" do
+      VirtualBox::Command.expects(:vboxmanage).with("export #{@name} -o foo --vsys 0 --foo a\\ space")
+      @vm.export("foo", :foo => "a space")
+    end
+    
+    should "return true if the export succeeded" do
+      VirtualBox::Command.expects(:vboxmanage).once
+      assert @vm.export("foo")
+    end
+    
+    should "return false if the export failed" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      assert !@vm.export("foo")
+    end
+    
+    should "raise an exception on failure if raise_error is true" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      assert_raises(VirtualBox::Exceptions::CommandFailedException) {
+        @vm.export("foo", {}, true)
+      }
+    end
+  end
+  
+  context "controlling a VM (start, stop, pause, etc.)" do
+    setup do
+      @vm = create_vm
+    end
+    
+    context "control method" do
+      should "run the given command when 'control' is called" do
+        VirtualBox::Command.expects(:vboxmanage).with("controlvm #{@name} foo")
+        assert @vm.control(:foo)
+      end
+      
+      should "return false if the command failed" do
+        VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+        assert !@vm.control(:foo)
+      end
+      
+      should "raise an exception if flag is set" do
+        VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+        assert_raises(VirtualBox::Exceptions::CommandFailedException) {
+          @vm.control(:foo, true)
+        }
+      end
+    end
+    
     should "start a VM with the given type" do
       VirtualBox::Command.expects(:vboxmanage).with("startvm #{@name} --type FOO")
-      @vm.start(:FOO)
+      assert @vm.start(:FOO)
+    end
+    
+    should "return false if start failed" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      assert !@vm.start
+    end
+    
+    should "raise an exception if start fails and flag is set" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      assert_raises(VirtualBox::Exceptions::CommandFailedException) {
+        @vm.start(:foo, true)
+      }
     end
     
     should "stop a VM with a 'poweroff'" do
-      VirtualBox::Command.expects(:vboxmanage).with("controlvm #{@name} poweroff")
-      @vm.stop
+      @vm.expects(:control).with(:poweroff, false).returns(true)
+      assert @vm.stop
+    end
+    
+    should "pause a VM" do
+      @vm.expects(:control).with(:pause, false).returns(true)
+      assert @vm.pause
+    end
+    
+    should "resume a VM" do
+      @vm.expects(:control).with(:resume, false).returns(true)
+      assert @vm.resume
+    end
+    
+    should "save the state of a VM" do
+      @vm.expects(:control).with(:savestate, false).returns(true)
+      assert @vm.save_state
     end
   end
   
@@ -215,20 +300,37 @@ raw
   context "saving a changed VM" do
     setup do
       @vm = create_vm
+      VirtualBox::AttachedDevice.any_instance.stubs(:save)
+    end
+    
+    should "return false if saving fails" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      
+      @vm.ostype = "Zubuntu"
+      assert !@vm.save
+    end
+    
+    should "raise an error if saving fails and flag to true" do
+      VirtualBox::Command.stubs(:vboxmanage).raises(VirtualBox::Exceptions::CommandFailedException)
+      
+      @vm.ostype = "Zubuntu"
+      assert_raises(VirtualBox::Exceptions::CommandFailedException) {
+        @vm.save(true)
+      }
     end
     
     should "save only the attributes which saved" do
       VirtualBox::Command.expects(:vboxmanage).with("modifyvm #{@name} --ostype Zubuntu")
       
       @vm.ostype = "Zubuntu"
-      @vm.save
+      assert @vm.save
     end
     
     should "shell escape saved values" do
       VirtualBox::Command.expects(:vboxmanage).with("modifyvm #{@name} --ostype My\\ Value")
       
       @vm.ostype = "My Value"
-      @vm.save
+      assert @vm.save
     end
     
     should "shell escape the string value of a value" do
@@ -246,7 +348,13 @@ raw
       
       @vm.name = new_name
       @vm.ostype = "Zubuntu"
-      @vm.save
+      assert @vm.save
+    end
+    
+    should "save the relationships as well" do
+      VirtualBox::Nic.expects(:save_relationship).once
+      VirtualBox::StorageController.expects(:save_relationship).once
+      assert @vm.save
     end
   end
   

data/virtualbox.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{virtualbox}
-  s.version = "0.1.1"
+  s.version = "0.2.0"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Mitchell Hashimoto"]
-  s.date = %q{2010-01-24}
+  s.date = %q{2010-01-26}
   s.description = %q{Create and modify virtual machines in VirtualBox using pure ruby.}
   s.email = %q{mitchell.hashimoto@gmail.com}
   s.extra_rdoc_files = [
@@ -17,11 +17,13 @@ Gem::Specification.new do |s|
   ]
   s.files = [
     ".gitignore",
+     ".yardopts",
      "Gemfile",
      "Rakefile",
      "Readme.md",
      "TODO",
      "VERSION",
+     "docs/GettingStarted.md",
      "lib/virtualbox.rb",
      "lib/virtualbox/abstract_model.rb",
      "lib/virtualbox/abstract_model/attributable.rb",
@@ -30,11 +32,12 @@ Gem::Specification.new do |s|
      "lib/virtualbox/attached_device.rb",
      "lib/virtualbox/command.rb",
      "lib/virtualbox/dvd.rb",
-     "lib/virtualbox/errors.rb",
+     "lib/virtualbox/exceptions.rb",
      "lib/virtualbox/ext/subclass_listing.rb",
      "lib/virtualbox/hard_drive.rb",
      "lib/virtualbox/image.rb",
      "lib/virtualbox/nic.rb",
+     "lib/virtualbox/proxies/collection.rb",
      "lib/virtualbox/storage_controller.rb",
      "lib/virtualbox/vm.rb",
      "test/test_helper.rb",
@@ -49,6 +52,7 @@ Gem::Specification.new do |s|
      "test/virtualbox/hard_drive_test.rb",
      "test/virtualbox/image_test.rb",
      "test/virtualbox/nic_test.rb",
+     "test/virtualbox/proxies/collection_test.rb",
      "test/virtualbox/storage_controller_test.rb",
      "test/virtualbox/vm_test.rb",
      "virtualbox.gemspec"
@@ -71,6 +75,7 @@ Gem::Specification.new do |s|
      "test/virtualbox/hard_drive_test.rb",
      "test/virtualbox/image_test.rb",
      "test/virtualbox/nic_test.rb",
+     "test/virtualbox/proxies/collection_test.rb",
      "test/virtualbox/storage_controller_test.rb",
      "test/virtualbox/vm_test.rb"
   ]

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: virtualbox
 version: !ruby/object:Gem::Version 
-  version: 0.1.1
+  version: 0.2.0
 platform: ruby
 authors: 
 - Mitchell Hashimoto
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-24 00:00:00 -08:00
+date: 2010-01-26 00:00:00 -08:00
 default_executable: 
 dependencies: []
 
@@ -23,11 +23,13 @@ extra_rdoc_files:
 - TODO
 files: 
 - .gitignore
+- .yardopts
 - Gemfile
 - Rakefile
 - Readme.md
 - TODO
 - VERSION
+- docs/GettingStarted.md
 - lib/virtualbox.rb
 - lib/virtualbox/abstract_model.rb
 - lib/virtualbox/abstract_model/attributable.rb
@@ -36,11 +38,12 @@ files:
 - lib/virtualbox/attached_device.rb
 - lib/virtualbox/command.rb
 - lib/virtualbox/dvd.rb
-- lib/virtualbox/errors.rb
+- lib/virtualbox/exceptions.rb
 - lib/virtualbox/ext/subclass_listing.rb
 - lib/virtualbox/hard_drive.rb
 - lib/virtualbox/image.rb
 - lib/virtualbox/nic.rb
+- lib/virtualbox/proxies/collection.rb
 - lib/virtualbox/storage_controller.rb
 - lib/virtualbox/vm.rb
 - test/test_helper.rb
@@ -55,6 +58,7 @@ files:
 - test/virtualbox/hard_drive_test.rb
 - test/virtualbox/image_test.rb
 - test/virtualbox/nic_test.rb
+- test/virtualbox/proxies/collection_test.rb
 - test/virtualbox/storage_controller_test.rb
 - test/virtualbox/vm_test.rb
 - virtualbox.gemspec
@@ -99,5 +103,6 @@ test_files:
 - test/virtualbox/hard_drive_test.rb
 - test/virtualbox/image_test.rb
 - test/virtualbox/nic_test.rb
+- test/virtualbox/proxies/collection_test.rb
 - test/virtualbox/storage_controller_test.rb
 - test/virtualbox/vm_test.rb

data/lib/virtualbox/errors.rb

@@ -1,7 +0,0 @@
-module VirtualBox
-  # Gem specific exceptions will reside under this namespace for easy
-  # documentation and searching.
-  module Errors
-    class Exception < ::Exception; end
-  end
-end