alandipert-ruby-aaws 0.7.1

data/test/tc_multiple_operation.rb

@@ -0,0 +1,265 @@
+# $Id: tc_multiple_operation.rb,v 1.3 2009/06/15 21:21:02 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestMultipleOperation < AWSTest
+
+  def test_unbatched_multiple_same_class_with_separate_response_groups
+    il = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC',
+				   'MerchantId' => 'Amazon' } )
+    il2 = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000051WBE',
+				    'MerchantId' => 'Amazon' } )
+
+    il.response_group = ResponseGroup.new( :Large )
+    il2.response_group = ResponseGroup.new( :Small )
+
+    # Create a multiple operation of the ItemSearch operation and the two
+    # batched ItemLookup operations.
+    #
+    mo = MultipleOperation.new( il, il2 )
+    response = @req.search( mo, nil )
+    mor = response.multi_operation_response[0]
+
+    # Ensure our separate response groups were used.
+    #
+    arguments = mor.operation_request.arguments.argument
+
+    il_rg = arguments.select do |arg|
+      arg.attrib['name'] == 'ItemLookup.1.ResponseGroup'
+    end[0]
+
+    il2_rg = arguments.select do |arg|
+      arg.attrib['name'] == 'ItemLookup.2.ResponseGroup'
+    end[0]
+
+    assert_equal( 'Large', il_rg.attrib['value'] )
+    assert_equal( 'Small', il2_rg.attrib['value'] )
+
+    # Ensure we received a MultiOperationResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::MultiOperationResponse, mor )
+    
+    # Ensure response contains an ItemLookupResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemLookupResponse,
+		        mor.item_lookup_response[0] )
+ 
+    il_set = mor.item_lookup_response[0].items
+    il_arr1 = il_set[0].item
+    il_arr2 = il_set[1].item
+
+    # Ensure that there are two <ItemSet>s for the ItemLookup, because it was
+    # a batched operation.
+    #
+    assert_equal( 2, il_set.size )
+
+    # Assure that all item sets have some results.
+    #
+    assert( il_arr1.size > 0 )
+    assert( il_arr2.size > 0 )
+  end
+
+  def test_batched_multiple_with_separate_response_groups
+    il = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC',
+				   'MerchantId' => 'Amazon' } )
+    il2 = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000051WBE',
+				    'MerchantId' => 'Amazon' } )
+    il3 = ItemLookup.new( 'ASIN', { 'ItemId' => 'B00061F8LO',
+				    'MerchantId' => 'Amazon' } )
+
+    il.response_group = ResponseGroup.new( :Large )
+    il2.response_group = ResponseGroup.new( :Small )
+
+    # Create a batch request of the two ItemLookup operations.
+    #
+    il.batch( il2 )
+
+    is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+    is.response_group = ResponseGroup.new( :Medium, :Tags )
+
+    # Create a multiple operation of the ItemSearch operation and the two
+    # batched ItemLookup operations.
+    #
+    mo = MultipleOperation.new( is, il )
+    response = @req.search( mo, nil )
+    mor = response.multi_operation_response[0]
+
+    # Batch a third ItemLookup operation.
+    #
+    il.batch( il3 )
+    mo = MultipleOperation.new( is, il )
+
+    # Because exception classes aren't created until an exception occurs, we
+    # need to create the one we wish to test for now, otherwise we can't refer
+    # to it in our code without causing an 'uninitialized constant' error.
+    #
+    Amazon::AWS::Error.const_set( 'ExceededMaxBatchRequestsPerOperation',
+				  Class.new( Amazon::AWS::Error::AWSError ) )
+
+    # Attempt to perform the search.
+    #
+    assert_raise( Amazon::AWS::Error::ExceededMaxBatchRequestsPerOperation ) do
+      @req.search( mo, nil )
+    end
+
+    # Ensure our separate response groups were used.
+    #
+    arguments = mor.operation_request.arguments.argument
+
+    il_rg = arguments.select do |arg|
+      arg.attrib['name'] == 'ItemLookup.1.ResponseGroup'
+    end[0]
+
+    il2_rg = arguments.select do |arg|
+      arg.attrib['name'] == 'ItemLookup.2.ResponseGroup'
+    end[0]
+
+    is_rg = arguments.select do |arg|
+      arg.attrib['name'] == 'ItemSearch.1.ResponseGroup'
+    end[0]
+
+    assert_equal( 'Large', il_rg.attrib['value'] )
+    assert_equal( 'Small', il2_rg.attrib['value'] )
+    assert_equal( 'Medium,Tags', is_rg.attrib['value'] )
+
+    # Ensure we received a MultiOperationResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::MultiOperationResponse, mor )
+    
+    # Ensure response contains an ItemSearchResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemSearchResponse,
+		        mor.item_search_response[0] )
+
+    # Ensure response also contains an ItemLookupResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemLookupResponse,
+		        mor.item_lookup_response[0] )
+ 
+    is_set = mor.item_search_response[0].items
+    il_set = mor.item_lookup_response[0].items
+    is_arr = is_set.item
+    il_arr1 = il_set[0].item
+    il_arr2 = il_set[1].item
+
+    # Ensure that there's one <ItemSet> for the ItemSearch.
+    #
+    assert_equal( 1, is_set.size )
+
+    # Ensure that there are two <ItemSet>s for the ItemLookup, because it was
+    # a batched operation.
+    #
+    assert_equal( 2, il_set.size )
+
+    # Assure that all item sets have some results.
+    #
+    assert( is_arr.size > 0 )
+    assert( il_arr1.size > 0 )
+    assert( il_arr2.size > 0 )
+  end
+
+
+  def test_batched_multiple_with_shared_response_group
+    il = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC',
+				   'MerchantId' => 'Amazon' } )
+    il2 = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000051WBE',
+				    'MerchantId' => 'Amazon' } )
+
+    # Create a batch request of the two ItemLookup operations.
+    #
+    il.batch( il2 )
+
+    is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+
+    # Create a multiple operation of the ItemSearch operation and the two
+    # batched ItemLookup operations.
+    #
+    mo = MultipleOperation.new( is, il )
+    
+    response = @req.search( mo, @rg )
+
+    mor = response.multi_operation_response[0]
+
+    # Ensure we received a MultiOperationResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::MultiOperationResponse, mor )
+    
+    # Ensure response contains an ItemSearchResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemSearchResponse,
+		        mor.item_search_response[0] )
+
+    # Ensure response also contains an ItemLookupResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemLookupResponse,
+		        mor.item_lookup_response[0] )
+ 
+    is_set = response.multi_operation_response.item_search_response[0].items
+    il_set = response.multi_operation_response.item_lookup_response[0].items
+    is_arr = is_set.item
+    il_arr1 = il_set[0].item
+    il_arr2 = il_set[1].item
+
+    # Ensure that there's one <ItemSet> for the ItemSearch.
+    #
+    assert_equal( 1, is_set.size )
+
+    # Ensure that there are two <ItemSet>s for the ItemLookup, because it was
+    # a batched operation.
+    #
+    assert_equal( 2, il_set.size )
+
+    # Assure that all item sets have some results.
+    #
+    assert( is_arr.size > 0 )
+    assert( il_arr1.size > 0 )
+    assert( il_arr2.size > 0 )
+  end
+
+  def test_multiple_class_method
+    il = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC',
+				   'MerchantId' => 'Amazon' } )
+    il.response_group = ResponseGroup.new( :Large )
+
+    is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+    is.response_group = ResponseGroup.new( :Medium, :Tags )
+
+    response = Amazon::AWS.multiple_operation( is, il )
+    mor = response.multi_operation_response[0]
+
+    # Ensure we received a MultiOperationResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::MultiOperationResponse, mor )
+    
+    # Ensure response contains an ItemSearchResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemSearchResponse,
+		        mor.item_search_response[0] )
+
+    # Ensure response also contains an ItemLookupResponse.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject::ItemLookupResponse,
+		        mor.item_lookup_response[0] )
+ 
+    is_set = response.multi_operation_response.item_search_response[0].items
+    il_set = response.multi_operation_response.item_lookup_response[0].items
+    is_arr = is_set.item
+    il_arr = il_set[0].item
+
+    # Ensure that there's one <ItemSet> for the ItemSearch.
+    #
+    assert_equal( 1, is_set.size )
+
+    # Ensure that there's one <ItemSet> for the ItemLookup.
+    #
+    assert_equal( 1, il_set.size )
+
+    # Assure that all item sets have some results.
+    #
+    assert( is_arr.size > 0 )
+    assert( il_arr.size > 0 )
+  end
+
+end

