fog-vcloud-director 0.1.0

data/tests/vcloud_director/requests/compute/session_tests.rb

@@ -0,0 +1,14 @@
+Shindo.tests('Compute::VcloudDirector | session requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+
+  tests('#post_login_sessions').data_matches_schema(VcloudDirector::Compute::Schema::SESSION_TYPE) do
+    pending
+    @service.login.body # calls post_login_sessions
+  end
+
+  tests('#get_current_session').data_matches_schema(VcloudDirector::Compute::Schema::SESSION_TYPE) do
+    @service.get_current_session.body
+  end
+
+end

data/tests/vcloud_director/requests/compute/supported_systems_tests.rb

@@ -0,0 +1,11 @@
+Shindo.tests('Compute::VcloudDirector | supported_systems requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+
+  if @service.api_version.to_f >= 5.1
+    tests('#get_supported_systems_info').formats(VcloudDirector::Compute::Schema::SUPPORTED_OPERATING_SYSTEMS_INFO_TYPE) do
+      @service.get_supported_systems_info.body
+    end
+  end
+
+end

data/tests/vcloud_director/requests/compute/task_tests.rb

@@ -0,0 +1,35 @@
+Shindo.tests('Compute::VcloudDirector | task requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+
+  tests('error conditions') do
+    tests('retrieve non-existent TasksList').raises(Fog::Compute::VcloudDirector::Forbidden) do
+      @service.get_task_list('00000000-0000-0000-0000-000000000000')
+    end
+    tests('retrieve non-existent Task').raises(Fog::Compute::VcloudDirector::Forbidden) do
+      @service.get_task('00000000-0000-0000-0000-000000000000')
+    end
+    tests('cancel non-existent Task').raises(Fog::Compute::VcloudDirector::Forbidden) do
+      @service.post_cancel_task('00000000-0000-0000-0000-000000000000')
+    end
+  end
+
+  @org_id = VcloudDirector::Compute::Helper.current_org_id(@service)
+
+  tests('#get_task_list').data_matches_schema(VcloudDirector::Compute::Schema::TASKS_LIST_TYPE) do
+    session = @service.get_current_session.body
+    org_href = session[:Link].find {|l| l[:type] == 'application/vnd.vmware.vcloud.org+xml'}[:href]
+    @org_uuid = org_href.split('/').last
+    @tasks_list = @service.get_task_list(@org_uuid).body
+  end
+
+  tests('each task in the task list') do
+    @tasks_list[:Task].each do |task|
+      task_id = task[:href].split('/').last
+      tests("#get_task(#{task_id}").data_matches_schema(VcloudDirector::Compute::Schema::TASK_TYPE) do
+        @service.get_task(task_id).body
+      end
+    end
+  end
+
+end

data/tests/vcloud_director/requests/compute/users_tests.rb

@@ -0,0 +1,18 @@
+Shindo.tests('Compute::VcloudDirector | users requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+
+  tests('#get_users_from_query') do
+    pending if Fog.mocking?
+    %w[idrecords records references].each do |format|
+      tests(":format => #{format}") do
+        tests('#body').data_matches_schema(VcloudDirector::Compute::Schema::CONTAINER_TYPE) do
+          @body = @service.get_users_from_query(:format => format).body
+        end
+        key = (format == 'references') ? 'UserReference' : 'UserRecord'
+        tests("#body.key?(:#{key})").returns(true) { @body.key?(key.to_sym) }
+      end
+    end
+  end
+
+end

data/tests/vcloud_director/requests/compute/vapp_tests.rb

@@ -0,0 +1,123 @@
+Shindo.tests('Compute::VcloudDirector | vapp requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+  @org = VcloudDirector::Compute::Helper.current_org(@service)
+
+  tests('Each vDC') do
+    @org[:Link].select do |l|
+      l[:type] == 'application/vnd.vmware.vcloud.vdc+xml'
+    end.each do |link|
+      @vdc = @service.get_vdc(link[:href].split('/').last).body
+      tests('Each vApp') do
+        @vdc[:ResourceEntities][:ResourceEntity].select do |r|
+          r[:type] == 'application/vnd.vmware.vcloud.vApp+xml'
+        end.each do |v|
+          @vapp_id = v[:href].split('/').last
+
+          #tests("#get_vapp(#{@vapp_id})").data_matches_schema(VcloudDirector::Compute::Schema::VAPP_TYPE) do
+          tests("#get_vapp(#{@vapp_id}).body").returns(Hash) do
+            @service.get_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:name]").returns(String) do
+            @service.get_vapp(@vapp_id).body[:name].class
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:href]").returns(v[:href]) do
+            @service.get_vapp(@vapp_id).body[:href]
+          end
+
+          tests("#get_lease_settings_section_vapp(#{@vapp_id})").returns(Hash) do
+            @service.get_lease_settings_section_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_lease_settings_section_vapp(#{@vapp_id}).body[:DeploymentLeaseInSeconds] is >= 0").returns(true) do
+            Integer(@service.get_lease_settings_section_vapp(@vapp_id).body[:DeploymentLeaseInSeconds]) >= 0
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:LeaseSettingsSection[:DeploymentLeaseInSeconds] is >= 0").returns(true) do
+            Integer(@service.get_vapp(@vapp_id).body[:LeaseSettingsSection][:DeploymentLeaseInSeconds]) >= 0
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:NetworkConfigSection]").returns(Hash) do
+            @service.get_vapp(@vapp_id).body[:NetworkConfigSection].class
+          end
+
+          tests("#get_network_config_section_vapp(#{@vapp_id})").returns(Hash) do
+            @service.get_network_config_section_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_network_section_vapp(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @service.get_network_section_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_product_sections_vapp(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @service.get_product_sections_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:'ovf:StartupSection']").returns(Hash) do
+            @service.get_vapp(@vapp_id).body[:"ovf:StartupSection"].class
+          end
+
+          tests("#put_product_sections(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @service.put_product_sections(@vapp_id, ["a" => "1"]).body.class
+          end
+
+          tests("#get_startup_section(#{@vapp_id})").returns(Hash) do
+            @service.get_startup_section(@vapp_id).body.class
+          end
+
+          tests("#get_vapp_metadata(#{@vapp_id})").data_matches_schema(VcloudDirector::Compute::Schema::METADATA_TYPE) do
+            pending if Fog.mocking?
+            @service.get_vapp_metadata(@vapp_id).body
+          end
+
+          tests("#get_vapp_owner(#{@vapp_id})").data_matches_schema(VcloudDirector::Compute::Schema::OWNER_TYPE) do
+            @service.get_vapp_owner(@vapp_id).body
+          end
+
+          tests("#get_vapp(#{@vapp_id}).body[:Owner]").data_matches_schema(VcloudDirector::Compute::Schema::OWNER_TYPE) do
+            @service.get_vapp(@vapp_id).body[:Owner]
+          end
+
+          tests("#get_control_access_params_vapp(#{@vapp_id})").data_matches_schema(VcloudDirector::Compute::Schema::CONTROL_ACCESS_PARAMS_TYPE) do
+            pending if Fog.mocking?
+            @service.get_control_access_params_vapp(@vapp_id).body
+          end
+
+        end
+      end
+    end
+  end
+
+  tests('#get_vapps_in_lease_from_query') do
+    pending if Fog.mocking?
+    %w[idrecords records references].each do |format|
+      tests(":format => #{format}") do
+        tests('#body').data_matches_schema(VcloudDirector::Compute::Schema::CONTAINER_TYPE) do
+          @body = @service.get_vapps_in_lease_from_query(:format => format).body
+        end
+        key = (format == 'references') ? 'VAppReference' : 'VAppRecord'
+        tests("#body.key?(:#{key})").returns(true) { @body.key?(key.to_sym) }
+      end
+    end
+  end
+
+  tests('Retrieve non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+    pending if Fog.mocking?
+    @service.get_vapp('00000000-0000-0000-0000-000000000000')
+  end
+
+  tests('Retrieve owner of non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+    @service.get_vapp_owner('00000000-0000-0000-0000-000000000000')
+  end
+
+  tests('Delete non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+    pending if Fog.mocking?
+    @service.delete_vapp('00000000-0000-0000-0000-000000000000')
+  end
+
+end

data/tests/vcloud_director/requests/compute/vdc_storage_profile_tests.rb

@@ -0,0 +1,27 @@
+Shindo.tests('Compute::VcloudDirector | vdc_storage_profile requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+  @org = VcloudDirector::Compute::Helper.current_org(@service)
+  @vdc_id = VcloudDirector::Compute::Helper.first_vdc_id(@org)
+  @vdc = @service.get_vdc(@vdc_id).body
+
+  @vdc[:VdcStorageProfiles][:VdcStorageProfile].each do |storage_profile|
+    @vdc_storage_profile_id = storage_profile[:href].split('/').last
+
+    tests(storage_profile[:name]) do
+      tests("#get_vdc_storage_class").data_matches_schema(VcloudDirector::Compute::Schema::VDC_STORAGE_PROFILE_TYPE) do
+        @service.get_vdc_storage_class(@vdc_storage_profile_id).body
+      end
+
+      tests('#get_vdc_storage_class_metadata').data_matches_schema(VcloudDirector::Compute::Schema::METADATA_TYPE) do
+        pending if Fog.mocking?
+        @service.get_vdc_storage_class_metadata(@vdc_storage_profile_id).body
+      end
+    end
+  end
+
+  tests('Retrieve non-existent vDC storage profile').raises(Fog::Compute::VcloudDirector::Forbidden) do
+    @service.get_vdc_storage_class('00000000-0000-0000-0000-000000000000')
+  end
+
+end

data/tests/vcloud_director/requests/compute/vdc_tests.rb

@@ -0,0 +1,36 @@
+Shindo.tests('Compute::VcloudDirector | vdc requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+  @org = VcloudDirector::Compute::Helper.current_org(@service)
+
+  tests('#get_vdc').data_matches_schema(VcloudDirector::Compute::Schema::VDC_TYPE) do
+    link = @org[:Link].find do |l|
+      l[:rel] == 'down' && l[:type] == 'application/vnd.vmware.vcloud.vdc+xml'
+    end
+    @vdc_id = link[:href].split('/').last
+    @service.get_vdc(@vdc_id).body
+  end
+
+  tests('#get_vdc_metadata').data_matches_schema(VcloudDirector::Compute::Schema::METADATA_TYPE) do
+    pending if Fog.mocking?
+    @service.get_vdc_metadata(@vdc_id).body
+  end
+
+  tests('#get_vdcs_from_query') do
+    pending if Fog.mocking?
+    %w[idrecords records references].each do |format|
+      tests(":format => #{format}") do
+        tests('#body').data_matches_schema(VcloudDirector::Compute::Schema::CONTAINER_TYPE) do
+          @body = @service.get_vdcs_from_query(:format => format).body
+        end
+        key = (format == 'references') ? 'OrgVdcReference' : 'OrgVdcRecord'
+        tests("#body.key?(:#{key})").returns(true) { @body.key?(key.to_sym) }
+      end
+    end
+  end
+
+  tests('Retrieve non-existent vDC').raises(Fog::Compute::VcloudDirector::Forbidden) do
+    @service.get_vdc('00000000-0000-0000-0000-000000000000')
+  end
+
+end

data/tests/vcloud_director/requests/compute/versions_tests.rb

@@ -0,0 +1,13 @@
+Shindo.tests('Compute::VcloudDirector | versions requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+
+  tests('#get_supported_versions').formats(VcloudDirector::Compute::Schema::SUPPORTED_VERSIONS_TYPE) do
+    @versions = @service.get_supported_versions.body
+  end
+
+  tests('API 5.1 is supported').returns(true) do
+    !!@versions[:VersionInfo].find {|i| i[:Version] == '5.1'}
+  end
+
+end

data/tests/vcloud_director/requests/compute/vm_tests.rb

@@ -0,0 +1,185 @@
+Shindo.tests('Compute::VcloudDirector | vm requests', ['vclouddirector']) do
+
+  @service = Fog::Compute::VcloudDirector.new
+  @org = VcloudDirector::Compute::Helper.current_org(@service)
+
+  tests('Each vDC') do
+    @org[:Link].select do |l|
+      l[:type] == 'application/vnd.vmware.vcloud.vdc+xml'
+    end.each do |link|
+      @vdc = @service.get_vdc(link[:href].split('/').last).body
+      tests('Each vApp') do
+        @vdc[:ResourceEntities][:ResourceEntity].select do |r|
+          r[:type] == 'application/vnd.vmware.vcloud.vApp+xml'
+        end.each do |vapp|
+          vapp_id = vapp[:href].split('/').last
+          vapp = @service.get_vapp(vapp_id).body
+
+          tests('Each VM') do
+
+            vapp[:Children][:Vm].each do |vm|
+              vm_id = vm[:href].split('/').last
+
+              tests("#get_vapp(#{vm_id}).body").returns(Hash) do
+                @service.get_vapp(vm_id).body.class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:name]").returns(String) do
+                @service.get_vapp(vm_id).body[:name].class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:href]").returns(vm[:href]) do
+                @service.get_vapp(vm_id).body[:href]
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:GuestCustomizationSection]").returns(Hash) do
+                @service.get_vapp(vm_id).body[:GuestCustomizationSection].class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:GuestCustomizationSection]").data_matches_schema(VcloudDirector::Compute::Schema::GUEST_CUSTOMIZATION_SECTION_TYPE) do
+                @service.get_vapp(vm_id).body[:GuestCustomizationSection]
+              end
+
+              tests("#get_guest_customization_system_section_vapp(#{vm_id})").returns(Hash) do
+                @service.get_guest_customization_system_section_vapp(vm_id).body.class
+              end
+
+              tests("#get_guest_customization_system_section_vapp(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::GUEST_CUSTOMIZATION_SECTION_TYPE) do
+                @service.get_guest_customization_system_section_vapp(vm_id).body
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:NetworkConnectionSection]").returns(Hash) do
+                @service.get_vapp(vm_id).body[:NetworkConnectionSection].class
+              end
+
+              tests("#get_network_connection_system_section_vapp(#{vm_id})").returns(Hash) do
+                @service.get_network_connection_system_section_vapp(vm_id).body.class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:'ovf:OperatingSystemSection']").returns(Hash) do
+                @service.get_vapp(vm_id).body[:'ovf:OperatingSystemSection'].class
+              end
+
+              tests("#get_operating_system_section(#{vm_id})").returns(Hash) do
+                @service.get_operating_system_section(vm_id).body.class
+              end
+
+              tests("#get_product_sections_vapp(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_product_sections_vapp(vm_id).body.class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:RuntimeInfoSection]").data_matches_schema(VcloudDirector::Compute::Schema::RUNTIME_INFO_SECTION_TYPE) do
+                @service.get_vapp(vm_id).body[:RuntimeInfoSection]
+              end
+
+              tests("#get_runtime_info_section_type(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::RUNTIME_INFO_SECTION_TYPE) do
+                @service.get_runtime_info_section_type(vm_id).body
+              end
+
+              tests("#get_snapshot_section(#{vm_id})").returns(Hash) do
+                @service.get_snapshot_section(vm_id).body.class
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:VmCapabilities]").data_matches_schema(VcloudDirector::Compute::Schema::VM_CAPABILITIES_TYPE) do
+                @service.get_vapp(vm_id).body[:VmCapabilities]
+              end
+
+              tests("#get_vm_capabilities(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::VM_CAPABILITIES_TYPE) do
+                @service.get_vm_capabilities(vm_id).body
+              end
+
+              tests("#get_vapp(#{vm_id}).body[:'ovf:VirtualHardwareSection']").returns(Hash) do
+                @section = @service.get_vapp(vm_id).body[:'ovf:VirtualHardwareSection'].class
+              end
+
+              tests("#get_virtual_hardware_section(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @section = @service.get_virtual_hardware_section(vm_id).body.class
+              end
+
+              tests("#get_cpu_rasd_item(#{vm_id})").returns(Hash) do
+                @service.get_cpu_rasd_item(vm_id).body.class
+              end
+
+              tests("#get_disks_rasd_items_list(#{vm_id})").returns(Hash) do
+                @service.get_disks_rasd_items_list(vm_id).body.class
+              end
+
+              tests("#get_disks_rasd_items_list(#{vm_id}).body[:Item]").returns(Array) do
+                @service.get_disks_rasd_items_list(vm_id).body[:Item].class
+              end
+
+              tests("#get_media_drives_rasd_items_list(#{vm_id})").returns(Hash) do
+                @service.get_media_drives_rasd_items_list(vm_id).body.class
+              end
+
+              tests("#get_media_drives_rasd_items_list(#{vm_id}).body[:Item]").returns(Array) do
+                @service.get_media_drives_rasd_items_list(vm_id).body[:Item].class
+              end
+
+              tests("#get_memory_rasd_item(#{vm_id})").returns(Hash) do
+                @service.get_memory_rasd_item(vm_id).body.class
+              end
+
+              tests("#get_vapp(#{vm_id}) ovf:VirtualHardwareSection has a Network adapter listed").returns(Hash) do
+                @service.get_vapp(vm_id).body[:'ovf:VirtualHardwareSection'][:'ovf:Item'].detect do |rasd_item|
+                  rasd_item[:'rasd:ElementName'] =~ /^Network adapter/
+                end.class
+              end
+
+              tests("#get_network_cards_items_list(#{vm_id})").returns(Hash) do
+                @service.get_network_cards_items_list(vm_id).body.class
+              end
+
+              tests("#get_serial_ports_items_list(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_serial_ports_items_list(vm_id).body.class
+              end
+
+              tests("#get_vapp_metadata(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::METADATA_TYPE) do
+                pending if Fog.mocking?
+                @service.get_vapp_metadata(vm_id).body
+              end
+
+              tests("#post_acquire_ticket(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::METADATA_TYPE) do
+                pending # result depends on power state
+                @service.post_acquire_ticket(vm_id).body
+              end
+
+            end
+          end
+        end
+      end
+    end
+  end
+
+  tests('#get_vms_in_lease_from_query') do
+    pending if Fog.mocking?
+    %w[idrecords records references].each do |format|
+      tests(":format => #{format}") do
+        tests('#body').data_matches_schema(VcloudDirector::Compute::Schema::CONTAINER_TYPE) do
+          @body = @service.get_vms_in_lease_from_query(:format => format).body
+        end
+        key = (format == 'references') ? 'VMReference' : 'VMRecord'
+        tests("#body.key?(:#{key})").returns(true) { @body.key?(key.to_sym) }
+      end
+    end
+  end
+
+  #tests('Retrieve non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+  #  pending if Fog.mocking?
+  #  @service.get_vapp('00000000-0000-0000-0000-000000000000')
+  #end
+
+  #tests('Retrieve owner of non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+  #  pending if Fog.mocking?
+  #  @service.get_vapp_owner('00000000-0000-0000-0000-000000000000')
+  #end
+
+  #tests('Delete non-existent vApp').raises(Fog::Compute::VcloudDirector::Forbidden) do
+  #  pending if Fog.mocking?
+  #  @service.delete_vapp('00000000-0000-0000-0000-000000000000')
+  #end
+
+end