sqs_async 0.0.1 → 0.0.2

data/lib/sqs.rb

@@ -12,17 +12,75 @@ require 'em-http-request'
 require 'sqs_message'
 require 'sqs_queue'
 require 'sqs_attributes'
+require 'sqs_utilities'
+require 'core_ext/hash'
 require 'logger'
 
 module SQS
+  include SQS::Utilities
   attr_accessor :aws_key, :aws_secret, :regions, :default_parameters, :post_options
 
+  def change_message_visibility(options={})
+    raise "no Message specified" unless options[:message]
+    raise "no new visibility_timeout specified" unless options[:visibility_timeout]
+    options.merge!( :receipt_handle => options.delete(:message).receipt_handle,
+                    :visibility_timeout => options.delete(:visibility_timeout).to_i)
+    call_amazon(options)
+  end
+
+  def set_queue_attributes(options={})
+    raise "no target queue specified" unless options[:queue]
+    %w[ :visibility_timeout :policy :maximum_message_size :message_retention_period ].each do |attr_type|
+      if options[attr_type]
+        val = options.delete(attr_type)
+        options.merge! "Attribute.Name" => camelize(attr_type), "Attribute.Value" => val
+      end
+    end
+
+    call_amazon(options)
+  end
+
+  def send_message(options={})
+    raise "no object(:message) or string(:message_body) specified" unless (options[:message] || options[:message_body])
+    options.merge!( :message_body => options.delete(:message).body ) if options[:message]
+    body = options[:message_body]
+
+    call_amazon(options){ |req| SQSSendMessageResponse.parse(body, req.response) }
+  end
+
+  def add_permission(options={})
+    raise "no target queue specified" unless options[:queue]
+    raise "no permissions objects specified" unless options[:permissions]
+
+    [options[:permissions]].flatten.each_with_index do |perm, index|
+      ordinal = index+1
+      options.merge!(perm.to_params(ordinal)) # last label wins.
+    end
+
+    options.delete(:permissions)
+
+    call_amazon(options)
+  end
+
+  def remove_permission(options={})
+    raise "no target queue specified" unless options[:queue]
+    raise "no permissions objects specified" unless options[:permissions]
+
+    [options[:permissions]].flatten.each_with_index do |perm, index|
+      ordinal = index+1
+      options.merge!(perm.to_params(ordinal)) # last label wins.
+    end
+
+    options.delete(:permissions)
+
+    call_amazon(options)
+  end
+
   def list_queues(options={})
     prefix = options.delete(:prefix)
     match = options.delete(:match)
 
-    options.merge!( "Action" => "ListQueues" )
-    options.merge!( "QueueNamePrefix" => encode(prefix) ) if prefix
+    options.merge!( :queue_name_prefix => encode(prefix) ) if prefix
 
     call_amazon(options) do |req|
       queues = SQSQueue.parse(req.response)
@@ -33,42 +91,57 @@ module SQS
 
   def receive_message(options={})
     raise "no target queue specified" unless options[:queue]
-    options.merge!("Action" => "ReceiveMessage", "MaxNumberOfMessages" => 10 )
+    options = { :max_number_of_messages => 10 }.merge(options)
     call_amazon(options){ |req| SQSMessage.parse(req.response) }
   end
 
   def delete_message(options={})
     raise "no Message specified" unless options[:message]
-    options.merge!("Action" => "DeleteMessage", "ReceiptHandle" => options.delete(:message).receipt_handle)
+    options.merge!(:receipt_handle => options.delete(:message).receipt_handle)
     call_amazon(options)
   end
 
   def get_queue_attributes(options={})
     raise "no target queue specified" unless options[:queue]
-    options.merge!( "Action" => "GetQueueAttributes", "AttributeName" => "All" )
+    options = {:attribute_name => "All" }.merge(options)
     call_amazon(options){ |req| SQSAttributes.parse(req.response) }
   end
 