data/test/tc_operation_request.rb

@@ -0,0 +1,58 @@
+# $Id: tc_operation_request.rb,v 1.1 2008/05/19 10:17:26 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestOperationRequest < AWSTest
+
+  def test_operation_request
+    is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+    response = @req.search( is, ResponseGroup.new( 'Request' ) )
+
+    # Same again with Symbols.
+    #
+    is = ItemSearch.new( :Books, { :Title => 'Ruby' } )
+    response = @req.search( is, ResponseGroup.new( :Request ) )
+ 
+    # Make sure undocumented AWSObject#results provides an accurate shortcut
+    # to the most interesting part of the data returned by AWS.
+    #
+    assert_equal( response.item_search_response[0].items[0].item,
+		  response.kernel )
+
+    # Ensure response is an Amazon::AWS::AWSObject.
+    #
+    assert_instance_of( Amazon::AWS::AWSObject, response )
+
+    # Ensure non-existent instance variables return nil.
+    #
+    assert_nil( response.foo_bar_baz )
+
+    # Ensure top level of response is an Amazon::AWS::AWSArray.
+    #
+    assert_instance_of( Amazon::AWS::AWSArray, response.item_search_response )
+
+    # Ensure delegation of method from AWSArray to single element.
+    #
+    assert_equal( response.item_search_response[0].operation_request,
+		  response.item_search_response.operation_request )
+
+    # Test for correct user-agent in response.
+    #
+    assert_equal( Amazon::AWS::USER_AGENT,
+		  response.item_search_response[0].operation_request[0].
+		  http_headers[0].header[0].attrib['value'] )
+
+    # Ensure that the correct version of the AWS API was requested.
+    #
+    response.item_search_response[0].operation_request[0].arguments[0].
+    argument.each do |arg|
+      next unless arg.attrib['name'] == 'Version'
+      assert_equal( Amazon::AWS::SERVICE['Version'], arg.attrib['value'] )
+      break
+    end
+
+  end
+
+end

