aws-s3-akhtaboot 0.6.2.1288082910

data/test/fixtures/buckets.yml

@@ -0,0 +1,133 @@
+empty_bucket_list: >
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets/>
+  </ListAllMyBucketsResult>
+
+
+bucket_list_with_one_bucket: > 
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets>
+      <Bucket>
+        <Name>marcel_molina</Name>
+        <CreationDate>2006-10-04T15:58:38.000Z</CreationDate>
+      </Bucket>
+    </Buckets>
+  </ListAllMyBucketsResult>
+
+
+bucket_list_with_more_than_one_bucket: >
+  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Owner>
+      <ID>ab00c3106e091f8fe23154c85678cda66628adb330bc00f02cf4a1c36d76bc48</ID>
+      <DisplayName>amazon</DisplayName>
+    </Owner>
+    <Buckets>
+      <Bucket>
+        <Name>marcel_molina</Name>
+        <CreationDate>2006-10-04T15:58:38.000Z</CreationDate>
+      </Bucket>
+      <Bucket>
+        <Name>marcel_molina_jr</Name>
+        <CreationDate>2006-10-04T16:01:30.000Z</CreationDate>
+      </Bucket>
+    </Buckets>
+  </ListAllMyBucketsResult>
+  
+empty_bucket: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+  </ListBucketResult>
+  
+bucket_with_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>
+  
+bucket_with_more_than_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>1000</MaxKeys>
+    <IsTruncated>false</IsTruncated>
+    <Contents>
+      <Key>beluga_baby.jpg</Key>
+      <LastModified>2006-10-05T02:55:10.000Z</LastModified>
+      <ETag>&quot;b2453d4a39a7387674a8c505112a2f0b&quot;</ETag>
+      <Size>35807</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>
+  
+truncated_bucket_with_more_than_one_key: >
+  <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <Name>marcel_molina</Name>
+    <Prefix></Prefix>
+    <Marker></Marker>
+    <MaxKeys>2</MaxKeys>
+    <IsTruncated>true</IsTruncated>
+    <Contents>
+      <Key>beluga_baby.jpg</Key>
+      <LastModified>2006-10-05T02:55:10.000Z</LastModified>
+      <ETag>&quot;b2453d4a39a7387674a8c505112a2f0b&quot;</ETag>
+      <Size>35807</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+    <Contents>
+      <Key>tongue_overload.jpg</Key>
+      <LastModified>2006-10-05T02:42:22.000Z</LastModified>
+      <ETag>&quot;f21f7c4e8ea6e34b268887b07d6da745&quot;</ETag>
+      <Size>60673</Size>
+      <Owner>
+        <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+        <DisplayName>mmolina@onramp.net</DisplayName>
+      </Owner>
+      <StorageClass>STANDARD</StorageClass>
+    </Contents>
+  </ListBucketResult>

data/test/fixtures/errors.yml

@@ -0,0 +1,34 @@
+not_implemented: >
+  <Error>
+    <Code>NotImplemented</Code>
+    <Message>A header you provided implies functionality that is not implemented</Message>
+    <RequestId>D1D13A09AC92427F</RequestId>
+    <Header>Host</Header>
+    <HostId>oNZgzTTmWiovwGGwHXAzz+1vRmAJVAplS9TF7B0cuOGfEwoi7DYSTa/1Qhv90CfW</HostId>
+  </Error>
+  
+access_denied: >
+  <Error>
+    <Code>AccessDenied</Code>
+    <Message>Access Denied</Message>
+    <RequestId>F99F6D58B96C98E0</RequestId>
+    <HostId>XwCF7k3llrcEwtoHR7MusZ6ilCdF5DKDmwYpglvjKNjvwo24INCeXlEpo1M03Wxm</HostId>
+  </Error>
+  
+internal_error: >
+  <Error>
+    <Code>InternalError</Code>
+    <Message>Internal Error</Message>
+    <RequestId>F99F6D223B96C98E0</RequestId>
+    <HostId>XwCF7k3llrcEwtoHR7MusZ6ilCdF5DKDmwYpglvjKNjvwo24INCeXlEpo1M03Wxm</HostId>
+  </Error>
+  
+error_with_no_message: >
+  <Error>
+    <Code>InvalidArgument</Code>
+    <Message></Message>
+    <ArgumentValue>READ</ArgumentValue>
+    <RequestId>74A377B1C0FA2BCF</RequestId>
+    <HostId>cP4rqsAEtHpN6Ckv08Hr3LXjLzx15/YgyoSqzs779vMR8MrAFSodxZp96wtuMQuI</HostId>
+    <ArgumentName>x-amz-acl</ArgumentName>
+  </Error>

