Contents

require "#{::File.dirname(__FILE__)}/../../../../test_helper"

# Uncomment the tests for live-testing
class TestMetavirt < Test::Unit::TestCase
  context "registered as remote base" do
    setup do
      reset!
      @cloud = cloud :metvirt_cld do
        keypair "#{::File.dirname(__FILE__)}/../../../../fixtures/test_key"
        instances 1
        using :metavirt do
          using :vmrun do
            vmx_files ['/path/to/vmx', '/another/path']
          end
        end
      end
    end
    should "be registered as a remote_base" do
      @cloud.available_bases.include?(:vmrun).should == true
    end
    should "be setting the type of remote_base" do
      assert_equal PoolParty::Remote::Vmrun, @cloud.remote_base.remote_base.class
      assert_equal PoolParty::Remote::Metavirt, @cloud.remote_base.class
    end
    should "have metavirt as the remoter base" do
      @cloud.metavirt.should == @cloud.remote_base
    end
    should "have a keypair" do
      # assert_equal Key, @cloud.keypair.class
      assert_equal 'test_key', @cloud.keypair.basename
      assert_equal 'test_key', @cloud.keypair_name
      # puts "----- #{@cloud.remote_base.dsl_options.inspect}"
      assert_equal 'test_key', @cloud.remote_base.keypair_name
    end
    should "be able to initialize without a cloud" do
      assert_nothing_raised  do PoolParty::Remote::Metavirt.new end
    end
    # should "start metavirt instance" do
    #   @cloud.launch_instance!
    #   assert @cloud.metavirt.describe_instances.first[:instance_id]>0
    # end
    # should "be able to terminate the instance" do
    #   @cloud.launch_instance!
    #   @cloud.terminate_instance!
    #   assert @cloud.describe_instances.empty?
    # end
    # teardown do
    #   # PoolParty::Remote::metavirt.terminate!(
    #   @cloud.describe_instances.each do |inst|
    #     @cloud.terminate_instance! inst[:instance_id]
    #   end
    # end
  end
  
end

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
auser-poolparty-1.2.3	test/poolparty/net/remoter_bases/metavirt/metavirt_test.rb
auser-poolparty-1.2.4	test/poolparty/net/remoter_bases/metavirt/metavirt_test.rb
auser-poolparty-1.2.7	test/poolparty/net/remoter_bases/metavirt/metavirt_test.rb