data/test/tc_seller_listing_lookup.rb

@@ -0,0 +1,58 @@
+# $Id: tc_seller_listing_lookup.rb,v 1.1 2009/06/03 08:46:31 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerListingLookup < AWSTest
+
+  def test_seller_listing_lookup
+
+    sll = SellerListingLookup.new( 'AP8U6Y3PYQ9VO', :ASIN,
+				   { :Id => 'B0009RRRC8' } )
+    rg = ResponseGroup.new( 'SellerListing' )
+    response = @req.search( sll, rg )
+
+    item = response.kernel
+
+    assert_equal( 'actionrecords', item.seller.nickname )
+
+  end
+
+  def test_seller_listing_lookup_no_response_group
+
+    sll = SellerListingLookup.new( 'AP8U6Y3PYQ9VO', :ASIN,
+				   { :Id => 'B0009RRRC8' } )
+    sll.response_group = ResponseGroup.new( :SellerListing )
+    response = @req.search( sll )
+
+    item = response.kernel
+
+    assert_equal( 'actionrecords', item.seller.nickname )
+
+  end
+
+  def test_seller_listing_lookup_class_method
+
+    response = Amazon::AWS.seller_listing_lookup( 'AP8U6Y3PYQ9VO', :ASIN,
+						  { :Id => 'B0009RRRC8' } )
+
+    item = response.kernel
+
+    assert_equal( 'actionrecords', item.seller.nickname )
+
+  end
+
+  def test_seller_listing_lookup_class_method_block
+
+    Amazon::AWS.seller_listing_lookup( 'AP8U6Y3PYQ9VO', :ASIN,
+				       { :Id => 'B0009RRRC8' } ) do |r|
+
+      item = r.kernel
+
+      assert_equal( 'actionrecords', item.seller.nickname )
+
+    end
+  end
+
+end

data/test/tc_seller_listing_search.rb

@@ -0,0 +1,70 @@
+# $Id: tc_seller_listing_search.rb,v 1.1 2009/05/30 23:27:47 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerListingSearch < AWSTest
+
+  def test_seller_listing_search
+
+    sl = SellerListingSearch.new( 'AP8U6Y3PYQ9VO',
+				  { 'Keywords' => 'Killing Joke' } )
+    rg = ResponseGroup.new( 'SellerListing' )
+    response = @req.search( sl, rg )
+
+    items = response.seller_listing_search_response[0].seller_listings[0].
+	    seller_listing
+
+
+    # Ensure we got some actual items back.
+    #
+    assert( items.size > 0 )
+
+  end
+
+  def test_seller_listing_search_no_response_group
+
+    sl = SellerListingSearch.new( 'AP8U6Y3PYQ9VO',
+				  { 'Keywords' => 'Killing Joke' } )
+    sl.response_group = ResponseGroup.new( :SellerListing )
+    response = @req.search( sl )
+
+    items = response.seller_listing_search_response[0].seller_listings[0].
+	    seller_listing
+
+    # Ensure we got some actual items back.
+    #
+    assert( items.size > 0 )
+
+  end
+
+  def test_seller_listing_search_class_method
+
+    response = Amazon::AWS.seller_listing_search( 'AP8U6Y3PYQ9VO',
+					    { 'Keywords' => 'Killing Joke' } )
+
+    items = response.seller_listing_search_response[0].seller_listings[0].
+	    seller_listing
+
+    # Ensure we got some actual items back.
+    #
+    assert( items.size > 0 )
+
+  end
+
+  def test_seller_listing_search_class_method_block
+
+    Amazon::AWS.seller_listing_search( 'AP8U6Y3PYQ9VO',
+				      { 'Keywords' => 'Killing Joke' } ) do |r|
+
+      items = r.seller_listing_search_response[0].seller_listings[0].
+	      seller_listing
+
+      # Ensure we got some actual items back.
+      #
+      assert( items.size > 0 )
+    end
+  end
+
+end