data/test/fixtures/headers.yml

@@ -0,0 +1,3 @@
+headers_including_one_piece_of_metadata:
+  x-amz-meta-test: foo
+  content_type: text/plain

data/test/fixtures/logging.yml

@@ -0,0 +1,15 @@
+logging_enabled: >
+  <BucketLoggingStatus xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <LoggingEnabled>
+      <TargetBucket>mylogs</TargetBucket>
+      <TargetPrefix>access_log-</TargetPrefix>
+    </LoggingEnabled>
+  </BucketLoggingStatus>
+  
+logging_disabled: >
+  <BucketLoggingStatus xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
+    <!--<LoggingEnabled>
+      <TargetBucket>myLogsBucket</TargetBucket>
+      <TargetPrefix>add/this/prefix/to/my/log/files/access_log-</TargetPrefix>
+    </LoggingEnabled>-->
+  </BucketLoggingStatus>

data/test/fixtures/loglines.yml

@@ -0,0 +1,5 @@
+bucket_get:
+  "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:36:48 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8B5297D428A05432 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 398 395 \"-\" \"-\"\n"
+  
+browser_get:
+  "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:23 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 41521D07CA012312 REST.GET.OBJECT kiss.jpg \"GET /marcel/kiss.jpg HTTP/1.1\" 200 - 67748 67748 259 104 \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"

data/test/fixtures/logs.yml

@@ -0,0 +1,7 @@
+simple_log:
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:36:48 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8B5297D428A05432 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 398 395 \"-\" \"-\"\n"
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [14/Nov/2006:06:38:58 +0000] 67.165.183.125 bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 8F6F3C4027849420 REST.GET.BUCKET - \"GET /marcel HTTP/1.1\" 200 - 4534 - 458 456 \"-\" \"-\"\n"
+  
+requests_from_a_browser:
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:23 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 41521D07CA012312 REST.GET.OBJECT kiss.jpg \"GET /marcel/kiss.jpg HTTP/1.1\" 200 - 67748 67748 259 104 \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"
+  - "bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1 marcel [25/Nov/2006:06:26:27 +0000] 67.165.183.125 65a011a29cdf8ec533ec3d1ccaae921c 88629578AFDDD9B5 REST.GET.TORRENT kiss.jpg \"GET /marcel/kiss.jpg?torrent HTTP/1.1\" 200 - 215 - 379 - \"-\" \"Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0\"\n"

data/test/fixtures/policies.yml

@@ -0,0 +1,16 @@
+policy_with_one_grant: >
+  <AccessControlPolicy>
+    <Owner>
+      <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+      <DisplayName>mmolina@onramp.net</DisplayName>
+    </Owner>
+    <AccessControlList>
+      <Grant>
+        <Grantee xsi:type="CanonicalUser" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+          <ID>bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1</ID>
+          <DisplayName>mmolina@onramp.net</DisplayName>
+        </Grantee>
+        <Permission>FULL_CONTROL</Permission>
+      </Grant>
+    </AccessControlList>
+  </AccessControlPolicy>

data/test/logging_test.rb