+  def delete_queue(options={})
+    raise "no target queue specified" unless options[:queue]
+    call_amazon(options)
+  end
+
+  def create_queue(options={})
+    raise "no queue name specified" unless options[:queue_name]
+    options[:default_visibility_timeout] = 30 unless options[:default_visibility_timeout]
+    call_amazon(options){ |req| SQSQueue.parse(req.response) }
+  end
+
   private
 
     def call_amazon(options)
       endpoint = (options[:queue] != nil) ? options.delete(:queue).queue_url : "http://" << ( options.delete(:host) || region_host(:us_east) )
       callbacks = options.delete(:callbacks) || {:success=>nil, :failure =>nil }
 
+      if( who_called_us = caller(0)[1] )
+        options = {:action => action_from_caller(who_called_us)}.merge(options)
+      end
+
+      options.amazonize_keys!
+
       params = sign_params( endpoint, options )
       req = EM::HttpRequest.new("#{endpoint}?#{params}").get
-      req.callback do |req|
-        if(req.response.to_s.match(/<ErrorResponse>/i))
-           on_failure(req, callbacks)
+      req.callback do |req_ref|
+        if(req_ref.response.to_s.match(/<ErrorResponse>/i))
+           on_failure(req_ref, callbacks)
         else
-          result = req
-          result = yield req if block_given?
+          result = req_ref
+          result = yield req_ref if block_given?
           callbacks[:success].call(result) if callbacks[:success]
         end
       end
-      req.errback do |req|
-        on_failure(req, callbacks)
-      end
+      req.errback { |req_ref| on_failure(req_ref, callbacks) }
     end
 
     def on_failure(req, callbacks)
@@ -98,7 +171,7 @@ module SQS
     end
 
     def encoding_exclusions
-      /[^\w\d\-\_\.\~]/
+      /[^\w\d\-_\.~]/
     end
 
     def encode(val)
@@ -110,17 +183,17 @@ module SQS
     end
 
     def regions
-      @regions ||= Regions
+      @regions ||= REGIONS
       @regions
     end
 
     def default_paramters
-      @default_paramters ||= Parameters.merge("AWSAccessKeyId" => aws_key)
+      @default_paramters ||= PARAMETERS.merge("AWSAccessKeyId" => aws_key)
       @default_paramters.merge("Expires" => (Time.now+(60*30)).utc.iso8601)
     end
 
     def post_options
-      @post_options ||= PostOptions
+      @post_options ||= POSTOPTIONS
       @post_options
     end
 
@@ -141,7 +214,7 @@ module SQS
       logger.error(log_msg.join("\n"))
     end
 
