fog--fog/tests/vcloud_director/requests/compute/vm_tests.rb

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
      if @vdc[:ResourceEntities].is_a?(String)
        @vdc[:ResourceEntities] = {:ResourceEntity => []}
      elsif @vdc[:ResourceEntities][:ResourceEntity].is_a?(Hash)
        @vdc[:ResourceEntities][:ResourceEntity] = [@vdc[:ResourceEntities][:ResourceEntity]]
      end
      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
          vapp[:Children][:Vm] = [vapp[:Children][:Vm]] if vapp[:Children][:Vm].is_a?(Hash)

          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').data_matches_schema(VcloudDirector::Compute::Schema::CONTAINER_TYPE) do
    pending if Fog.mocking?
    @service.get_vms_in_lease_from_query.body
  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