s3restful 0.2.7

data/test/s3/item_test.rb

@@ -0,0 +1,531 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class ItemTest < Test::Unit::TestCase
+  context "An S3restful::S3::Item instance" do
+
+    setup do
+      S3restful::Log.level = Logger::ERROR
+      @item = S3restful::S3::Item.new('the-bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :server => '127.0.0.1')
+
+      @time = "Thu, 25 Feb 2010 10:00:00 GMT"
+      Time.stubs(:now).returns(Time.parse(@time))
+      #stub(:utc_httpdate => @time, :to_i => 99, :usec => 88))
+    end
+
+    context "validation" do
+      should "require a bucket and a key" do
+        assert_raise(ArgumentError) do
+          item = S3restful::S3::Item.new()
+        end
+
+        assert_raise(ArgumentError) do
+          item = S3restful::S3::Item.new('the-key')
+        end
+
+        assert_nothing_raised(ArgumentError) do
+          item = S3restful::S3::Item.new('the-bucket', 'the-key')
+        end
+
+      end
+
+      should "not allow unknown options" do
+        assert_raise(ArgumentError) do
+          item = S3restful::S3::Item.new('the-bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :lala => 'lulul')
+        end
+      end
+
+      should "check valid protocol" do
+        assert_raise(ArgumentError) do
+          item = S3restful::S3::Item.new('the-bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :protocol => 'lulul')
+        end
+
+        assert_nothing_raised do
+          item = S3restful::S3::Item.new('the-bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :protocol => 'http')
+        end
+
+        assert_nothing_raised do
+          item = S3restful::S3::Item.new('the-bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :protocol => 'https')
+        end
+      end
+    end
+
+    context "when building the item url" do
+      should "build the full path out of the server, bucket, and key" do
+        @item = S3restful::S3::Item.new('the-bucketissoooooooooooooooooooooooooooooooooooooolonggggggggggggggggggggggggggggggggggg', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret', :server => '127.0.0.1')
+        assert_equal "https://127.0.0.1:443/the-bucketissoooooooooooooooooooooooooooooooooooooolonggggggggggggggggggggggggggggggggggg/the-key", @item.url
+      end
+
+      should "use the DNS bucket name where possible" do
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => '123', :aws_secret_access_key => 'secret')
+        assert_equal "https://bucket.s3.amazonaws.com:443/the-key", @item.url
+      end
+    end
+
+    context "when getting an item" do
+
+      should "call the on success callback" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {}, fake_response("data-here"))
+
+        called = false
+        data = nil
+        on_success = Proc.new {|http| called = true, data = http.response}
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          @item.get(:on_success => on_success)
+
+          EM.add_timer(1) {
+            assert called
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {})
+            assert_equal "data-here\n", data
+            EM.stop_event_loop
+          }
+
+        end
+      end
+
+      should "support direct blocks" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {}, fake_response("data-here"))
+
+        called = false
+        data = nil
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          @item.get do |http|
+            called = true
+            data = http.response
+          end
+
+          EM.add_timer(1) {
+            assert called
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {})
+            assert_equal "data-here\n", data
+            EM.stop_event_loop
+          }
+
+        end
+      end
+
+      should "support stream blocks" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {}, fake_response(""))
+
+        called = false
+        data = ""
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          response = @item.get
+          response.stream do |chunk|
+            called = true
+            data << chunk
+          end
+          response.on_body_data "data-here"
+
+          EM.add_timer(1) {
+            assert called
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {})
+            assert_equal "data-here", data
+            EM.stop_event_loop
+          }
+
+        end
+      end
+
+      should "sign requests if AWS credentials are passend" do
+        time = "Thu, 25 Feb 2010 12:06:33 GMT"
+        Time.stubs(:now).returns(Time.parse(time))
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {"Authorization"=>"AWS abc:3OEcVbE//maUUmqh3A5ETEcr9TE=", 'date' => time}, fake_response("data-here"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.get
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {"Authorization"=>"AWS abc:3OEcVbE//maUUmqh3A5ETEcr9TE=", 'date' => time})
+          }
+
+        end
+      end
+
+      should "retry on error" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {}, error_response(400))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          @item.get(:on_error => Proc.new{} ) #ignore error
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 5, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {})
+          }
+
+        end
+      end
+
+      should "handle re-direct" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :get, {}, redirect_response('https://bucket.s3-external-3.amazonaws.com/the-key'))
+        EventMachine::MockHttpRequest.register('https://bucket.s3-external-3.amazonaws.com:443/the-key', :get, {}, fake_response('hy there'))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          @item.get
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :get, {})
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3-external-3.amazonaws.com:443/the-key', :get, {})
+          }
+
+        end
+      end
+    end
+
+    context "when deleting an item" do
+      should "send a DELETE to the items location" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+           "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, fake_response("data-here"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.delete
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+              "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "support direct blocks" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+           "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, fake_response("data-here"))
+
+        called = false
+        data = nil
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.delete do |http|
+            called = true
+            data = http.response
+          end
+
+          EM.add_timer(1) {
+            assert called
+            assert_equal "data-here\n", data
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+              "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "handle re-direct" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+           "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, redirect_response('https://bucket.s3-external-3.amazonaws.com/the-key'))
+        EventMachine::MockHttpRequest.register('https://bucket.s3-external-3.amazonaws.com:443/the-key', :delete, {
+           "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, fake_response("success!"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.delete
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+              "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3-external-3.amazonaws.com:443/the-key', :delete, {
+              "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "handle retry" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+           "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, error_response(400))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.delete(:on_error => Proc.new{} ) #ignore error
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 5, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :delete, {
+              "Authorization"=>"AWS abc:nvkrlq4wor1qbFXZh6rHnAbiRjk=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+    end
+
+    context "when loading the headers" do
+      should "request via HEAD" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :head, {}, fake_response('hy there'))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key')
+        run_in_em_loop do
+          @item.head
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :head, {})
+          }
+
+        end
+      end
+    end
+
+    context "when saving an item" do
+
+      should "post to the desired location" do
+       EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+         "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+         'date' => @time,
+         'url' => "/bucket/the-key"}, fake_response("data-here"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.put('content')
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "support direct blocks" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+           "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+           'date' => @time,
+           'url' => "/bucket/the-key"}, fake_response("data-here"))
+
+        called = false
+        data = nil
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.put('upload me') do |http|
+            called = true
+            data = http.response
+          end
+
+          EM.add_timer(1) {
+            assert called
+            assert_equal "data-here\n", data
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "set the desired permissions" do
+       EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+         "Authorization"=>"AWS abc:cqkfX+nC7WIkYD+yWaUFuoRuePA=",
+         'date' => @time,
+         'url' => "/bucket/the-key",
+         "x-amz-acl" => 'public-read'}, fake_response("data-here"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123' , :permissions => 'public-read')
+        run_in_em_loop do
+          @item.put('content')
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:cqkfX+nC7WIkYD+yWaUFuoRuePA=",
+              'date' => @time,
+              'url' => "/bucket/the-key",
+              'x-amz-acl' => 'public-read'})
+          }
+
+        end
+      end
+
+      should "allow to set custom headers" do
+       EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+         "Authorization"=>"AWS abc:wrPkGKrlwH2AtNzBVS80vU73TDc=",
+         'date' => @time,
+         'url' => "/bucket/the-key",
+         "x-amz-acl" => 'public-read',
+         'Cache-Control' => "max-age=252460800",
+         'Expires' => 'Fri, 16 Nov 2018 22:09:29 GMT',
+         'x-amz-meta-abc' => 'ABC'}, fake_response("data-here"))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc',
+                                                             :aws_secret_access_key => '123' ,
+                                                             :permissions => 'public-read')
+        run_in_em_loop do
+          @item.put('content', :headers => {
+             'Expires' => 'Fri, 16 Nov 2018 22:09:29 GMT',
+             'Cache-Control' => "max-age=252460800",
+             'x-amz-meta-abc' => 'ABC'})
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:wrPkGKrlwH2AtNzBVS80vU73TDc=",
+              'date' => @time,
+              'url' => "/bucket/the-key",
+              'x-amz-acl' => 'public-read',
+              'Cache-Control' => "max-age=252460800",
+              'Expires' => 'Fri, 16 Nov 2018 22:09:29 GMT',
+              'x-amz-meta-abc' => 'ABC'})
+          }
+
+        end
+      end
+
+      should "validate the headers" do
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc',
+                                                             :aws_secret_access_key => '123' ,
+                                                             :permissions => 'public-read')
+
+        assert_raise(ArgumentError) do
+          @item.put('content', :headers => {
+             'expires' => 'Fri, 16 Nov 2018 22:09:29 GMT',
+             'cache_control' => "max-age=252460800"})
+        end
+      end
+
+      should "re-post to a new location" do
+        EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+          "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+          'date' => @time,
+          'url' => "/bucket/the-key"}, redirect_response('https://bucket.s3-external-3.amazonaws.com/the-key'))
+        EventMachine::MockHttpRequest.register('https://bucket.s3-external-3.amazonaws.com:443/the-key', :put, {
+          "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+          'date' => @time,
+          'url' => "/bucket/the-key"}, fake_response('Thanks!'))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.put('content')
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+
+            assert_equal 1, EventMachine::MockHttpRequest.count('https://bucket.s3-external-3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "retry on error" do
+       EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+         "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+         'date' => @time,
+         'url' => "/bucket/the-key"}, error_response(400))
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.put('content', :on_error => Proc.new{} )
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert_equal 5, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+      should "call error handler after retry reached" do
+       EventMachine::MockHttpRequest.register('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+         "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+         'date' => @time,
+         'url' => "/bucket/the-key"}, error_response(400))
+
+       called = false
+       on_error = Proc.new {|http| called = true}
+
+        @item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        run_in_em_loop do
+          @item.put('content', :on_error => on_error, :retry_count => 1)
+
+          EM.add_timer(1) {
+            EM.stop_event_loop
+            assert called
+            assert_equal 2, EventMachine::MockHttpRequest.count('https://bucket.s3.amazonaws.com:443/the-key', :put, {
+              "Authorization"=>"AWS abc:lZMKxGDKcQ1PH8yjbpyN7o2sPWg=",
+              'date' => @time,
+              'url' => "/bucket/the-key"})
+          }
+
+        end
+      end
+
+    end
+
+    context "SSL options" do
+      setup do
+        S3restful::S3.ssl_options[:verify_peer] = true
+        S3restful::S3.ssl_options[:cert_chain_file] = '/etc/foo.ca'
+      end
+
+      should "re-use the global options" do
+        item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        assert item.options[:ssl][:verify_peer]
+        assert_equal '/etc/foo.ca', item.options[:ssl][:cert_chain_file]
+      end
+
+      should "allow to override global options" do
+        item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123', :ssl => {:cert_chain_file => nil, :verify_peer => false})
+        assert !item.options[:ssl][:verify_peer]
+        assert_nil item.options[:ssl][:cert_chain_file]
+      end
+
+      should "pass the options to the Request" do
+        item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        S3restful::S3::Request.expects(:new).with(:get, anything, {:ssl => {:cert_chain_file => '/etc/foo.ca', :verify_peer => true}, :headers => {'Authorization' => 'AWS abc:LGLdCdGTuLAHs+InbMWEnQR6djc=', 'date' => 'Thu, 25 Feb 2010 10:00:00 GMT'}}).returns(stub(:execute => nil))
+        item.get
+      end
+
+      should "allow to override the options per request" do
+        item = S3restful::S3::Item.new('bucket', 'the-key', :aws_access_key_id => 'abc', :aws_secret_access_key => '123')
+        S3restful::S3::Request.expects(:new).with(:get, anything, {:ssl => {:foo => :bar}, :headers => {'Authorization' => 'AWS abc:LGLdCdGTuLAHs+InbMWEnQR6djc=', 'date' => 'Thu, 25 Feb 2010 10:00:00 GMT'}}).returns(stub(:execute => nil))
+        item.get(:ssl => {:foo => :bar})
+      end
+    end
+
+  end
+end