-    Regions = {
+    REGIONS = {
       :us_east => { :name => "US-East (Northern Virginia) Region", :uri  => "sqs.us-east-1.amazonaws.com"},
       :us_west => { :name => "US-West (Northern California) Region", :uri  => "sqs.us-west-1.amazonaws.com"},
       :eu => { :name => "EU (Ireland) Region", :uri  => "sqs.eu-west-1.amazonaws.com"},
@@ -150,13 +223,13 @@ module SQS
     }
 
 
-    Parameters = {
+    PARAMETERS = {
       "Version" => "2009-02-01",
       "SignatureVersion"=>"2",
       "SignatureMethod"=>"HmacSHA256",
     }
 
-    PostOptions = {
+    POSTOPTIONS = {
       "Content-Type" => "application/x-www-form-urlencoded"
     }
 end

data/lib/sqs_attributes.rb

@@ -2,8 +2,11 @@ require 'nokogiri'
 require 'json'
 require 'base64'
 require 'ostruct'
+require 'sqs_utilities'
 
 class SQSAttributes
+  extend SQS::Utilities
+
   attr_accessor :approximate_number_of_messages,
     :approximate_number_of_messages_not_visible,
     :visibility_timeout,
@@ -18,21 +21,12 @@ class SQSAttributes
     doc = Nokogiri::XML(xml)
     queue_data = SQSAttributes.new
     doc.search("Attribute").each do |attribute|
-      meth = underscore(attribute.at("Name").text)
+      meth = underscore(attribute.at("Name").text.strip)
       if queue_data.respond_to? meth.to_sym
-        queue_data.send "#{meth}=", attribute.at("Value").text
+        queue_data.send "#{meth}=", attribute.at("Value").text.strip
       end
     end
     queue_data
   end
 
-  # Taken from ActiveSupport. License information can be found at rubyonrails.org
-  def self.underscore(camel_cased_word)
-    word = camel_cased_word.to_s.dup
-    word.gsub!(/([A-Z]+)([A-Z][a-z])/,'\1_\2')
-    word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
-    word.tr!("-", "_")
-    word.downcase!
-    word
-  end
 end

data/lib/sqs_message.rb

@@ -11,9 +11,9 @@ class SQSMessage
     messages = []
     doc.search("Message").each do |message_element|
       s = SQSMessage.new
-      s.body = message_element.at("Body").text
-      s.md5_of_body = message_element.at("MD5OfBody").text
-      s.message_id = message_element.at("MessageId").text
+      s.body = message_element.at("Body").text.strip
+      s.md5_of_body = message_element.at("MD5OfBody").text.strip
+      s.message_id = message_element.at("MessageId").text.strip
       s.receipt_handle = message_element.at("ReceiptHandle").text.strip
       messages << s
     end

data/lib/sqs_permission.rb

@@ -0,0 +1,41 @@
+module SQS
+  module Permissions
+    def self.all
+      "*"
+    end
+
+    def self.send_message
+      "SendMessage"
+    end
+
+    def self.receive_message
+      "ReceiveMessage"
+    end
+
+    def self.delete_message
+      "DeleteMessage"
+    end
+
+    def self.change_message_visibility
+      "ChangeMessageVisibility"
+    end
+
+    def self.get_queue_attributes
+      "GetQueueAttributes"
+    end
+  end
+end
+
+class SQSPermission
+  include SQS::Permissions
+  attr_accessor :aws_account_id, :permission
+
+  def to_params(ordinal=1)
+    {
+      "Label"          => "#{aws_account_id}-#{permission.to_s}",
+      "AWSAccountId.#{ordinal}" => aws_account_id,
+      "ActionName.#{ordinal}"   => permission.to_s
+    }
+  end
+end
+

data/lib/sqs_queue.rb

@@ -10,7 +10,7 @@ class SQSQueue
     queues = []
     doc.search("QueueUrl").each do |element|
       s = SQSQueue.new
-      s.queue_url = URI.parse(element.text)
+      s.queue_url = URI.parse(element.text.strip)
       queues << s
     end
     queues

data/lib/sqs_send_message_response.rb

@@ -0,0 +1,19 @@
+require 'nokogiri'
+require 'json'
+require 'base64'
+require 'ostruct'
+
+class SQSSendMessageResponse
+  attr_accessor :body, :md5_of_body, :message_id, :receipt_handle
+
+  def self.parse(original_body, xml)
+    doc = Nokogiri::XML(xml)
+    message = SQSMessage.new
+    doc.search("SendMessageResult").each do |message_element|
+      message.body = original_body || ""
+      message.md5_of_body = message_element.at("MD5OfMessageBody").text.strip
+      message.message_id = message_element.at("MessageId").text.strip
+    end
+    message
+  end
+end

data/lib/sqs_utilities.rb

@@ -0,0 +1,26 @@
+# These mixins are lovingly taken from active support.
+# License information is available online at rubyonrails.org
+
+module SQS
+  module Utilities
+
+    def action_from_caller(first_element_in_caller)
+      camelize(first_element_in_caller.scan(/\`(\w+)\'/).flatten.first)
+    end
+
+    def camelize(str)
+      str.to_s.gsub(/\/(.?)/) { "::#{$1.upcase}" }.gsub(/(?:^|_)(.)/) { $1.upcase }
+    end
+
+    def underscore(camel_cased_word)
+      word = camel_cased_word.to_s.dup
+      word.gsub!(/([A-Z]+)([A-Z][a-z])/,'\1_\2')
+      word.gsub!(/([a-z\d])([A-Z])/,'\1_\2')
+      word.tr!("-", "_")
+      word.downcase!
+      word
+    end
+
+  end
+end
+

data/spec/fixtures/add_permission.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<AddPermissionResponse><ResponseMetadata><RequestId>9a285199-c8d6-47c2-bdb2-314cb47d599d</RequestId></ResponseMetadata></AddPermissionResponse>

data/spec/fixtures/change_message_visibility.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<ChangeMessageVisibilityResponse><ResponseMetadata><RequestId>6a7a282a-d013-4a59-aba9-335b0fa48bed</RequestId></ResponseMetadata></ChangeMessageVisibilityResponse>

data/spec/fixtures/create_queue.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CreateQueueResponse><CreateQueueResult><QueueUrl>http://sqs.us-east-1.amazonaws.com/123456789012/testQueue</QueueUrl></CreateQueueResult><ResponseMetadata><RequestId>7a62c49f-347e-4fc4-9331-6e8e7a96aa73</RequestId></ResponseMetadata></CreateQueueResponse>

data/spec/fixtures/delete_message.xml

@@ -1,8 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<DeleteQueueResponse>
-    <ResponseMetadata>
-        <RequestId>
-            6fde8d1e-52cd-4581-8cd9-c512f4c64223
-        </RequestId>
-    </ResponseMetadata>
-</DeleteQueueResponse>
+<DeleteQueueResponse><ResponseMetadata><RequestId>6fde8d1e-52cd-4581-8cd9-c512f4c64223</RequestId></ResponseMetadata></DeleteQueueResponse>

data/spec/fixtures/delete_queue.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<DeleteQueueResponse><ResponseMetadata><RequestId>6fde8d1e-52cd-4581-8cd9-c512f4c64223</RequestId></ResponseMetadata></DeleteQueueResponse>

data/spec/fixtures/error_response.xml

@@ -1,18 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<ErrorResponse>
-  <Error>
-    <Type>
-      Sender
-    </Type>
-    <Code>
-      AuthFailure
-    </Code>
-    <Message>
-      The provided signature is not valid for this access token
-    </Message>
-    <Detail/>
-  </Error>
-  <RequestId>
-     ef3aba6a-dc84-4937-91bf-cef2ddd6775a
-  </RequestId>
-</ErrorResponse>
+<ErrorResponse><Error><Type>Sender</Type><Code>AuthFailure</Code><Message>The provided signature is not valid for this access token</Message><Detail/></Error><RequestId>ef3aba6a-dc84-4937-91bf-cef2ddd6775a</RequestId></ErrorResponse>

data/spec/fixtures/list_queues.xml

@@ -1,13 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<ListQueuesResponse>
-  <ListQueuesResult>
-      <QueueUrl>
-          http://sqs.us-east-1.amazonaws.com/123456789012/testQueue
-      </QueueUrl>
-  </ListQueuesResult>
-  <ResponseMetadata>
-      <RequestId>
-          725275ae-0b9b-4762-b238-436d7c65a1ac
-      </RequestId>
-  </ResponseMetadata>
-</ListQueuesResponse>
+<ListQueuesResponse><ListQueuesResult><QueueUrl>http://sqs.us-east-1.amazonaws.com/123456789012/testQueue</QueueUrl></ListQueuesResult><ResponseMetadata><RequestId>725275ae-0b9b-4762-b238-436d7c65a1ac</RequestId></ResponseMetadata></ListQueuesResponse>

data/spec/fixtures/receive_message.xml

@@ -1,40 +1,2 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<ReceiveMessageResponse>
-  <ReceiveMessageResult>
-    <Message>
-      <MessageId>
-        5fea7756-0ea4-451a-a703-a558b933e274
-      </MessageId>
-      <ReceiptHandle>
-        MbZj6wDWli+JvwwJaBV+3dcjk2YW2vA3+STFFljTM8tJJg6HRG6PYSasuWXPJB+Cw
-        Lj1FjgXUv1uSj1gUPAWV66FU/WeR4mq2OKpEGYWbnLmpRCJVAyeMjeU5ZBdtcQ+QE
-        auMZc8ZRv37sIW2iJKq3M9MFx1YvV11A2x/KSbkJ0=
-      </ReceiptHandle>
-      <MD5OfBody>
-        fafb00f5732ab283681e124bf8747ed1
-      </MD5OfBody>
-      <Body>This is a test message</Body>
-      <Attribute>
-        <Name>SenderId</Name>
-        <Value>195004372649</Value>
-      </Attribute>
-      <Attribute>
-        <Name>SentTimestamp</Name>
-        <Value>1238099229000</Value>
-      </Attribute>
-      <Attribute>
-        <Name>ApproximateReceiveCount</Name>
-        <Value>5</Value>
-      </Attribute>
-      <Attribute>
-        <Name>ApproximateFirstReceiveTimestamp</Name>
-        <Value>1250700979248</Value>
-      </Attribute>
-    </Message>
-  </ReceiveMessageResult>
-  <ResponseMetadata>
-    <RequestId>
-      b6633655-283d-45b4-aee4-4e84e0ae6afa
-    </RequestId>
-  </ResponseMetadata>
-</ReceiveMessageResponse>
+<ReceiveMessageResponse><ReceiveMessageResult><Message><MessageId>5fea7756-0ea4-451a-a703-a558b933e274</MessageId><ReceiptHandle>MbZj6wDWli+JvwwJaBV+3dcjk2YW2vA3+STFFljTM8tJJg6HRG6PYSasuWXPJB+CwLj1FjgXUv1uSj1gUPAWV66FU/WeR4mq2OKpEGYWbnLmpRCJVAyeMjeU5ZBdtcQ+QEauMZc8ZRv37sIW2iJKq3M9MFx1YvV11A2x/KSbkJ0=</ReceiptHandle><MD5OfBody>fafb00f5732ab283681e124bf8747ed1</MD5OfBody><Body>This is a test message</Body><Attribute><Name>SenderId</Name><Value>195004372649</Value></Attribute><Attribute><Name>SentTimestamp</Name><Value>1238099229000</Value></Attribute><Attribute><Name>ApproximateReceiveCount</Name><Value>5</Value></Attribute><Attribute><Name>ApproximateFirstReceiveTimestamp</Name><Value>1250700979248</Value></Attribute></Message></ReceiveMessageResult><ResponseMetadata><RequestId>b6633655-283d-45b4-aee4-4e84e0ae6afa</RequestId></ResponseMetadata></ReceiveMessageResponse>

data/spec/fixtures/remove_permission.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<RemovePermissionResponse><ResponseMetadata><RequestId>f8bdb362-6616-42c0-977a-ce9a8bcce3bb</RequestId></ResponseMetadata></RemovePermissionResponse>

data/spec/fixtures/send_message.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<SendMessageResponse><SendMessageResult><MD5OfMessageBody>fafb00f5732ab283681e124bf8747ed1</MD5OfMessageBody><MessageId>5fea7756-0ea4-451a-a703-a558b933e274</MessageId></SendMessageResult><ResponseMetadata><RequestId>27daac76-34dd-47df-bd01-1f6e873584a0</RequestId></ResponseMetadata></SendMessageResponse>

data/spec/fixtures/set_queue_attributes.xml

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<SetQueueAttributesResponse><ResponseMetadata><RequestId>e5cca473-4fc0-4198-a451-8abb94d02c75</RequestId></ResponseMetadata></SetQueueAttributesResponse>

data/spec/spec_helper.rb

@@ -1,7 +1,7 @@
 ENV["BUBBLE_ENV"] = "test"
 
 $:.unshift(File.dirname(__FILE__))
-%w{ ../ lib config vendor/sqs_async/lib }.each do |d|
+%w{ ../ lib config vendor/sqs_async/lib lib/core_ext }.each do |d|
   $:.unshift(File.dirname(__FILE__)+"/#{d}/")
 end
 
@@ -10,11 +10,7 @@ require 'rspec'
 require 'timecop'
 require 'em-http-request'
 
-require 'sqs'
-require 'sqs_message'
-require 'sqs_queue'
-require 'sqs_attributes'
-
+require 'sqs_async'
 
 RSpec.configure do |config|
   config.mock_framework = :mocha
@@ -32,11 +28,11 @@ module EventMachine
     end
 
     def get *args
-      return self
+      self
     end
 
     def post *args
-      return self
+      self
     end
 
     def callback &block

data/spec/sqs_attributes_spec.rb

@@ -1,7 +1,7 @@
 require 'spec_helper'
 
 describe "SQSAttributes" do
-  describe ".parse" do
+  context ".parse" do
     let(:attributes_obj) { SQSAttributes.parse(xml_fixture(:queue_attributes)) }
 
     it "returns SQSAttributes objects" do

data/spec/sqs_message_spec.rb

@@ -1,7 +1,7 @@
 require 'spec_helper'
 
 describe "SQSMessage" do
-  describe ".parse" do
+  context ".parse" do
     let(:messages) { SQSMessage.parse(xml_fixture(:receive_message)) }
 
     it "returns SQSMessage objects" do
@@ -13,8 +13,8 @@ describe "SQSMessage" do
       message = messages.first
       message.body.should == "This is a test message"
       message.receipt_handle.should match /MbZj6wDWli.+?/im
-      message.md5_of_body.should == "\n        fafb00f5732ab283681e124bf8747ed1\n      "
-      message.message_id.should == "\n        5fea7756-0ea4-451a-a703-a558b933e274\n      "
+      message.md5_of_body.should == "fafb00f5732ab283681e124bf8747ed1"
+      message.message_id.should == "5fea7756-0ea4-451a-a703-a558b933e274"
     end
   end
 end

data/spec/sqs_queue_spec.rb

@@ -2,7 +2,7 @@ require 'spec_helper'
 require 'sqs_message'
 
 describe "SQSQueue" do
-  describe ".parse" do
+  context ".parse" do
     let(:queues) { SQSQueue.parse(xml_fixture(:list_queues)) }
 
     it "returns SQSQueue objects" do

data/spec/sqs_spec.rb

@@ -46,6 +46,75 @@ describe "SQS" do
   end
 
   context "calls Amazon Endpoints asynchronously to" do
+
+    it "change_message_visibility" do
+      mock_obj = mock()
+      mock_obj.expects(:call).once
+      client.change_message_visibility(
+        :queue => queue,
+        :message => message,
+        :visibility_timeout => Time.now.to_i + (30*60),
+        :callbacks => { :success => mock_obj }
+      )
+      EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:change_message_visibility)))
+    end
+
+    it "set_queue_attributes" do
+      mock_obj = mock()
+      mock_obj.expects(:call).once
+      client.set_queue_attributes(
+          :queue => queue,
+          :visibility_timeout => Time.now.to_i + (30*60),
+          :callbacks => { :success => mock_obj }
+      )
+      EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:set_queue_attributes)))
+    end
+
+    context "putting a message on the queue" do
+      it "send_message with SQSMessage object" do
+        msg = SQSMessage.new
+        msg.body = "foo"
+        client.send_message(
+          :queue => queue,
+          :message => msg, 
+          :callbacks => { 
+            :success => lambda { |sqs_message_obj|
+              sqs_message_obj.body.should == "foo"
+              sqs_message_obj.md5_of_body.should_not be_nil
+            }
+          }
+        )
+        EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:send_message)))
+      end
+
+      it "send_message with message body" do
+        client.send_message(
+          :queue => queue,
+          :message_body => "foo",
+          :callbacks => {
+            :success => lambda { |sqs_message_obj|
+              sqs_message_obj.body.should == "foo"
+              sqs_message_obj.md5_of_body.should_not be_nil
+            }
+          }
+        )
+        EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:send_message)))
+      end
+    end
+
+    it "creates a queue" do
+      client.create_queue(
+        :queue_name => "testQueue",
+        :callbacks => {
+          :success => lambda{|queues|
+            queues.length.should == 1
+            queues.first.queue_url.to_s.should == "http://sqs.us-east-1.amazonaws.com/123456789012/testQueue"
+          }
+        }
+      )
+      EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:create_queue)))
+    end
+
     it "list available queues" do
       client.list_queues(
         :callbacks => {
@@ -58,6 +127,44 @@ describe "SQS" do
       EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:list_queues)))
     end
 
+    context "permissions management" do
+      let(:permissions) do
+        leon = SQSPermission.new
+        leon.aws_account_id = "a12digitcode"
+        leon.permission = SQS::Permissions.all
+
+        john = SQSPermission.new
+        john.aws_account_id = "b12digitcode"
+        john.permission = SQS::Permissions.send_message
+
+        [leon, john]
+      end
+
+      let(:mock_closure) do
+        mock_closure = mock()
+        mock_closure.expects(:call).once
+        mock_closure
+      end
+
+      it "adds permissions to a queue" do
+        client.add_permission(
+          :queue => queue,
+          :permissions => permissions,
+          :callbacks => { :success => mock_closure }
+        )
+        EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:add_permission)))
+      end
+
+      it "adds permissions to a queue" do
+        client.remove_permission(
+          :queue => queue,
+          :permissions => permissions,
+          :callbacks => { :success => mock_closure }
+        )
+        EM::HttpRequest.succeed(EM::MockResponse.new(xml_fixture(:remove_permission)))
+      end
+    end
+
     it "pull a message from the queue" do
       queue.queue_url = URI.parse("http://sqs.us-east-1.amazonaws.com/123456789012/testQueue")
       client.receive_message(
@@ -75,7 +182,7 @@ describe "SQS" do
     end
 
     it "delete a message from the queue" do
-      mock_obj = mock();
+      mock_obj = mock()
       mock_obj.expects(:call).once
       client.delete_message(
         :queue => queue,

data/spec/sqs_utilities_spec.rb

@@ -0,0 +1,23 @@
+require 'spec_helper'
+
+describe "SQS::Utilities" do
+  include SQS::Utilities # i <3 ruby. :)
+
+  it "amazonizes the keys of a hash" do
+    hash = {:queue_name =>"foo", :default_visibility_timeout => 30}
+    hash.amazonize_keys!
+    hash["QueueName"].should == "foo"
+  end
+
+  it "infers an amazonized action from the calling context" do
+    def this_would_be_the_same_as_an_action_name
+      sample_target
+    end
+
+    def sample_target
+      action_from_caller(caller(0)[1]).should == "ThisWouldBeTheSameAsAnActionName"
+    end
+
+    this_would_be_the_same_as_an_action_name
+  end
+end

metadata

@@ -1,13 +1,8 @@
 --- !ruby/object:Gem::Specification 
 name: sqs_async
 version: !ruby/object:Gem::Version 
-  hash: 29
   prerelease: 
-  segments: 
-  - 0
-  - 0
-  - 1
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors: 
 - EdgeCase <contact@edgecase.com>
@@ -17,7 +12,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-05-31 00:00:00 -04:00
+date: 2011-06-03 00:00:00 -04:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -28,13 +23,6 @@ dependencies:
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        hash: 62196357
-        segments: 
-        - 1
-        - 0
-        - 0
-        - beta
-        - 3
         version: 1.0.0.beta.3
   type: :runtime
   version_requirements: *id001
@@ -46,13 +34,6 @@ dependencies:
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        hash: 62196363
-        segments: 
-        - 1
-        - 0
-        - 0
-        - beta
-        - 4
         version: 1.0.0.beta.4
   type: :runtime
   version_requirements: *id002
@@ -64,9 +45,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :runtime
   version_requirements: *id003
@@ -78,9 +56,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :runtime
   version_requirements: *id004
@@ -92,9 +67,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :runtime
   version_requirements: *id005
@@ -106,11 +78,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 23
-        segments: 
-        - 2
-        - 6
-        - 0
         version: 2.6.0
   type: :development
   version_requirements: *id006
@@ -122,9 +89,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :development
   version_requirements: *id007
@@ -136,9 +100,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :development
   version_requirements: *id008
@@ -150,9 +111,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :development
   version_requirements: *id009
@@ -164,9 +122,6 @@ dependencies:
     requirements: 
     - - ">="
       - !ruby/object:Gem::Version 
-        hash: 3
-        segments: 
-        - 0
         version: "0"
   type: :development
   version_requirements: *id010
@@ -182,17 +137,28 @@ files:
 - lib/sqs.rb
 - lib/sqs_attributes.rb
 - lib/sqs_message.rb
+- lib/sqs_permission.rb
 - lib/sqs_queue.rb
+- lib/sqs_send_message_response.rb
+- lib/sqs_utilities.rb
+- spec/fixtures/add_permission.xml
+- spec/fixtures/change_message_visibility.xml
+- spec/fixtures/create_queue.xml
 - spec/fixtures/delete_message.xml
+- spec/fixtures/delete_queue.xml
 - spec/fixtures/error_response.xml
 - spec/fixtures/list_queues.xml
 - spec/fixtures/queue_attributes.xml
 - spec/fixtures/receive_message.xml
+- spec/fixtures/remove_permission.xml
+- spec/fixtures/send_message.xml
+- spec/fixtures/set_queue_attributes.xml
 - spec/spec_helper.rb
 - spec/sqs_attributes_spec.rb
 - spec/sqs_message_spec.rb
 - spec/sqs_queue_spec.rb
 - spec/sqs_spec.rb
+- spec/sqs_utilities_spec.rb
 has_rdoc: true
 homepage: https://github.com/edgecase/sqs_async
 licenses: []
@@ -207,34 +173,36 @@ required_ruby_version: !ruby/object:Gem::Requirement
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
       version: "0"
 required_rubygems_version: !ruby/object:Gem::Requirement 
   none: false
   requirements: 
   - - ">="
     - !ruby/object:Gem::Version 
-      hash: 3
-      segments: 
-      - 0
       version: "0"
 requirements: []
 
 rubyforge_project: sqs_async
-rubygems_version: 1.5.0
+rubygems_version: 1.6.2
 signing_key: 
 specification_version: 3
 summary: Non-Blocking SQS library.
 test_files: 
+- spec/fixtures/add_permission.xml
+- spec/fixtures/change_message_visibility.xml
+- spec/fixtures/create_queue.xml
 - spec/fixtures/delete_message.xml
+- spec/fixtures/delete_queue.xml
 - spec/fixtures/error_response.xml
 - spec/fixtures/list_queues.xml
 - spec/fixtures/queue_attributes.xml
 - spec/fixtures/receive_message.xml
+- spec/fixtures/remove_permission.xml
+- spec/fixtures/send_message.xml
+- spec/fixtures/set_queue_attributes.xml
 - spec/spec_helper.rb
 - spec/sqs_attributes_spec.rb
 - spec/sqs_message_spec.rb
 - spec/sqs_queue_spec.rb
 - spec/sqs_spec.rb
+- spec/sqs_utilities_spec.rb