ruby-aaws 0.6.0 → 0.7.0

data/test/tc_list_lookup.rb

@@ -0,0 +1,55 @@
+# $Id: tc_list_lookup.rb,v 1.2 2009/06/03 22:33:04 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestListLookup < AWSTest
+
+  def test_list_lookup
+
+    @req.locale = 'us'
+    rg = ResponseGroup.new( :ListInfo )
+    ll = ListLookup.new( '3TV12MGLOJI4R', :WishList )
+    response = @req.search( ll, rg )
+
+    list = response.kernel
+
+    assert_equal( '2008-06-30', list.date_created )
+
+  end
+
+  def test_list_lookup_no_response_group
+
+    @req.locale = 'us'
+    ll = ListLookup.new( '3P722DU4KUPCP', 'Listmania' )
+    ll.response_group = ResponseGroup.new( :ListInfo, :Small )
+    response = @req.search( ll, nil )
+
+    list = response.kernel
+
+    assert_equal( 'Computer History', list.list_name )
+
+  end
+
+  def test_list_lookup_class_method
+
+    response = Amazon::AWS.list_lookup( 'R35BA7X0YD3YP', 'Listmania' )
+
+    list = response.kernel
+
+    assert_equal( 'examples of perfection', list.list_name )
+
+  end
+
+  def test_item_search_class_method_block
+
+    Amazon::AWS.list_lookup( 'R35BA7X0YD3YP', :Listmania ) do |r|
+
+      list = r.kernel
+
+      assert_equal( 'examples of perfection', list.list_name )
+    end
+  end
+
+end

data/test/tc_list_search.rb

@@ -0,0 +1,55 @@
+# $Id: tc_list_search.rb,v 1.2 2009/06/03 22:32:42 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestListSearch < AWSTest
+
+  def test_list_search
+
+    @req.locale = 'us'
+    rg = ResponseGroup.new( :ListInfo )
+    ls = ListSearch.new( 'WishList', { 'Name' => 'Peter Duff' } )
+    response = @req.search( ls, rg )
+
+    lists = response.kernel
+
+    assert( lists.collect { |l| l.list_id }.include?( '18Y9QEW3A4SRY' ) )
+
+  end
+
+  def test_list_search_no_response_group
+
+    @req.locale = 'us'
+    ls = ListSearch.new( 'WishList', { 'Name' => 'Peter Duff' } )
+    ls.response_group = ResponseGroup.new( :ListMinimum )
+    response = @req.search( ls, nil )
+
+    lists = response.kernel
+
+    assert( lists.collect { |l| l.list_id }.include?( '18Y9QEW3A4SRY' ) )
+
+  end
+
+  def test_list_search_class_method
+
+    response = Amazon::AWS.list_search( 'WishList', { :Name => 'Peter Duff' } )
+
+    lists = response.kernel
+
+    assert( lists.size > 5 )
+
+  end
+
+  def test_item_search_class_method_block
+
+    Amazon::AWS.list_search( 'WishList', { 'Name' => 'Peter Duff' } ) do |r|
+
+      lists = r.kernel
+
+      assert( lists.size > 5 )
+    end
+  end
+
+end

data/test/tc_multiple_operation.rb

@@ -1,4 +1,4 @@
-# $Id: tc_multiple_operation.rb,v 1.2 2009/02/19 16:50:00 ianmacd Exp $
+# $Id: tc_multiple_operation.rb,v 1.3 2009/06/15 21:21:02 ianmacd Exp $
 #
 
 require 'test/unit'
@@ -6,11 +6,166 @@ require './setup'
 
 class TestMultipleOperation < AWSTest
 
-  def test_item_search
+  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.
     #
@@ -63,4 +218,48 @@ class TestMultipleOperation < AWSTest
     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_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