sml-aws-s3 0.5.1.1225474505

data/test/extensions_test.rb

@@ -0,0 +1,331 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class HashExtensionsTest < Test::Unit::TestCase
+  def test_to_query_string
+    # Because hashes aren't ordered, I'm mostly testing against hashes with just one key
+    symbol_keys = {:one => 1}
+    string_keys = {'one' => 1}
+    expected    = '?one=1'
+    [symbol_keys, string_keys].each do |hash|
+      assert_equal expected, hash.to_query_string
+    end
+  end
+  
+  def test_empty_hash_returns_no_query_string
+    assert_equal '', {}.to_query_string
+  end
+  
+  def test_include_question_mark
+    hash = {:one => 1}
+    assert_equal '?one=1', hash.to_query_string
+    assert_equal 'one=1', hash.to_query_string(false)
+  end
+  
+  def test_elements_joined_by_ampersand
+    hash = {:one => 1, :two => 2}
+    qs   = hash.to_query_string
+    assert qs['one=1&two=2'] || qs['two=2&one=1']
+  end
+  
+  def test_normalized_options
+    expectations = [
+      [{:foo_bar  => 1}, {'foo-bar' => '1'}],
+      [{'foo_bar' => 1}, {'foo-bar' => '1'}],
+      [{'foo-bar' => 1}, {'foo-bar' => '1'}],
+      [{}, {}]
+    ]
+    
+    expectations.each do |(before, after)|
+      assert_equal after, before.to_normalized_options
+    end
+  end
+end
+
+class StringExtensionsTest < Test::Unit::TestCase
+  def test_previous
+    expectations = {'abc' => 'abb', '123' => '122', '1' => '0'}
+    expectations.each do |before, after|
+      assert_equal after, before.previous
+    end
+  end
+  
+  def test_to_header
+    transformations = {
+      'foo'     => 'foo',
+      :foo      => 'foo',
+      'foo-bar' => 'foo-bar',
+      'foo_bar' => 'foo-bar',
+      :foo_bar  => 'foo-bar',
+      'Foo-Bar' => 'foo-bar',
+      'Foo_Bar' => 'foo-bar'
+    }
+    
+    transformations.each do |before, after|
+      assert_equal after, before.to_header
+    end
+  end
+  
+  def test_utf8?
+    assert !"318597/620065/GTL_75\24300_A600_A610.zip".utf8?
+    assert "318597/620065/GTL_75£00_A600_A610.zip".utf8?
+  end
+  
+  def test_remove_extended
+    assert "318597/620065/GTL_75\24300_A600_A610.zip".remove_extended.utf8?
+    assert "318597/620065/GTL_75£00_A600_A610.zip".remove_extended.utf8?
+  end
+end
+
+class CoercibleStringTest < Test::Unit::TestCase  
+  
+  def test_coerce
+    coercions = [
+      ['1', 1],
+      ['false', false],
+      ['true',  true],
+      ['2006-10-29T23:14:47.000Z', Time.parse('2006-10-29T23:14:47.000Z')],
+      ['Hello!', 'Hello!'],
+      ['false23', 'false23'],
+      ['03 1-2-3-Apple-Tree.mp3', '03 1-2-3-Apple-Tree.mp3'],
+      ['0815', '0815'] # This number isn't coerced because the leading zero would be lost
+    ]
+    
+    coercions.each do |before, after|
+      assert_nothing_raised do
+        assert_equal after, CoercibleString.coerce(before)
+      end
+    end
+  end
+end
+
+class KerneltExtensionsTest < Test::Unit::TestCase
+  class Foo
+    def foo
+      __method__
+    end
+
+    def bar
+      foo
+    end
+
+    def baz
+      bar
+    end
+  end
+  
+  class Bar
+    def foo
+      calling_method
+    end
+    
+    def bar
+      calling_method
+    end
+    
+    def calling_method
+      __method__(1)
+    end
+  end
+    
+  def test___method___works_regardless_of_nesting
+    f = Foo.new
+    [:foo, :bar, :baz].each do |method|
+      assert_equal 'foo', f.send(method)
+    end
+  end
+  
+  def test___method___depth
+    b = Bar.new
+    assert_equal 'foo', b.foo
+    assert_equal 'bar', b.bar
+  end
+end
+
+class ModuleExtensionsTest < Test::Unit::TestCase
+  class Foo
+    def foo(reload = false)
+      memoize(reload) do
+        Time.now
+      end
+    end
+    
+    def bar(reload = false)
+      memoize(reload, :baz) do
+        Time.now
+      end
+    end
+    
+    def quux
+      Time.now
+    end
+    memoized :quux
+  end
+  
+  def setup
+    @instance = Foo.new
+  end
+  
+  def test_memoize
+    assert !@instance.instance_variables.include?('@foo')
+    cached_result = @instance.foo
+    assert_equal cached_result, @instance.foo
+    assert @instance.instance_variables.include?('@foo')
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@foo)
+    assert_not_equal cached_result, new_cache = @instance.foo(:reload)
+    assert_equal new_cache, @instance.foo
+    assert_equal new_cache, @instance.send(:instance_variable_get, :@foo)
+  end
+  
+  def test_customizing_memoize_storage
+    assert !@instance.instance_variables.include?('@bar')
+    assert !@instance.instance_variables.include?('@baz')
+    cached_result = @instance.bar
+    assert !@instance.instance_variables.include?('@bar')
+    assert @instance.instance_variables.include?('@baz')
+    assert_equal cached_result, @instance.bar
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@baz)
+    assert_nil @instance.send(:instance_variable_get, :@bar)
+  end
+  
+  def test_memoized
+    assert !@instance.instance_variables.include?('@quux')
+    cached_result = @instance.quux
+    assert_equal cached_result, @instance.quux
+    assert @instance.instance_variables.include?('@quux')
+    assert_equal cached_result, @instance.send(:instance_variable_get, :@quux)
+    assert_not_equal cached_result, new_cache = @instance.quux(:reload)
+    assert_equal new_cache, @instance.quux
+    assert_equal new_cache, @instance.send(:instance_variable_get, :@quux)
+  end
+  
+  def test_constant_setting
+    some_module = Module.new
+    assert !some_module.const_defined?(:FOO)
+    assert_nothing_raised do
+      some_module.constant :FOO, 'bar'
+    end
+    
+    assert some_module.const_defined?(:FOO)
+    assert_nothing_raised do
+      some_module::FOO
+      some_module.foo
+    end
+    assert_equal 'bar', some_module::FOO
+    assert_equal 'bar', some_module.foo
+    
+    assert_nothing_raised do
+      some_module.constant :FOO, 'baz'
+    end
+    
+    assert_equal 'bar', some_module::FOO
+    assert_equal 'bar', some_module.foo
+  end
+end
+
+class AttributeProxyTest < Test::Unit::TestCase
+  class BlindProxyUsingDefaultAttributesHash
+    include SelectiveAttributeProxy
+    proxy_to :exlusively => false
+  end
+  
+  class BlindProxyUsingCustomAttributeHash
+    include SelectiveAttributeProxy
+    proxy_to :settings
+  end
+  
+  class ProxyUsingPassedInAttributeHash
+    include SelectiveAttributeProxy
+    
+    def initialize(attributes = {})
+      @attributes = attributes
+    end
+  end
+  
+  class RestrictedProxy
+    include SelectiveAttributeProxy
+    
+    private
+      def proxiable_attribute?(name)
+        %w(foo bar baz).include?(name)
+      end
+  end
+  
+  class NonExclusiveProxy
+    include SelectiveAttributeProxy
+    proxy_to :settings, :exclusively => false
+  end  
+  
+  def test_using_all_defaults
+    b = BlindProxyUsingDefaultAttributesHash.new
+    assert_nothing_raised do
+      b.foo = 'bar'
+    end
+    
+    assert_nothing_raised do
+      b.foo
+    end
+    
+    assert_equal 'bar', b.foo
+  end
+  
+  def test_storage_is_autovivified
+    b = BlindProxyUsingDefaultAttributesHash.new
+    assert_nothing_raised do
+      b.send(:attributes)['foo'] = 'bar'
+    end
+    
+    assert_nothing_raised do
+      b.foo
+    end
+    
+    assert_equal 'bar', b.foo
+  end
+  
+  def test_limiting_which_attributes_are_proxiable
+    r = RestrictedProxy.new
+    assert_nothing_raised do
+      r.foo = 'bar'
+    end
+    
+    assert_nothing_raised do
+      r.foo
+    end
+    
+    assert_equal 'bar', r.foo
+    
+    assert_raises(NoMethodError) do
+      r.quux = 'foo'
+    end
+    
+    assert_raises(NoMethodError) do
+      r.quux
+    end
+  end
+  
+  def test_proxying_is_exclusive_by_default
+    p = ProxyUsingPassedInAttributeHash.new('foo' => 'bar')
+    assert_nothing_raised do
+      p.foo
+      p.foo = 'baz'
+    end
+    
+    assert_equal 'baz', p.foo
+    
+    assert_raises(NoMethodError) do
+      p.quux
+    end
+  end
+  
+  def test_setting_the_proxy_as_non_exclusive
+    n = NonExclusiveProxy.new
+    assert_nothing_raised do
+      n.foo = 'baz'
+    end
+    
+    assert_nothing_raised do
+      n.foo
+    end
+    
+    assert_equal 'baz', n.foo
+  end
+end

