2010-05-03 00:46:43 -04:00
|
|
|
require 'spec'
|
|
|
|
require 'pp'
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
module Spec
|
|
|
|
module Example
|
|
|
|
module Subject
|
|
|
|
module ExampleGroupMethods
|
|
|
|
def its(attribute, &block)
|
|
|
|
describe(attribute) do
|
|
|
|
define_method(:subject) { s = super(); s.is_a?(Hash) ? s[attribute] : s.send(attribute) }
|
|
|
|
it(&block)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2010-05-27 21:27:12 -04:00
|
|
|
#Initialize this to a known seed
|
|
|
|
srand 1234
|
|
|
|
|
2010-05-03 00:46:43 -04:00
|
|
|
current_directory = File.dirname(__FILE__)
|
|
|
|
require "#{current_directory}/../../lib/fog"
|
|
|
|
require "#{current_directory}/../../lib/fog/bin"
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
Fog.mock! if ENV['FOG_MOCK']
|
2010-05-03 00:46:43 -04:00
|
|
|
|
|
|
|
require "#{current_directory}/../../lib/fog/vcloud/bin"
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
shared_examples_for "all responses" do
|
2010-05-03 00:46:43 -04:00
|
|
|
it { should respond_to :body }
|
|
|
|
it { should respond_to :headers }
|
|
|
|
it { should have_at_least(1).body }
|
|
|
|
it { should have_at_least(0).headers }
|
2010-06-17 19:58:09 -04:00
|
|
|
its(:body) { should be_an_instance_of Hash }
|
|
|
|
its(:headers) { should be_an_instance_of Hash }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "it has a Content-Type header" do
|
|
|
|
its(:headers) { should include "Content-Type" }
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all rel=down vcloud links" do
|
|
|
|
it { should be_an_instance_of Struct::VcloudLink }
|
|
|
|
specify { subject.rel.should == "down" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all vcloud links w/o a rel" do
|
|
|
|
it { should be_an_instance_of Struct::VcloudLink }
|
|
|
|
specify { subject.rel.should == nil }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all vcloud catalog links" do
|
|
|
|
specify { subject.type.should == "application/vnd.vmware.vcloud.catalog+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all tmrk ecloud publicIpList links" do
|
|
|
|
specify { subject.type.should == "application/vnd.tmrk.ecloud.publicIpsList+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all tmrk ecloud firewallAclList links" do
|
|
|
|
specify { subject.type.should == "application/vnd.tmrk.ecloud.firewallAclsList+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all tmrk ecloud internetServicesList links" do
|
|
|
|
specify { subject.type.should == "application/vnd.tmrk.ecloud.internetServicesList+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all vcloud application/xml types" do
|
|
|
|
specify { subject.type.should == "application/xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "a vapp type" do
|
|
|
|
specify { subject.type.should == "application/vnd.vmware.vcloud.vApp+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all vcloud network types" do
|
|
|
|
specify { subject.type.should == "application/vnd.vmware.vcloud.network+xml" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "all login requests" do
|
|
|
|
|
|
|
|
it { should respond_to :login }
|
|
|
|
|
|
|
|
describe "#login" do
|
|
|
|
before { @login = @vcloud.login }
|
|
|
|
subject { @login }
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
it_should_behave_like "all responses"
|
2010-05-03 00:46:43 -04:00
|
|
|
|
|
|
|
its(:headers) { should include "Set-Cookie" }
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
it { should have_headers_denoting_a_content_type_of "application/vnd.vmware.vcloud.orgslist+xml" }
|
2010-05-03 00:46:43 -04:00
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
describe "#body" do
|
|
|
|
subject { @login.body }
|
2010-05-03 00:46:43 -04:00
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
it { should have(4).organizations }
|
2010-05-03 00:46:43 -04:00
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
it_should_behave_like "it has the standard vcloud v0.8 xmlns attributes" # 3 keys
|
|
|
|
its(:Org) { should == { :type => "application/vnd.vmware.vcloud.org+xml",
|
|
|
|
:href => @mock_organization[:info][:href],
|
|
|
|
:name => @mock_organization[:info][:name]} }
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "it has a vcloud v0.8 xmlns" do
|
|
|
|
its(:xmlns) { should == 'http://www.vmware.com/vcloud/v0.8' }
|
|
|
|
end
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
shared_examples_for "it has the proper xmlns_xsi" do
|
|
|
|
its(:xmlns_xsi) { should == "http://www.w3.org/2001/XMLSchema-instance" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "it has the proper xmlns_xsd" do
|
|
|
|
its(:xmlns_xsd) { should == "http://www.w3.org/2001/XMLSchema" }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "it has the standard xmlns attributes" do
|
|
|
|
it_should_behave_like "it has the proper xmlns_xsi"
|
|
|
|
it_should_behave_like "it has the proper xmlns_xsd"
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "it has the standard vcloud v0.8 xmlns attributes" do
|
|
|
|
it_should_behave_like "it has a vcloud v0.8 xmlns"
|
|
|
|
it_should_behave_like "it has the standard xmlns attributes"
|
|
|
|
end
|
|
|
|
|
2010-05-03 00:46:43 -04:00
|
|
|
shared_examples_for "a request for a resource that doesn't exist" do
|
|
|
|
it { should raise_error Excon::Errors::Unauthorized }
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "a vdc catalog link" do
|
|
|
|
it_should_behave_like "all rel=down vcloud links"
|
|
|
|
it_should_behave_like "all vcloud catalog links"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:href] + "/catalog") }
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "a tmrk network link" do
|
|
|
|
it_should_behave_like "all vcloud links w/o a rel"
|
|
|
|
it_should_behave_like "all vcloud network types"
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "the mocked tmrk network links" do
|
|
|
|
it { should have(2).networks }
|
|
|
|
|
|
|
|
describe "[0]" do
|
|
|
|
subject { @vdc.body.networks[0] }
|
|
|
|
it_should_behave_like "a tmrk network link"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:networks][0][:href]) }
|
2010-05-03 00:46:43 -04:00
|
|
|
its(:name) { should == @mock_vdc[:networks][0][:name] }
|
|
|
|
end
|
|
|
|
|
|
|
|
describe "[1]" do
|
|
|
|
subject { @vdc.body.networks[1] }
|
|
|
|
it_should_behave_like "a tmrk network link"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:networks][1][:href]) }
|
2010-05-03 00:46:43 -04:00
|
|
|
its(:name) { should == @mock_vdc[:networks][1][:name] }
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
shared_examples_for "the mocked tmrk resource entity links" do
|
|
|
|
it { should have(3).resource_entities }
|
|
|
|
|
|
|
|
describe "[0]" do
|
|
|
|
subject { @vdc.body.resource_entities[0] }
|
|
|
|
it_should_behave_like "a vapp type"
|
|
|
|
it_should_behave_like "all vcloud links w/o a rel"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:vms][0][:href]) }
|
2010-05-03 00:46:43 -04:00
|
|
|
its(:name) { should == @mock_vdc[:vms][0][:name] }
|
|
|
|
end
|
|
|
|
describe "[1]" do
|
|
|
|
subject { @vdc.body.resource_entities[1] }
|
|
|
|
it_should_behave_like "a vapp type"
|
|
|
|
it_should_behave_like "all vcloud links w/o a rel"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:vms][1][:href]) }
|
2010-05-03 00:46:43 -04:00
|
|
|
its(:name) { should == @mock_vdc[:vms][1][:name] }
|
|
|
|
end
|
|
|
|
describe "[2]" do
|
|
|
|
subject { @vdc.body.resource_entities[2] }
|
|
|
|
it_should_behave_like "a vapp type"
|
|
|
|
it_should_behave_like "all vcloud links w/o a rel"
|
2010-05-16 12:09:25 -04:00
|
|
|
its(:href) { should == URI.parse(@mock_vdc[:vms][2][:href]) }
|
2010-05-03 00:46:43 -04:00
|
|
|
its(:name) { should == @mock_vdc[:vms][2][:name] }
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2010-06-17 19:58:09 -04:00
|
|
|
Spec::Example::ExampleGroupFactory.register(:mock_vcloud_request, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
Spec::Example::ExampleGroupFactory.register(:mock_vcloud_model, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
Spec::Example::ExampleGroupFactory.register(:mock_tmrk_ecloud_request, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
Spec::Example::ExampleGroupFactory.register(:mock_tmrk_ecloud_model, Class.new(Spec::Example::ExampleGroup))
|
2010-05-03 00:46:43 -04:00
|
|
|
Spec::Example::ExampleGroupFactory.register(:vcloud_request, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
Spec::Example::ExampleGroupFactory.register(:tmrk_ecloud_request, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
Spec::Example::ExampleGroupFactory.register(:tmrk_vcloud_request, Class.new(Spec::Example::ExampleGroup))
|
|
|
|
|
|
|
|
Spec::Runner.configure do |config|
|
2010-06-17 19:58:09 -04:00
|
|
|
config.after(:all) do
|
|
|
|
Fog::Vcloud::Mock.data_reset
|
|
|
|
end
|
|
|
|
config.before(:each, :type => :mock_vcloud_model) do
|
|
|
|
@vcloud = Fog::Vcloud.new(:username => "foo", :password => "bar", :versions_uri => "http://fakey.com/api/versions")
|
|
|
|
end
|
|
|
|
config.before(:all, :type => :mock_vcloud_model) do
|
2010-05-27 21:27:12 -04:00
|
|
|
@base_url = Fog::Vcloud::Mock.base_url
|
2010-06-17 19:58:09 -04:00
|
|
|
@mock_data = Fog::Vcloud::Mock.data
|
2010-05-03 00:46:43 -04:00
|
|
|
@mock_version = @mock_data[:versions][0]
|
|
|
|
@mock_organization = @mock_data[:organizations][0]
|
|
|
|
@mock_vdc = @mock_organization[:vdcs][0]
|
2010-06-08 21:39:00 -04:00
|
|
|
@mock_network = @mock_vdc[:networks][0]
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:all, :type => :mock_vcloud_request) do
|
|
|
|
@mock_data = Fog::Vcloud::Mock.data
|
|
|
|
@base_url = Fog::Vcloud::Mock.base_url
|
|
|
|
@mock_version = @mock_data[:versions][0]
|
|
|
|
@mock_organization = @mock_data[:organizations][0]
|
|
|
|
@mock_vdc = @mock_organization[:vdcs][0]
|
|
|
|
@mock_network = @mock_vdc[:networks][0]
|
2010-05-27 21:27:12 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:each, :type => :mock_vcloud_request) do
|
|
|
|
@vcloud = Fog::Vcloud.new(:username => "", :password => "bar", :versions_uri => "http://fakey.com/api/versions")
|
2010-05-16 12:09:25 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:each, :type => :mock_tmrk_ecloud_request) do
|
|
|
|
@vcloud = Fog::Vcloud.new(:username => "foo", :password => "bar", :versions_uri => "http://fakey.com/api/versions", :module => "Fog::Vcloud::Terremark::Ecloud")
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:all, :type => :mock_tmrk_ecloud_request) do
|
2010-05-27 21:27:12 -04:00
|
|
|
@base_url = Fog::Vcloud::Terremark::Ecloud::Mock.base_url
|
|
|
|
@mock_data = Fog::Vcloud::Terremark::Ecloud::Mock.data
|
2010-06-17 19:58:09 -04:00
|
|
|
@mock_version = @mock_data[:versions][0]
|
|
|
|
@mock_organization = @mock_data[:organizations][0]
|
|
|
|
@mock_vdc = @mock_organization[:vdcs][0]
|
|
|
|
@mock_network = @mock_vdc[:networks][0]
|
2010-05-27 21:27:12 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.after(:all, :type => :mock_tmrk_ecloud_request) do
|
|
|
|
Fog::Vcloud::Terremark::Ecloud::Mock.data_reset
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:all, :type => :mock_tmrk_ecloud_model) do
|
2010-05-27 21:27:12 -04:00
|
|
|
@base_url = Fog::Vcloud::Terremark::Ecloud::Mock.base_url
|
|
|
|
@mock_data = Fog::Vcloud::Terremark::Ecloud::Mock.data
|
2010-06-17 19:58:09 -04:00
|
|
|
@mock_version = @mock_data[:versions][0]
|
|
|
|
@mock_organization = @mock_data[:organizations][0]
|
|
|
|
@mock_vdc = @mock_organization[:vdcs][0]
|
|
|
|
@mock_network = @mock_vdc[:networks][0]
|
2010-05-27 21:27:12 -04:00
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
config.before(:each, :type => :mock_tmrk_ecloud_model) do
|
|
|
|
@vcloud = Fog::Vcloud.new(:username => "foo", :password => "bar", :versions_uri => "http://fakey.com/api/versions", :module => "Fog::Vcloud::Terremark::Ecloud")
|
2010-05-03 00:46:43 -04:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2010-05-16 12:09:25 -04:00
|
|
|
Spec::Matchers.define :have_only_these_attributes do |expected|
|
|
|
|
match do |actual|
|
|
|
|
attributes = actual.instance_variable_get('@attributes')
|
|
|
|
attributes.all? { |attribute| expected.include?(attribute) } && ( expected.length == attributes.length )
|
|
|
|
end
|
|
|
|
|
|
|
|
failure_message_for_should do |actual|
|
|
|
|
msg = "Expected: [#{expected.map{|e| ":#{e}"}.join(", ")}]\n"
|
|
|
|
msg += "Got: [#{actual.instance_variable_get('@attributes').map{|a| ":#{a}"}.join(", ")}]"
|
|
|
|
msg
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_identity do |expected|
|
|
|
|
match do |actual|
|
|
|
|
actual.instance_variable_get('@identity').should == expected
|
|
|
|
end
|
|
|
|
|
|
|
|
failure_message_for_should do |actual|
|
|
|
|
"Expected: '#{expected}', but got: '#{actual.instance_variable_get('@identity')}'"
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_members_of_the_right_model do
|
|
|
|
match do |actual|
|
|
|
|
actual.all? { |member| member.is_a?(actual.model) }
|
|
|
|
end
|
|
|
|
end
|
2010-06-17 19:58:09 -04:00
|
|
|
|
|
|
|
Spec::Matchers.define :have_key_with_value do |expected_key, expected_value|
|
|
|
|
match do |actual|
|
|
|
|
actual.has_key?(expected_key) && actual[expected_key] == expected_value
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_key_with_array do |expected_key, expected_array|
|
|
|
|
match do |actual|
|
|
|
|
actual[expected_key].all? { |item| expected_array.include?(item) } && actual[expected_key].length == expected_array.length
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_headers_denoting_a_content_type_of do |expected|
|
|
|
|
match do |actual|
|
|
|
|
actual.headers["Content-Type"] == expected
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_keys_with_values do |expected|
|
|
|
|
match do |actual|
|
|
|
|
actual.each_pair.all? do |key, value|
|
|
|
|
expected.keys.include?(key) && expected[key] == value
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :be_a_vapp_link_to do |expected|
|
|
|
|
match do |actual|
|
|
|
|
actual.is_a?(Hash) and
|
|
|
|
actual[:type] == "application/vnd.vmware.vcloud.vApp+xml" and
|
|
|
|
actual[:href] == expected[:href] and
|
|
|
|
actual[:name] == expected[:name]
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :be_a_network_link_to do |expected|
|
|
|
|
match do |actual|
|
|
|
|
actual.is_a?(Hash) and
|
|
|
|
actual[:type] == "application/vnd.vmware.vcloud.network+xml" and
|
|
|
|
actual[:href] == expected[:href] and
|
|
|
|
actual[:name] == expected[:name]
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
Spec::Matchers.define :have_all_attributes_be_nil do
|
|
|
|
match do |actual|
|
|
|
|
actual.class.attributes.all? { |attribute| actual.send(attribute.to_sym) == nil }
|
|
|
|
end
|
|
|
|
end
|