data/test/s3/request_test.rb

@@ -0,0 +1,109 @@
+require File.expand_path('../../test_helper', __FILE__)
+
+class ItemTest < Test::Unit::TestCase
+  context "An S3restful::S3::Request instance" do
+    
+    setup do
+      S3restful::Log.level = Logger::ERROR
+      @response_stub = stub()
+      @response_stub.stubs(:errback)
+      @response_stub.stubs(:callback)
+    end
+    
+    context "validation" do
+      should "check HTTP method" do
+        assert_raise(ArgumentError) do
+          S3restful::S3::Request.new(:foo, 'https://www.example.com')
+        end
+        
+        assert_nothing_raised do
+          S3restful::S3::Request.new(:get, 'https://www.example.com')
+        end
+      end
+      
+      should "check the options" do
+        assert_raise(ArgumentError) do
+          S3restful::S3::Request.new(:get, 'https://www.example.com', {:foo => :bar})
+        end
+        
+        assert_nothing_raised do
+          S3restful::S3::Request.new(:get, 'https://www.example.com', {:timeout => 4})
+        end
+      end
+    end
+    
+    context "when executing" do
+      should "have no response before executing" do
+        assert_nil S3restful::S3::Request.new(:get, 'https://www.example.com').response
+      end
+      
+      should "call em-http-request" do
+        request = mock(:get => @response_stub)
+        EventMachine::MockHttpRequest.expects(:new).with('https://www.example.com').returns(request)
+        S3restful::S3::Request.new(:get, 'https://www.example.com').execute
+      end
+      
+      should "return the response" do
+        request = mock(:get => @response_stub)
+        EventMachine::MockHttpRequest.expects(:new).with('https://www.example.com').returns(request)
+        resp = S3restful::S3::Request.new(:get, 'https://www.example.com').execute
+        assert_equal resp, @response_stub
+      end
+      
+      should "pass the given headers and options" do
+        request = mock('em-http-request')
+        request.expects(:get).with(:timeout => 10, :head => {'a' => 'b'}, :body => nil,  :ssl => {:verify_peer => false, :cert_chain_file => nil}).returns(@response_stub)
+        EventMachine::MockHttpRequest.expects(:new).with('https://www.example.com').returns(request)
+        S3restful::S3::Request.new(:get, 'https://www.example.com', :headers => {'a' => 'b'}).execute
+      end
+      
+      should "post any given data" do
+        request = mock('em-http-request')
+        request.expects(:put).with(:timeout => 10, :body => 'the-data', :head => {},  :ssl => {:verify_peer => false, :cert_chain_file => nil}).returns(@response_stub)
+        EventMachine::MockHttpRequest.expects(:new).with('https://www.example.com').returns(request)
+        S3restful::S3::Request.new(:put, 'https://www.example.com', :data => 'the-data').execute
+      end
+      
+      should "pass SSL options to em-http-request" do
+        request = mock('em-http-request')
+        request.expects(:put).with(:timeout => 10, :body => 'the-data', :head => {}, :ssl => {:verfiy_peer => true, :cert_chain_file => '/tmp/server.crt'}).returns(@response_stub)
+        EventMachine::MockHttpRequest.expects(:new).with('https://www.example.com').returns(request)
+        S3restful::S3::Request.new(:put, 'https://www.example.com', :data => 'the-data', :ssl => {:verfiy_peer => true, :cert_chain_file => '/tmp/server.crt'}).execute
+      end
+      
+      context "when handling errors" do
+        should "call the user error handler" do
+          EventMachine::MockHttpRequest.register('http://www.example.com:80/', :get, {}, error_response(400))
+
+          called = false
+          on_error = Proc.new {|http| called = true}
+
+          run_in_em_loop do
+            S3restful::S3::Request.new(:get, 'http://www.example.com/', :on_error => on_error).execute
+
+            EM.add_timer(1) {
+              EM.stop_event_loop
+              assert called
+              assert_equal 5, EventMachine::MockHttpRequest.count('http://www.example.com:80/', :get, {})
+            }
+
+          end
+        end
+        
+        should "use a default error handler if there is no user handler" do
+          EventMachine::MockHttpRequest.register('http://www.example.com:80/', :get, {}, error_response(400))
+
+          assert_raise(S3restful::Error) do
+            run_in_em_loop do
+              S3restful::S3::Request.new(:get, 'http://www.example.com/').execute
+            end
+          end
+          EM.stop_event_loop if EM.reactor_running?
+        end
+        
+      end
+      
+    end
+        
+  end
+end