data/test/tc_seller_lookup.rb

@@ -0,0 +1,54 @@
+# $Id: tc_seller_lookup.rb,v 1.1 2009/06/03 09:53:02 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerLookup < AWSTest
+
+  def test_seller_lookup
+
+    sl = SellerLookup.new( 'A3QFR0K2KCB7EG' )
+    rg = ResponseGroup.new( 'Seller' )
+    response = @req.search( sl, rg )
+
+    seller = response.kernel
+
+    assert_equal( 'wherehouse', seller.nickname )
+
+  end
+
+  def test_seller_lookup_no_response_group
+
+    sl = SellerLookup.new( 'A3QFR0K2KCB7EG' )
+    sl.response_group = ResponseGroup.new( :Seller )
+    response = @req.search( sl )
+
+    seller = response.kernel
+
+    assert_equal( 'wherehouse', seller.nickname )
+
+  end
+
+  def test_seller_lookup_class_method
+
+    response = Amazon::AWS.seller_lookup( 'A3QFR0K2KCB7EG' )
+
+    seller = response.kernel
+
+    assert_equal( 'wherehouse', seller.nickname )
+
+  end
+
+  def test_seller_lookup_class_method_block
+
+    Amazon::AWS.seller_lookup( 'A3QFR0K2KCB7EG' ) do |r|
+
+      seller = r.kernel
+
+      assert_equal( 'wherehouse', seller.nickname )
+
+    end
+  end
+
+end

data/test/tc_serialisation.rb

@@ -0,0 +1,103 @@
+# $Id: tc_serialisation.rb,v 1.2 2008/06/22 21:18:50 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+require 'yaml'
+require 'tempfile'
+
+class AWSSerialisationTest < AWSTest
+
+  def test_yaml_load
+
+    results_file = Tempfile.new( 'ruby_aws' )
+
+    # Serialise some results.
+    #
+    is = ItemSearch.new( 'Music', { 'Artist' => 'Voice Of The Beehive' } )
+    response = @req.search( is, @rg )
+    results = response.kernel
+
+    YAML.dump( results, results_file )
+    results = nil
+
+    # Remove knowledge of Amazon::AWS::AWSObject, so that YAML.load knows
+    # nothing of its subclasses.
+    #
+    Amazon::AWS.module_eval( %Q( remove_const :AWSObject ) )
+
+    # Silence warnings about redefined constants.
+    #
+    v = $VERBOSE
+    $VERBOSE = nil
+
+    # Reload Amazon::AWS and friends.
+    #
+    load 'amazon/aws.rb'
+
+    # Reset warning status.
+    #
+    $VERBOSE = v
+
+    # Demonstrate that normal YAML.load can't cope with instantiating objects
+    # from classes it knows nothing about.
+    #
+    results_file.open
+    results = YAML.load( results_file )
+    assert_instance_of( YAML::Object, results[0] )
+
+    # Ensure that AWSObject.yaml_load does the right thing.
+    #
+    results_file.open
+    results = Amazon::AWS::AWSObject.yaml_load( results_file )
+    assert_instance_of( Amazon::AWS::AWSObject::Item, results[0] )
+  end
+
+
+  def test_marshal_load
+
+    results_file = Tempfile.new( 'ruby_aws' )
+
+    # Serialise some results.
+    #
+    is = ItemSearch.new( 'Music', { 'Artist' => 'Voice Of The Beehive' } )
+    response = @req.search( is, @rg )
+    results = response.kernel
+
+    results_file.puts Marshal.dump( results )
+    results = nil
+
+    # Remove knowledge of Amazon::AWS::AWSObject, so that Marshal.load knows
+    # nothing of its subclasses.
+    #
+    Amazon::AWS.module_eval( %Q( remove_const :AWSObject ) )
+
+    # Silence warnings about redefined constants.
+    #
+    v = $VERBOSE
+    $VERBOSE = nil
+
+    # Reload Amazon::AWS and friends.
+    #
+    load 'amazon/aws.rb'
+
+    # Reset warning status.
+    #
+    $VERBOSE = v
+
+    # Demonstrate that normal Marshal.load can't cope with instantiating
+    # objects from classes it knows nothing about.
+    #
+    results_file.open
+
+    assert_raise ArgumentError do
+      Marshal.load( results_file )
+    end
+
+    # Ensure that Amazon::AWS::AWSObject.load does the right thing.
+    #
+    results_file.open
+    results = Amazon::AWS::AWSObject.load( results_file )
+    assert_instance_of( Amazon::AWS::AWSObject::Item, results[0] )
+  end
+end