fog-maestrodev 1.8.0.20130114204828 → 1.14.0.20130806165225

data/tests/hp/requests/compute/security_group_rule_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Compute[:hp] | security group requests', ["hp"]) do
+Shindo.tests("Fog::Compute[:hp] | security group requests", ['hp']) do
 
   @security_group_rule_format = {
     'from_port'       => Integer,

data/tests/hp/requests/compute/security_group_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Compute[:hp] | security group requests', ["hp"]) do
+Shindo.tests("Fog::Compute[:hp] | security group requests", ['hp']) do
 
   @security_groups_format = {
     'security_groups' => [{

data/tests/hp/requests/compute/server_address_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Compute[:hp] | address requests', ["hp"]) do
+Shindo.tests("Fog::Compute[:hp] | address requests", ['hp']) do
 
   @base_image_id = ENV["BASE_IMAGE_ID"] || 1242
 

data/tests/hp/requests/compute/server_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Compute[:hp] | server requests', ["hp"]) do
+Shindo.tests("Fog::Compute[:hp] | server requests", ['hp']) do
 
   @server_format = {
     'addresses'   => Fog::Nullable::Hash,
@@ -19,7 +19,7 @@ Shindo.tests('Fog::Compute[:hp] | server requests', ["hp"]) do
     'tenant_id'   => String,
     'uuid'        => String,
     'config_drive' => Fog::Nullable::String,
-    #'security_groups' => [Hash],
+    'security_groups' => [Hash],
     'key_name'    => Fog::Nullable::String
   }
 
@@ -31,7 +31,7 @@ Shindo.tests('Fog::Compute[:hp] | server requests', ["hp"]) do
   }
 
   @get_console_output_format = {
-
+    'output' => String
   }
 
   @base_image_id = ENV["BASE_IMAGE_ID"] || 1242
@@ -87,9 +87,8 @@ Shindo.tests('Fog::Compute[:hp] | server requests', ["hp"]) do
 
     Fog::Compute[:hp].servers.get(@server_id).wait_for { ready? }
 
-    tests("#get_console_output('#{@server_id}')").formats(@get_console_output_format) do
-      pending
-      Fog::Compute[:hp].get_console_output(@server_id).body
+    tests("#get_console_output('#{@server_id}', 10)").formats(@get_console_output_format) do
+      Fog::Compute[:hp].get_console_output(@server_id, 10).body
     end
 
     Fog::Compute[:hp].servers.get(@server_id).wait_for { ready? }

data/tests/hp/requests/compute/server_volume_tests.rb

@@ -0,0 +1,76 @@
+Shindo.tests("Fog::Compute[:hp] | volume requests", ['hp', 'compute', 'volumes']) do
+
+  @list_volume_attachments_format = {
+    'volumeAttachments' => [{
+      'device'   => String,
+      'serverId' => Integer,
+      'id'       => Integer,
+      'volumeId' => Integer
+    }]
+  }
+
+  @volume_attachment_format = {
+    'volumeAttachment' => {
+      "volumeId" => Integer,
+      "id"       => Integer
+    }
+  }
+
+  @base_image_id = ENV["BASE_IMAGE_ID"] || 1242
+
+  @server = Fog::Compute[:hp].servers.create(:name => 'fogservoltests', :flavor_id => 100, :image_id => @base_image_id)
+  @server.wait_for { ready? }
+
+  tests('success') do
+    response = HP[:block_storage].create_volume('fogvoltest', 'fogvoltest desc', 1)
+    @volume_id = response.body['volume']['id']
+    @device = "\/dev\/sdf"
+
+    HP[:block_storage].volumes.get(@volume_id).wait_for { ready? }
+    tests("#attach_volume(#{@server.id}, #{@volume_id}, #{@device}").formats(@volume_attachment_format) do
+      Fog::Compute[:hp].attach_volume(@server.id, @volume_id, @device).body
+    end
+
+    HP[:block_storage].volumes.get(@volume_id).wait_for { in_use? } unless Fog.mocking?
+    tests("#detach_volume(#{@server.id}, #{@volume_id}").succeeds do
+      Fog::Compute[:hp].detach_volume(@server.id, @volume_id)
+    end
+
+    HP[:block_storage].volumes.get(@volume_id).wait_for { ready? }
+    tests("#list_server_volumes(#{@server.id})").formats(@list_volume_attachments_format) do
+      Fog::Compute[:hp].list_server_volumes(@server.id).body
+    end
+
+  end
+
+
+  tests('failure') do
+
+    tests("#list_server_volumes(0)").raises(Fog::Compute::HP::NotFound) do
+      Fog::Compute[:hp].list_server_volumes(0)
+    end
+
+    tests("#attach_volume(#{@server.id}, 0, #{@device})").raises(Fog::Compute::HP::NotFound) do
+      pending if Fog.mocking?
+      Fog::Compute[:hp].attach_volume(@server.id, 0, @device)
+    end
+
+    tests("#attach_volume(0, #{@volume_id}, #{@device})").raises(Fog::Compute::HP::NotFound) do
+      Fog::Compute[:hp].attach_volume(0, @volume_id, @device)
+    end
+
+    tests("#detach_volume(#{@server.id}, 0)").raises(Fog::Compute::HP::NotFound) do
+      pending if Fog.mocking?
+      Fog::Compute[:hp].detach_volume(@server.id, 0)
+    end
+
+    tests("#detach_volume(0, #{@volume_id})").raises(Fog::Compute::HP::NotFound) do
+      Fog::Compute[:hp].detach_volume(0, @volume_id)
+    end
+
+  end
+
+  HP[:block_storage].delete_volume(@volume_id)
+  Fog::Compute[:hp].delete_server(@server.id)
+
+end

data/tests/hp/requests/storage/container_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Storage[:hp] | container requests', ["hp"]) do
+Shindo.tests("Fog::Storage[:hp] | container requests", ['hp']) do
 
   @container_format = [String]
 

data/tests/hp/requests/storage/object_tests.rb

@@ -1,4 +1,4 @@
-Shindo.tests('Fog::Storage[:hp] | object requests', ["hp"]) do
+Shindo.tests("Fog::Storage[:hp] | object requests", ['hp', 'storage']) do
 
   @directory = Fog::Storage[:hp].directories.create(:key => 'fogobjecttests')
   @dir_name = @directory.identity
@@ -25,6 +25,10 @@ Shindo.tests('Fog::Storage[:hp] | object requests', ["hp"]) do
       Fog::Storage[:hp].head_object(@dir_name, 'fog_object')
     end
 
+    tests("#get_object_temp_url('#{@dir_name}', 'fog_object', 60, 'GET')").succeeds do
+      Fog::Storage[:hp].get_object_temp_url(@dir_name, 'fog_object', 60, 'GET')
+    end
+
     # copy a file within the same container
     tests("#put_object('#{@dir_name}', 'fog_other_object', nil, {'X-Copy-From' => '/#{@dir_name}/fog_object'})" ).succeeds do
       Fog::Storage[:hp].put_object(@dir_name, 'fog_other_object', nil, {'X-Copy-From' => "/#{@dir_name}/fog_object"})
@@ -58,6 +62,10 @@ Shindo.tests('Fog::Storage[:hp] | object requests', ["hp"]) do
       Fog::Storage[:hp].get_object('fognoncontainer', 'fog_non_object')
     end
 
+    tests("#get_object_temp_url('#{@dir_name}', 'fog_object', 60, 'POST')").raises(ArgumentError) do
+      Fog::Storage[:hp].get_object_temp_url(@dir_name, 'fog_object', 60, 'POST')
+    end
+
     tests("#head_object('#{@dir_name}', 'fog_non_object')").raises(Fog::Storage::HP::NotFound) do
       Fog::Storage[:hp].head_object(@dir_name, 'fog_non_object')
     end

data/tests/hp/user_agent_tests.rb

@@ -0,0 +1,13 @@
+Shindo.tests('Fog::Compute[:hp] | user agent', ['hp', 'user_agent']) do
+  tests('default for HP providers').returns("hpfog/#{Fog::HP::VERSION}") do
+    pending if Fog.mocking?
+    conn = Fog::Compute[:hp]
+    conn.instance_variable_get(:@connection_options)[:headers]['User-Agent']
+  end
+
+  tests('overriden by clients').returns("hpfog/#{Fog::HP::VERSION} (TesterClient/1.0.0)") do
+    pending if Fog.mocking?
+    conn = Fog::Compute::HP.new(:user_agent => "TesterClient/1.0.0")
+    conn.instance_variable_get(:@connection_options)[:headers]['User-Agent']
+  end
+end

data/tests/internet_archive/models/storage/directory_tests.rb

@@ -0,0 +1,43 @@
+Shindo.tests("Storage[:internet_archive] | directory", ["internet_archive"]) do
+
+  directory_attributes = {
+    :key => "fogdirectorytests-#{rand(65536)}",
+    :collections => ['test_collection']
+  }
+
+  tests('success') do
+    params = directory_attributes
+    mocks_implemented = Fog.mocking?
+
+    collection = Fog::Storage[:internetarchive].directories
+    @instance = collection.new(params)
+
+    tests("#save").succeeds do
+      pending if Fog.mocking? && !mocks_implemented
+      @instance.save
+    end
+
+    tests("#public_url").returns("http://archive.org/details/#{directory_attributes[:key]}") do
+      @instance.public_url
+    end
+
+  end
+
+  tests("#set_metadata_array_headers") do
+    params = directory_attributes
+
+    collection = Fog::Storage[:internetarchive].directories
+    @instance = collection.new(params)
+
+    @instance.collections = ['test_collection', 'opensource']
+    @options = {}
+    @instance.set_metadata_array_headers(:collections, @options)
+
+    tests("#set_metadata_array_headers should set options").returns(true) do
+      @options['x-archive-meta01-collection'] == 'opensource' &&
+      @options['x-archive-meta02-collection'] == 'test_collection'
+    end
+  end
+
+
+end

data/tests/internet_archive/models/storage/file_tests.rb

@@ -0,0 +1,61 @@
+Shindo.tests("Storage[:internet_archive] | file", ["internet_archive"]) do
+
+  # Fog.mock!
+
+  require 'tempfile'
+
+  file_attributes = {
+    :key => 'fog_file_tests',
+    :body => lorem_file,
+    :public => true,
+    :auto_make_bucket => 1,
+  }
+
+  directory_attributes = {
+    # Add a random suffix to prevent collision
+    :key => "fogfilestests-#{rand(65536)}",
+    :collections => ['test_collection']
+  }
+
+  @directory = Fog::Storage[:internetarchive].directories.create(directory_attributes)
+
+  model_tests(@directory.files, file_attributes, Fog.mocking?) do
+
+    tests("#set_metadata_array_headers") do
+
+      @instance.collections = ['test_collection', 'opensource']
+      @options = {}
+      @instance.set_metadata_array_headers(:collections, @options)
+
+      tests("#set_metadata_array_headers should set options").returns(true) do
+        @options['x-archive-meta01-collection'] == 'opensource' &&
+        @options['x-archive-meta02-collection'] == 'test_collection'
+      end
+    end
+
+  end
+
+  model_tests(@directory.files, file_attributes, Fog.mocking?) do
+
+    tests("multipart upload") do
+      pending if Fog.mocking?
+
+      # A 6MB file
+      @large_file = Tempfile.new("fog-test-ia-s3-multipart")
+      6.times { @large_file.write("x" * (1024**2)) }
+      @large_file.rewind
+
+      tests("#save(:multipart_chunk_size => 5242880)").succeeds do
+        @directory.files.create(:key => 'multipart-upload', :body => @large_file, :multipart_chunk_size => 5242880)
+      end
+
+      @large_file.close
+
+    end
+
+  end
+
+  # @directory.versions.each(&:destroy)
+  @directory.destroy
+
+end

data/tests/internet_archive/models/storage/files_tests.rb

@@ -0,0 +1,58 @@
+Shindo.tests("Storage[:internet_archive] | files", ["internet_archive"]) do
+
+  file_attributes = {
+      :key => 'fog_file_tests',
+      :body => lorem_file,
+      :public => true,
+      :auto_make_bucket => 1,
+      :collections => ['test_collection']
+  }
+
+  directory_attributes = {
+      :key => "fogfilestests-#{rand(65536)}"
+  }
+
+  @directory = Fog::Storage[:internetarchive].directories.create(directory_attributes)
+  # @directory.versioning = true
+
+  model_tests(@directory.files, file_attributes, Fog.mocking?) do
+
+    @instance
+    # v2 = @directory.connection.put_object(@directory.key, @instance.key, 'version 2 content').headers['x-amz-version-id']
+    # v3 = @directory.connection.delete_object(@directory.key, @instance.key).headers['x-amz-version-id']
+    # v4 = @directory.connection.put_object(@directory.key, @instance.key, 'version 3 content').headers['x-amz-version-id']
+
+    # tests("#get") do
+    #   tests("#get without version fetches the latest version").returns(v4) do
+    #     @directory.files.get(@instance.key).version
+    #   end
+
+    #   tests("#get with version fetches that exact version").returns(v2) do
+    #     @directory.files.get(@instance.key, 'versionId' => v2).version
+    #   end
+
+    #   tests("#get with a deleted version returns nil").returns(nil) do
+    #     @directory.files.get(@instance.key, 'versionId' => v3)
+    #   end
+    # end
+
+    # tests("#head") do
+    #   tests("#head without version fetches the latest version").returns(v4) do
+    #     @directory.files.head(@instance.key).version
+    #   end
+
+    #   tests("#head with version fetches that exact version").returns(v2) do
+    #     @directory.files.head(@instance.key, 'versionId' => v2).version
+    #   end
+
+    #   tests("#head with a deleted version returns nil").returns(nil) do
+    #     @directory.files.head(@instance.key, 'versionId' => v3)
+    #   end
+    # end
+
+  end
+
+  # @directory.versions.each(&:destroy)
+  # @directory.destroy
+
+end

data/tests/internet_archive/models/storage/url_tests.rb

@@ -0,0 +1,28 @@
+# encoding: utf-8
+
+Shindo.tests('InternetArchive | url', ["internet_archive"]) do
+
+  @expires = Time.utc(2013,1,1).utc.to_i
+
+  @storage = Fog::Storage.new(
+    :provider => 'InternetArchive',
+    :ia_access_key_id => '123',
+    :ia_secret_access_key => 'abc',
+    :region => 'us-east-1'
+  )
+  
+  @file = @storage.directories.new(:key => 'fognonbucket').files.new(:key => 'test.txt')
+
+  if Fog.mock?
+    signature = Fog::Storage::InternetArchive.new.signature(nil)
+  else
+    signature = 'tajHIhKHAdFYsigmzybCpaq8N0Q%3D'
+  end
+
+  tests('#url w/ response-cache-control').returns(
+    "http://fognonbucket.s3.us.archive.org/test.txt?response-cache-control=No-cache&AWSAccessKeyId=123&Signature=#{signature}&Expires=1356998400"
+  ) do
+    @file.url(@expires, :query => { 'response-cache-control' => 'No-cache' })
+  end
+
+end

data/tests/internet_archive/requests/storage/acl_utils_tests.rb

@@ -0,0 +1,209 @@
+require 'fog/internet_archive/requests/storage/acl_utils'
+
+Shindo.tests('Fog::Storage::InternetArchive | ACL utils', ["internet_archive"]) do
+  tests(".hash_to_acl") do
+    tests(".hash_to_acl({}) at xpath //AccessControlPolicy").returns("", "has an empty AccessControlPolicy") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl({})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy").first.content.chomp
+    end
+
+    tests(".hash_to_acl({}) at xpath //AccessControlPolicy/Owner").returns(nil, "does not have an Owner element") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl({})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner").first
+    end
+
+    tests(".hash_to_acl('Owner' => {}) at xpath //AccessControlPolicy/Owner").returns(nil, "does not have an Owner element") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl('Owner' => {})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner").first
+    end
+
+    tests(".hash_to_acl('Owner' => {'ID' => 'abcdef0123456789'}) at xpath //AccessControlPolicy/Owner/ID").returns("abcdef0123456789", "returns the Owner ID") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl('Owner' => {'ID' => 'abcdef0123456789'})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner/ID").first.content
+    end
+
+    tests(".hash_to_acl('Owner' => {'DisplayName' => 'bob'}) at xpath //AccessControlPolicy/Owner/ID").returns(nil, "does not have an Owner ID element") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl('Owner' => {'DisplayName' => 'bob'})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner/ID").first
+    end
+
+    tests(".hash_to_acl('Owner' => {'DisplayName' => 'bob'}) at xpath //AccessControlPolicy/Owner/DisplayName").returns("bob", "returns the Owner DisplayName") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl('Owner' => {'DisplayName' => 'bob'})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner/DisplayName").first.content
+    end
+
+    tests(".hash_to_acl('Owner' => {'ID' => 'abcdef0123456789'}) at xpath //AccessControlPolicy/Owner/DisplayName").returns(nil, "does not have an Owner DisplayName element") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl('Owner' => {'ID' => 'abcdef0123456789'})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/Owner/DisplayName").first
+    end
+
+    tests(".hash_to_acl({}) at xpath //AccessControlPolicy/AccessControlList").returns(nil, "has no AccessControlList") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl({})
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlPolicy").first
+    end
+
+    acl = {
+      'AccessControlList' => [
+        {
+          'Grantee' => {
+            'ID' => 'abcdef0123456789',
+            'DisplayName' => 'bob'
+          },
+          'Permission' => 'READ'
+        }
+      ]
+    }
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee").returns("CanonicalUser", "has an xsi:type of CanonicalUser") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee").first.attributes["type"].value
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/ID").returns("abcdef0123456789", "returns the Grantee ID") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/ID").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/DisplayName").returns("bob", "returns the Grantee DisplayName") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/DisplayName").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Permission").returns("READ", "returns the Grantee Permission") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Permission").first.content
+    end
+
+    acl = {
+      'AccessControlList' => [
+        {
+          'Grantee' => {
+            'EmailAddress' => 'user@example.com'
+          },
+          'Permission' => 'FULL_CONTROL'
+        }
+      ]
+    }
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee").returns("AmazonCustomerByEmail", "has an xsi:type of AmazonCustomerByEmail") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee").first.attributes["type"].value
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/EmailAddress").returns("user@example.com", "returns the Grantee EmailAddress") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/EmailAddress").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Permission").returns("FULL_CONTROL", "returns the Grantee Permission") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Permission").first.content
+    end
+
+    acl = {
+      'AccessControlList' => [
+        {
+          'Grantee' => {
+            'URI' => 'http://acs.amazonaws.com/groups/global/AllUsers'
+          },
+          'Permission' => 'WRITE'
+        }
+      ]
+    }
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee").returns("Group", "has an xsi:type of Group") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee").first.attributes["type"].value
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/URI").returns("http://acs.amazonaws.com/groups/global/AllUsers", "returns the Grantee URI") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/URI").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Permission").returns("WRITE", "returns the Grantee Permission") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Permission").first.content
+    end
+
+    acl = {
+      'AccessControlList' => [
+        {
+          'Grantee' => {
+            'ID' => 'abcdef0123456789',
+            'DisplayName' => 'bob'
+          },
+          'Permission' => 'READ'
+        },
+        {
+          'Grantee' => {
+            'EmailAddress' => 'user@example.com'
+          },
+          'Permission' => 'FULL_CONTROL'
+        },
+        {
+          'Grantee' => {
+            'URI' => 'http://acs.amazonaws.com/groups/global/AllUsers'
+          },
+          'Permission' => 'WRITE'
+        }
+      ]
+    }
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant").returns(3, "has three elements") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant").size
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/ID").returns("abcdef0123456789", "returns the first Grant's Grantee ID") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/ID").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/EmailAddress").returns("user@example.com", "returns the second Grant's Grantee EmailAddress") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/EmailAddress").first.content
+    end
+
+    tests(".hash_to_acl(#{acl.inspect}) at xpath //AccessControlPolicy/AccessControlList/Grant/Grantee/URI").returns("http://acs.amazonaws.com/groups/global/AllUsers", "returns the third Grant's Grantee URI") do
+      xml = Fog::Storage::InternetArchive.hash_to_acl(acl)
+      Nokogiri::XML(xml).xpath("//AccessControlPolicy/AccessControlList/Grant/Grantee/URI").first.content
+    end
+  end
+
+  tests(".acl_to_hash") do
+    acl_xml = <<-XML
+<AccessControlPolicy>
+  <Owner>
+    <ID>2744ccd10c7533bd736ad890f9dd5cab2adb27b07d500b9493f29cdc420cb2e0</ID>
+    <DisplayName>me</DisplayName>
+  </Owner>
+  <AccessControlList>
+    <Grant>
+      <Grantee xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:type="CanonicalUser">
+        <ID>2744ccd10c7533bd736ad890f9dd5cab2adb27b07d500b9493f29cdc420cb2e0</ID>
+        <DisplayName>me</DisplayName>
+      </Grantee>
+      <Permission>FULL_CONTROL</Permission>
+    </Grant>
+  </AccessControlList>
+</AccessControlPolicy>
+XML
+
+    tests(".acl_to_hash(#{acl_xml.inspect})").returns({
+      "Owner" => {
+        "DisplayName" => "me",
+        "ID" => "2744ccd10c7533bd736ad890f9dd5cab2adb27b07d500b9493f29cdc420cb2e0"
+      },
+      "AccessControlList" => [{
+        "Grantee" => {
+          "DisplayName" => "me",
+          "ID" => "2744ccd10c7533bd736ad890f9dd5cab2adb27b07d500b9493f29cdc420cb2e0"
+        },
+        "Permission" => "FULL_CONTROL"
+      }]
+    }, 'returns hash of ACL XML') do
+      Fog::Storage::InternetArchive.acl_to_hash(acl_xml)
+    end
+  end
+end