data/test/s3_test.rb

@@ -0,0 +1,32 @@
+require File.expand_path('../test_helper', __FILE__)
+
+class S3Test < Test::Unit::TestCase
+  context "The S3restful::S3 module" do
+    
+    should "allow to set global SSL options" do
+      assert S3restful::S3.respond_to?(:ssl_options)
+      assert S3restful::S3.respond_to?(:ssl_options=)
+    end
+    
+    should "set and get verify_peer" do
+      S3restful::S3.ssl_options[:verify_peer] = true
+      assert S3restful::S3.ssl_options[:verify_peer]
+      S3restful::S3.ssl_options[:verify_peer] = false
+      assert !S3restful::S3.ssl_options[:verify_peer]
+    end
+    
+    should "set and get cert_chain_file" do
+      S3restful::S3.ssl_options[:cert_chain_file] = '/etc/cacert'
+      assert_equal '/etc/cacert', S3restful::S3.ssl_options[:cert_chain_file]
+      S3restful::S3.ssl_options[:cert_chain_file] = nil
+      assert_nil S3restful::S3.ssl_options[:cert_chain_file]
+    end
+    
+    should "default to no certificate file and no verification" do
+      S3restful::S3.instance_variable_set("@_ssl_options", nil)
+      assert !S3restful::S3.ssl_options[:verify_peer]
+      assert_nil S3restful::S3.ssl_options[:cert_chain_file]
+    end
+    
+  end
+end