@@ -0,0 +1,89 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class LoggingStatusReadingTest < Test::Unit::TestCase
+  
+  def setup
+    @disabled   = logging_status(:logging_disabled)
+    @enabled    = logging_status(:logging_enabled)
+    @new_status = Logging::Status.new('target_bucket' => 'foo', 'target_prefix' => 'access-log-')
+  end
+  
+  def test_logging_enabled?
+    assert !@disabled.logging_enabled?
+    assert !@new_status.logging_enabled?
+    assert @enabled.logging_enabled?
+  end
+  
+  def test_passing_in_prefix_and_bucket
+    assert_equal 'foo', @new_status.target_bucket
+    assert_equal 'access-log-', @new_status.target_prefix
+    assert !@new_status.logging_enabled?
+  end
+  
+  private
+    def logging_status(fixture)
+      Logging::Status.new(Parsing::XmlParser.new(Fixtures::Logging[fixture.to_s]))
+    end
+end
+
+class LoggingStatusWritingTest < LoggingStatusReadingTest
+  def setup
+    super
+    @disabled = Logging::Status.new(Parsing::XmlParser.new(@disabled.to_xml))
+    @enabled  = Logging::Status.new(Parsing::XmlParser.new(@enabled.to_xml))
+  end
+end
+
+class LogTest < Test::Unit::TestCase
+  def test_value_converted_to_log_lines
+    log_object = S3Object.new
+    log_object.value = Fixtures::Logs.simple_log.join
+    log = Logging::Log.new(log_object)
+    assert_nothing_raised do
+      log.lines
+    end
+    
+    assert_equal 2, log.lines.size
+    assert_kind_of Logging::Log::Line, log.lines.first
+    assert_equal 'marcel', log.lines.first.bucket
+  end
+end
+
+class LogLineTest < Test::Unit::TestCase
+  def setup
+    @line = Logging::Log::Line.new(Fixtures::Loglines.bucket_get)
+  end
+  
+  def test_field_accessors
+    expected_results = {
+      :owner            => Owner.new('id' => 'bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1'),
+      :bucket           => 'marcel',
+      :time             => Time.parse('Nov 14 2006 06:36:48 +0000'),
+      :remote_ip        => '67.165.183.125',
+      :request_id       => '8B5297D428A05432',
+      :requestor        => Owner.new('id' => 'bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1'),
+      :operation        => 'REST.GET.BUCKET',
+      :key              => nil,
+      :request_uri      => 'GET /marcel HTTP/1.1',
+      :http_status      => 200,
+      :error_code       => nil,
+      :bytes_sent       => 4534,
+      :object_size      => nil,
+      :total_time       => 398,
+      :turn_around_time => 395,
+      :referrer         => nil,
+      :user_agent       => nil
+    }
+     
+     expected_results.each do |field, expected|
+       assert_equal expected, @line.send(field)
+     end
+     
+     assert_equal expected_results, @line.attributes
+   end
+   
+  def test_user_agent
+    line = Logging::Log::Line.new(Fixtures::Loglines.browser_get)
+    assert_equal 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0', line.user_agent
+  end
+end

data/test/mocks/fake_response.rb

@@ -0,0 +1,26 @@
+module AWS
+  module S3
+    class FakeResponse
+      attr_reader :code, :body, :headers
+      def initialize(options = {})
+        @code    = options.delete(:code)  || 200 
+        @body    = options.delete(:body)  || ''
+        @headers = {'content-type' => 'application/xml'}.merge(options.delete(:headers) || {})
+      end
+
+      # For ErrorResponse
+      def response
+        body
+      end
+      
+      def [](header)
+        headers[header]
+      end
+      
+      def each(&block)
+        headers.each(&block)
+      end
+      alias_method :each_header, :each
+    end
+  end
+end

data/test/object_test.rb

