fog-maestrodev 1.15.0.20130927082724 → 1.18.0.20131111203459

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

@@ -1,28 +1,13 @@
 Shindo.tests('Compute::VcloudDirector | session requests', ['vclouddirector']) do
 
-  SESSION_FORMAT = {
-    :xmlns => 'http://www.vmware.com/vcloud/v1.5',
-    :xmlns_xsi => 'http://www.w3.org/2001/XMLSchema-instance',
-    :user => String,
-    :org => String,
-    :type => 'application/vnd.vmware.vcloud.session+xml',
-    :href => String,
-    :xsi_schemaLocation => String,
-    :Link => [{
-      :rel => String,
-      :type => String,
-      :href => String
-    }]
-  }
-
   @service = Fog::Compute::VcloudDirector.new
 
-  tests('#post_login_sessions').formats(SESSION_FORMAT) do
+  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').formats(SESSION_FORMAT) do
+  tests('#get_current_session').data_matches_schema(VcloudDirector::Compute::Schema::SESSION_TYPE) do
     @service.get_current_session.body
   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].detect {|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,91 @@
+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})").returns(Hash) do
+            pending if Fog.mocking?
+            @service.get_vapp(@vapp_id).body.class
+          end
+
+          tests("#get_lease_settings_section_vapp(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @service.get_lease_settings_section_vapp(@vapp_id).body.class
+          end
+          tests("#get_network_config_section_vapp(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @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_startup_section(#{@vapp_id})").returns(Hash) do
+            pending if Fog.mocking?
+            @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
+            pending if Fog.mocking?
+            @service.get_vapp_owner(@vapp_id).body
+          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
+    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

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

@@ -1,90 +1,36 @@
 Shindo.tests('Compute::VcloudDirector | vdc requests', ['vclouddirector']) do
 
-  VDC_FORMAT = {
-    :xmlns => 'http://www.vmware.com/vcloud/v1.5',
-    :xmlns_xsi => 'http://www.w3.org/2001/XMLSchema-instance',
-    :status => String,
-    :name => String,
-    :id => String,
-    :type => 'application/vnd.vmware.vcloud.vdc+xml',
-    :href => String,
-    :xsi_schemaLocation => String,
-    :Link => [{
-      :rel => String,
-      :type => String,
-      :href => String
-    }],
-    :Description => String,
-    :AllocationModel => String,
-    :ComputeCapacity => {
-      :Cpu => {
-        :Units => String,
-        :Allocated => String,
-        :Limit => String,
-        :Reserved => String,
-        :Used => String,
-        :Overhead => String,
-      },
-      :Memory => {
-        :Units => String,
-        :Allocated => String,
-        :Limit => String,
-        :Reserved => String,
-        :Used => String,
-        :Overhead => String
-      }
-    },
-    :ResourceEntities => {
-      :ResourceEntity => [{
-        :type => String,
-        :name => String,
-        :href => String
-      }]
-    },
-    :AvailableNetworks => {
-      :Network => [{
-        :type => String,
-        :name => String,
-        :href => String
-      }]
-    },
-    :Capabilities => {
-      :SupportedHardwareVersions => {
-        :SupportedHardwareVersion => String,
-      }
-    },
-    :NicQuota => String,
-    :NetworkQuota => String,
-    :UsedNetworkCount => String,
-    :VmQuota => String,
-    :IsEnabled => String,
-    # TODO
-    #:VdcStorageProfiles => { # >= 5.1
-    #  :VdcStorageProfile => [{
-    #    :type => String,
-    #    :name => String,
-    #    :href => String
-    #  }]
-    #}
-  }
-
   @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].detect 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 current organization') do
-    session = @service.get_current_session.body
-    org_href = session[:Link].detect {|l| l[:type] == 'application/vnd.vmware.vcloud.org+xml'}[:href]
-    @org = @service.get_organization(org_uuid = org_href.split('/')[-1]).body
+  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_vdc').formats(VDC_FORMAT) do
-    vdc_href = @org[:Link].detect {|l| l[:type] == 'application/vnd.vmware.vcloud.vdc+xml'}[:href]
-    vdc = @service.get_vdc(vdc_href.split('/')[-1]).body
-    vdc[:AvailableNetworks][:Network] = [vdc[:AvailableNetworks][:Network]] if vdc[:AvailableNetworks][:Network].is_a?(Hash)
-    vdc[:ResourceEntities][:ResourceEntity] = [vdc[:ResourceEntities][:ResourceEntity]] if vdc[:ResourceEntities][:ResourceEntity].is_a?(Hash)
-    if vdc.has_key?(:VdcStorageProfiles)
-      vdc[:VdcStorageProfiles][:VdcStorageProfile] = [vdc[:VdcStorageProfiles][:VdcStorageProfile]] if vdc[:VdcStorageProfiles][:VdcStorageProfile].is_a?(Hash)
+  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
-    vdc
+  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

@@ -1,23 +1,8 @@
 Shindo.tests('Compute::VcloudDirector | versions requests', ['vclouddirector']) do
 
-  SUPPORTED_VERSIONS_FORMAT = {
-    :xmlns => 'http://www.vmware.com/vcloud/versions',
-    :xmlns_xsi => 'http://www.w3.org/2001/XMLSchema-instance',
-    :xsi_schemaLocation => String,
-    :VersionInfo => [{
-      :Version => String,
-      :LoginUrl => String,
-      :MediaTypeMapping => [{
-        :MediaType => String,
-        :ComplexTypeName => String,
-        :SchemaLocation => String
-      }]
-    }]
-  }
-
   @service = Fog::Compute::VcloudDirector.new
 
-  tests('#get_supported_versions').formats(SUPPORTED_VERSIONS_FORMAT) do
+  tests('#get_supported_versions').formats(VcloudDirector::Compute::Schema::SUPPORTED_VERSIONS_TYPE) do
     @versions = @service.get_supported_versions.body
   end
 

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

@@ -0,0 +1,125 @@
+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_guest_customization_system_section_vapp(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::GUEST_CUSTOMIZATION_SECTION_TYPE) do
+                pending if Fog.mocking?
+                @service.get_guest_customization_system_section_vapp(vm_id).body
+              end
+              tests("#get_network_connection_system_section_vapp(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_network_connection_system_section_vapp(vm_id).body.class
+              end
+              tests("#get_operating_system_section(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @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_runtime_info_section_type(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::RUNTIME_INFO_SECTION_TYPE) do
+                pending if Fog.mocking?
+                pending # fails if WMware Tools not installed
+                @service.get_runtime_info_section_type(vm_id).body
+              end
+              tests("#get_snapshot_section(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_snapshot_section(vm_id).body.class
+              end
+              tests("#get_vm_capabilities(#{vm_id})").data_matches_schema(VcloudDirector::Compute::Schema::VM_CAPABILITIES_TYPE) do
+                pending if Fog.mocking?
+                @service.get_vm_capabilities(vm_id).body
+              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
+                pending if Fog.mocking?
+                @service.get_cpu_rasd_item(vm_id).body.class
+              end
+              tests("#get_disks_rasd_items_list(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_disks_rasd_items_list(vm_id).body.class
+              end
+              tests("#get_media_drives_rasd_items_list(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_media_drives_rasd_items_list(vm_id).body.class
+              end
+              tests("#get_memory_rasd_item(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @service.get_memory_rasd_item(vm_id).body.class
+              end
+              tests("#get_network_cards_items_list(#{vm_id})").returns(Hash) do
+                pending if Fog.mocking?
+                @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