kerryb-right_aws 1.7.3

data/test/sqs/test_right_sqs_gen2.rb

@@ -0,0 +1,209 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestSqsGen2 < Test::Unit::TestCase
+
+  GRANTEE_EMAIL_ADDRESS = 'fester@example.com'
+  RIGHT_MESSAGE_TEXT    = 'Right test message'
+
+  
+  def setup
+    @sqs = Rightscale::SqsGen2Interface.new(TestCredentials.aws_access_key_id, TestCredentials.aws_secret_access_key)
+    @queue_name = 'right_sqs_test_gen2_queue'
+      # for classes
+    @s = Rightscale::SqsGen2.new(TestCredentials.aws_access_key_id, TestCredentials.aws_secret_access_key)
+  end
+  
+  # Wait for the queue to appear in the queues list.
+  # Amazon needs some time to after the queue creation to place
+  # it to the accessible queues list. If we dont want to get
+  # the additional faults then wait a bit...
+  def wait_for_queue_url(queue_name)
+    queue_url = nil
+    until queue_url
+      queue_url = @sqs.queue_url_by_name(queue_name)
+      unless queue_url
+        print '-' 
+        STDOUT.flush
+        sleep 1
+      end
+    end
+    queue_url
+  end
+  
+  
+  #---------------------------
+  # Rightscale::SqsInterface
+  #---------------------------
+
+  def test_01_create_queue
+    queue_url = @sqs.create_queue @queue_name
+    assert queue_url[/http.*#{@queue_name}/], 'New queue creation failed'
+  end
+
+  def test_02_list_queues
+    wait_for_queue_url(@queue_name)
+    queues = @sqs.list_queues('right_')
+    assert queues.size>0, 'Must more that 0 queues in list'
+  end
+
+  def test_03_set_and_get_queue_attributes
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+    assert queue_url[/http.*#{@queue_name}/], "#{@queue_name} must exist!"
+    assert @sqs.set_queue_attributes(queue_url, 'VisibilityTimeout', 111), 'Set_queue_attributes fail'
+    sleep 20 # Amazon needs some time to change attribute
+    assert_equal '111', @sqs.get_queue_attributes(queue_url)['VisibilityTimeout'], 'New VisibilityTimeout must be equal to 111'
+  end
+  
+  def test_06_send_message
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+      # send 5 messages for the tests below
+    assert @sqs.send_message(queue_url, RIGHT_MESSAGE_TEXT)
+    assert @sqs.send_message(queue_url, RIGHT_MESSAGE_TEXT)
+    assert @sqs.send_message(queue_url, RIGHT_MESSAGE_TEXT)
+    assert @sqs.send_message(queue_url, RIGHT_MESSAGE_TEXT)
+    assert @sqs.send_message(queue_url, RIGHT_MESSAGE_TEXT)
+  end
+  
+  def test_07_get_queue_length
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+    assert_equal 5, @sqs.get_queue_length(queue_url), 'Queue must have 5 messages'
+  end
+
+  def test_08_receive_message
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+    r_message = @sqs.receive_message(queue_url, 1)[0]
+    assert r_message, "Receive returned no message(s), but this is not necessarily incorrect"
+    assert_equal RIGHT_MESSAGE_TEXT, r_message['Body'], 'Receive message got wrong message text'
+  end
+  
+  def test_09_delete_message
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+    message = @sqs.receive_message(queue_url)[0]
+    assert @sqs.delete_message(queue_url, message['ReceiptHandle']), 'Delete_message fail'
+    assert @sqs.pop_message(queue_url), 'Pop_message fail'
+  end
+  
+  def test_10_clear_and_delete_queue
+    queue_url = @sqs.queue_url_by_name(@queue_name)
+    assert @sqs.delete_queue(queue_url) 
+  end
+  
+  #---------------------------
+  # Rightscale::Sqs classes
+  #---------------------------
+
+  def test_20_sqs_create_delete_queue
+    assert @s, 'Rightscale::SqsGen2 must exist'
+      # get queues list
+    queues_size = @s.queues.size
+      # create new queue
+    queue  = @s.queue("#{@queue_name}_20", true)
+      # check that it is created
+    assert queue.is_a?(Rightscale::SqsGen2::Queue)
+    wait_for_queue_url(@queue_name)
+      # check that amount of queues has increased
+    assert_equal queues_size + 1, @s.queues.size
+      # delete queue
+    assert queue.delete
+  end
+  
+  def test_21_queue_create
+      # create new queue
+    queue = Rightscale::SqsGen2::Queue.create(@s, "#{@queue_name}_21", true)
+      # check that it is created
+    assert queue.is_a?(Rightscale::SqsGen2::Queue)
+    wait_for_queue_url(@queue_name)
+  end
+  
+  def test_22_queue_attributes
+    queue = Rightscale::SqsGen2::Queue.create(@s, "#{@queue_name}_21", false)
+      # get a list of attrinutes
+    attributes = queue.get_attribute
+    assert attributes.is_a?(Hash) && attributes.size>0
+      # get attribute value and increase it by 10
+    v = (queue.get_attribute('VisibilityTimeout').to_i + 10).to_s
+      # set attribute
+    assert queue.set_attribute('VisibilityTimeout', v)
+      # wait a bit
+    sleep 20
+      # check that attribute has changed
+    assert_equal v, queue.get_attribute('VisibilityTimeout')
+      # get queue visibility timeout
+    assert_equal v, queue.visibility
+      # change it 
+    queue.visibility = queue.visibility.to_i + 10
+      # make sure that it is changed
+    assert v.to_i + 10, queue.visibility
+  end
+  
+  def test_24_send_size
+    queue = Rightscale::SqsGen2::Queue.create(@s, "#{@queue_name}_24", true)
+      # send 5 messages
+    assert queue.push('a1')
+    assert queue.push('a2')
+    assert queue.push('a3')
+    assert queue.push('a4')
+    assert queue.push('a5')
+      # check queue size
+    assert_equal 5, queue.size
+      # send one more
+    assert queue.push('a6')
+      # check queue size again
+    assert_equal 6, queue.size
+  end
+  
+  def test_25_message_receive_pop_delete
+    queue = Rightscale::SqsGen2::Queue.create(@s, "#{@queue_name}_24", false)
+      # get queue size
+    size = queue.size
+      # get first message
+    m1 = queue.receive(10)
+    assert m1.is_a?(Rightscale::SqsGen2::Message)
+      # pop second message
+    m2 = queue.pop
+    assert m2.is_a?(Rightscale::SqsGen2::Message)
+      # make sure that queue size has decreased
+    assert_equal size-1, queue.size
+      # delete messsage
+    assert m1.delete
+      # make sure that queue size has decreased again
+    assert_equal size-2, queue.size
+  end
+ 
+  def test_26
+    queue = Rightscale::SqsGen2::Queue.create(@s, "#{@queue_name}_24", false)
+      # lock message 
+    queue.receive(100)
+      # clear queue
+    assert queue.clear 
+      # queue size is greater than zero
+    assert queue.size>0
+  end
+
+  def test_27_set_amazon_problems
+    original_problems = Rightscale::SqsGen2Interface.amazon_problems
+    assert(original_problems.length > 0)
+    Rightscale::SqsGen2Interface.amazon_problems= original_problems << "A New Problem"
+    new_problems = Rightscale::SqsGen2Interface.amazon_problems
+    assert_equal(new_problems, original_problems)
+
+    Rightscale::SqsGen2Interface.amazon_problems= nil
+    assert_nil(Rightscale::SqsGen2Interface.amazon_problems)
+  end
+
+  def test_28_check_threading_model
+    assert(!@sqs.multi_thread)
+    newsqs = Rightscale::SqsGen2Interface.new(TestCredentials.aws_access_key_id, TestCredentials.aws_secret_access_key, {:multi_thread => true})
+    assert(newsqs.multi_thread)
+  end
+
+  def test_29_signature_version_0
+    sqs = Rightscale::SqsInterface.new(TestCredentials.aws_access_key_id, TestCredentials.aws_secret_access_key, :signature_version => '0')
+    assert_nothing_raised do
+      sqs.list_queues
+    end
+    # check that the request has correct signature version
+    assert sqs.last_request.path.include?('SignatureVersion=0')
+  end
+  
+end

data/test/test_credentials.rb

@@ -0,0 +1,37 @@
+class TestCredentials
+
+  @@aws_access_key_id = nil 
+  @@aws_secret_access_key = nil 
+  @@account_number = nil
+
+  def self.aws_access_key_id
+    @@aws_access_key_id
+  end
+  def self.aws_access_key_id=(newval)
+    @@aws_access_key_id = newval
+  end
+  def self.account_number
+    @@account_number
+  end
+  def self.account_number=(newval)
+    @@account_number = newval
+  end
+  def self.aws_secret_access_key
+    @@aws_secret_access_key
+  end
+  def self.aws_secret_access_key=(newval)
+    @@aws_secret_access_key = newval
+  end
+
+  def self.get_credentials
+    Dir.chdir do
+      begin
+        Dir.chdir('./.rightscale') do 
+          require 'testcredentials'
+        end
+      rescue Exception => e
+        puts "Couldn't chdir to ~/.rightscale: #{e.message}"
+      end
+    end
+  end
+end

data/test/ts_right_aws.rb

@@ -0,0 +1,13 @@
+require 'test/unit'
+$: << File.dirname(__FILE__)
+require 'test_credentials'
+TestCredentials.get_credentials
+
+require 'http_connection'
+require 'awsbase/test_right_awsbase.rb'
+require 'ec2/test_right_ec2.rb'
+require 's3/test_right_s3.rb'
+require 's3/test_right_s3_stubbed.rb'
+require 'sqs/test_right_sqs.rb'
+require 'sqs/test_right_sqs_gen2.rb'
+require 'sdb/test_right_sdb.rb'

metadata

@@ -0,0 +1,106 @@
+--- !ruby/object:Gem::Specification 
+name: kerryb-right_aws
+version: !ruby/object:Gem::Version 
+  version: 1.7.3
+platform: ruby
+authors: 
+- RightScale, Inc.
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-03-04 00:00:00 -08:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: right_http_connection
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.1
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.9.0
+    version: 
+description: "== DESCRIPTION:  The RightScale AWS gems have been designed to provide a robust, fast, and secure interface to Amazon EC2, Amazon S3, Amazon SQS, and Amazon SDB. These gems have been used in production by RightScale since late 2006 and are being maintained to track enhancements made by Amazon. The RightScale AWS gems comprise:  - RightAws::Ec2 -- interface to Amazon EC2 (Elastic Compute Cloud) - RightAws::S3 and RightAws::S3Interface -- interface to Amazon S3 (Simple Storage Service) - RightAws::Sqs and RightAws::SqsInterface -- interface to first-generation Amazon SQS (Simple Queue Service) (API version 2007-05-01) - RightAws::SqsGen2 and RightAws::SqsGen2Interface -- interface to second-generation Amazon SQS (Simple Queue Service) (API version 2008-01-01) - RightAws::SdbInterface and RightAws::ActiveSdb -- interface to Amazon SDB (SimpleDB)  == FEATURES:"
+email: support@rightscale.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/awsbase/benchmark_fix.rb
+- lib/awsbase/file_fix.rb
+- lib/awsbase/right_awsbase.rb
+- lib/awsbase/support.rb
+- lib/ec2/right_ec2.rb
+- lib/right_aws.rb
+- lib/s3/right_s3.rb
+- lib/s3/right_s3_interface.rb
+- lib/sdb/active_sdb.rb
+- lib/sdb/right_sdb_interface.rb
+- lib/sqs/right_sqs.rb
+- lib/sqs/right_sqs_gen2.rb
+- lib/sqs/right_sqs_gen2_interface.rb
+- lib/sqs/right_sqs_interface.rb
+- test/ec2/test_helper.rb
+- test/ec2/test_right_ec2.rb
+- test/http_connection.rb
+- test/s3/test_helper.rb
+- test/s3/test_right_s3.rb
+- test/s3/test_right_s3_stubbed.rb
+- test/sdb/test_active_sdb.rb
+- test/sdb/test_helper.rb
+- test/sdb/test_right_sdb.rb
+- test/sqs/test_helper.rb
+- test/sqs/test_right_sqs.rb
+- test/sqs/test_right_sqs_gen2.rb
+- test/test_credentials.rb
+- test/ts_right_aws.rb
+has_rdoc: true
+homepage: 
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: rightaws
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Interface classes for the Amazon EC2, SQS, and S3 Web Services
+test_files: 
+- test/ts_right_aws.rb