@@ -0,0 +1,205 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class ObjectTest < Test::Unit::TestCase
+  def setup
+    bucket  = Bucket.new(Parsing::XmlParser.new(Fixtures::Buckets.bucket_with_one_key))
+    @object = bucket.objects.first
+  end
+  
+  def test_header_settings_reader_and_writer
+    headers = {'content-type' => 'text/plain'}
+    mock_connection_for(S3Object, :returns => {:headers => headers})
+    
+    assert_nothing_raised do
+      @object.content_type
+    end
+  
+    assert_equal 'text/plain', @object.content_type
+  
+    assert_nothing_raised do
+      @object.content_type = 'image/jpg'
+    end
+  
+    assert_equal 'image/jpg', @object.content_type
+  
+    assert_raises(NoMethodError) do
+      @object.non_existant_header_setting
+    end
+  end
+  
+  def test_key_name_validation
+    assert_raises(InvalidKeyName) do
+      S3Object.create(nil, '', 'marcel')
+    end
+    
+    assert_raises(InvalidKeyName) do
+      huge_name = 'a' * 1500
+      S3Object.create(huge_name, '', 'marcel')
+    end
+  end
+  
+  def test_content_type_inference
+    [
+      ['foo.jpg',  {},                             'image/jpeg'],
+      ['foo.txt',  {},                             'text/plain'],
+      ['foo',      {},                             nil],
+      ['foo.asdf', {},                             nil],
+      ['foo.jpg',  {:content_type => nil},         nil],
+      ['foo',      {:content_type => 'image/jpg'}, 'image/jpg'],
+      ['foo.jpg',  {:content_type => 'image/png'}, 'image/png'],
+      ['foo.asdf', {:content_type => 'image/jpg'}, 'image/jpg']
+    ].each do |key, options, content_type|
+      S3Object.send(:infer_content_type!, key, options)
+      assert_equal content_type, options[:content_type]
+    end
+  end
+  
+  def test_object_has_owner
+    assert_kind_of Owner, @object.owner 
+  end
+  
+  def test_owner_attributes_are_accessible
+    owner = @object.owner
+    assert owner.id
+    assert owner.display_name
+    assert_equal 'bb2041a25975c3d4ce9775fe9e93e5b77a6a9fad97dc7e00686191f3790b13f1', owner.id
+    assert_equal 'mmolina@onramp.net', owner.display_name
+  end
+  
+  def test_only_valid_attributes_accessible
+    assert_raises(NoMethodError) do
+      @object.owner.foo
+    end
+  end
+  
+  def test_fetching_object_value_generates_value_object
+    mock_connection_for(S3Object, :returns => {:body => 'hello!'})
+    value = S3Object.value('foo', 'bar')
+    assert_kind_of S3Object::Value, value
+    assert_equal 'hello!', value
+  end
+  
+  def test_fetching_file_by_name_raises_when_heuristic_fails
+    mock_connection_for(Bucket, :returns => {:body => Fixtures::Buckets.bucket_with_one_key})
+    assert_raises(NoSuchKey) do
+      S3Object.find('not_tongue_overload.jpg', 'marcel_molina')
+    end
+    
+    object = nil # Block scoping
+    assert_nothing_raised do
+      object = S3Object.find('tongue_overload.jpg', 'marcel_molina')
+    end
+    assert_kind_of S3Object, object
+    assert_equal 'tongue_overload.jpg', object.key
+  end
+  
+  def test_about
+    headers = {'content-size' => '12345', 'date' => Time.now.httpdate, 'content-type' => 'application/xml'}
+    mock_connection_for(S3Object, :returns => [
+      {:headers => headers},
+      {:code    => 404}
+      ]
+    )
+    about = S3Object.about('foo', 'bar')
+    assert_kind_of S3Object::About, about
+    assert_equal headers, about
+    
+    assert_raises(NoSuchKey) do
+      S3Object.about('foo', 'bar')
+    end
+  end
+  
+  def test_can_tell_that_an_s3object_does_not_exist
+    mock_connection_for(S3Object, :returns => {:code => 404})
+    assert_equal false, S3Object.exists?('foo', 'bar')
+  end
+  
+  def test_can_tell_that_an_s3object_exists
+    mock_connection_for(S3Object, :returns => {:code => 200})
+    assert_equal true, S3Object.exists?('foo', 'bar')
+  end
+  
+  def test_s3object_equality
+    mock_connection_for(Bucket, :returns => {:body => Fixtures::Buckets.bucket_with_more_than_one_key})
+    file1, file2 = Bucket.objects('does not matter')
+    assert file1 == file1
+    assert file2 == file2
+    assert !(file1 == file2) # /!\ Parens required /!\
+  end
+  
+  def test_inspect
+    mock_connection_for(Bucket, :returns => {:body => Fixtures::Buckets.bucket_with_one_key})
+    object = S3Object.find('tongue_overload.jpg', 'bucket does not matter')
+    assert object.path
+    assert_nothing_raised { object.inspect }
+    assert object.inspect[object.path]
+  end
+ 
+  def test_etag
+    mock_connection_for(Bucket, :returns => {:body => Fixtures::Buckets.bucket_with_one_key})
+    file = S3Object.find('tongue_overload.jpg', 'bucket does not matter')
+    assert file.etag
+    assert_equal 'f21f7c4e8ea6e34b268887b07d6da745', file.etag
+  end
+ 
+  def test_fetching_information_about_an_object_that_does_not_exist_raises_no_such_key
+    mock_connection_for(S3Object, :returns => {:body => '', :code => 404})
+    assert_raises(NoSuchKey) do
+      S3Object.about('asdfasdfasdfas-this-does-not-exist', 'bucket does not matter')
+    end
+  end
+end
+
+class MetadataTest < Test::Unit::TestCase
+  def setup
+    @metadata = S3Object::Metadata.new(Fixtures::Headers.headers_including_one_piece_of_metadata)
+  end
+    
+  def test_only_metadata_is_extracted
+    assert @metadata.to_headers.size == 1
+    assert @metadata.to_headers['x-amz-meta-test']
+    assert_equal 'foo', @metadata.to_headers['x-amz-meta-test']
+  end
+  
+  def test_setting_new_metadata_normalizes_name
+    @metadata[:bar] = 'baz'
+    assert @metadata.to_headers.include?('x-amz-meta-bar')
+    @metadata['baz'] = 'quux'
+    assert @metadata.to_headers.include?('x-amz-meta-baz')
+    @metadata['x-amz-meta-quux'] = 'whatever'
+    assert @metadata.to_headers.include?('x-amz-meta-quux')
+  end
+  
+  def test_clobbering_existing_header
+    @metadata[:bar] = 'baz'
+    assert_equal 'baz', @metadata.to_headers['x-amz-meta-bar']
+    @metadata[:bar] = 'quux'
+    assert_equal 'quux', @metadata.to_headers['x-amz-meta-bar']
+    @metadata['bar'] = 'foo'
+    assert_equal 'foo', @metadata.to_headers['x-amz-meta-bar']
+    @metadata['x-amz-meta-bar'] = 'bar'
+    assert_equal 'bar', @metadata.to_headers['x-amz-meta-bar']
+  end
+  
+  def test_invalid_metadata
+    @metadata[:invalid_header] = ' ' * (S3Object::Metadata::SIZE_LIMIT + 1)
+    assert_raises InvalidMetadataValue do
+      @metadata.to_headers
+    end
+  end
+end
+
+class ValueTest < Test::Unit::TestCase
+  def setup
+    @response = FakeResponse.new(:body => 'hello there')
+    @value    = S3Object::Value.new(@response)
+  end
+  
+  def test_value_is_set_to_response_body
+    assert_equal @response.body, @value
+  end
+  
+  def test_response_is_accessible_from_value_object
+    assert_equal @response, @value.response
+  end
+end