data/test/fixtures.rb

@@ -0,0 +1,89 @@
+require 'yaml'
+
+module AWS
+  module S3
+    # When this file is loaded, for each fixture file, a module is created within the Fixtures module
+    # with the same name as the fixture file. For each fixture in that fixture file, a singleton method is 
+    # added to the module with the name of the given fixture, returning the value of the fixture.
+    #
+    # For example:
+    #
+    # A fixture in <tt>buckets.yml</tt> named <tt>empty_bucket_list</tt> with value <tt><foo>hi!</foo></tt>
+    # would be made available like so:
+    #
+    #   Fixtures::Buckets.empty_bucket_list
+    #   => "<foo>hi!</foo>"
+    #   
+    # Alternatively you can treat the fixture module like a hash
+    #
+    #   Fixtures::Buckets[:empty_bucket_list]
+    #   => "<foo>hi!</foo>"
+    #
+    # You can find out all available fixtures by calling
+    #
+    #   Fixtures.fixtures
+    #   => ["Buckets"]
+    #
+    # And all the fixtures contained in a given fixture by calling
+    #
+    #   Fixtures::Buckets.fixtures
+    #   => ["bucket_list_with_more_than_one_bucket", "bucket_list_with_one_bucket", "empty_bucket_list"]
+    module Fixtures
+      class << self
+        def create_fixtures
+          files.each do |file|
+            create_fixture_for(file)
+          end
+        end
+        
+        def create_fixture_for(file)
+          fixtures       = YAML.load_file(path(file))
+          fixture_module = Module.new
+          
+          fixtures.each do |name, value|
+            fixture_module.module_eval(<<-EVAL, __FILE__, __LINE__)
+              def #{name}
+                #{value.inspect}
+              end
+              module_function :#{name}
+            EVAL
+          end
+          
+          fixture_module.module_eval(<<-EVAL, __FILE__, __LINE__)
+            module_function 
+          
+              def fixtures
+                #{fixtures.keys.sort.inspect}
+              end
+              
+              def [](name)
+                send(name) if fixtures.include?(name.to_s)
+              end
+          EVAL
+          
+          const_set(module_name(file), fixture_module)
+        end
+        
+        def fixtures
+          constants.sort
+        end
+        
+        private
+        
+          def files
+            Dir.glob(File.dirname(__FILE__) + '/fixtures/*.yml').map {|fixture| File.basename(fixture)}
+          end
+          
+          def module_name(file_name)
+            File.basename(file_name, '.*').capitalize
+          end
+          
+          def path(file_name)
+            File.join(File.dirname(__FILE__), 'fixtures', file_name)
+          end
+      end
+      
+      create_fixtures
+    end
+  end
+end

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('11/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/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