ruby-paa 0.0.1

data/test/tc_operation_request.rb

@@ -0,0 +1,64 @@
+# $Id: tc_operation_request.rb,v 1.2 2010/02/20 17:15:18 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestOperationRequest < AWSTest
+
+  def test_operation_request
+    is = ItemSearch.new( 'Books', { 'Title' => 'Ruby' } )
+    is_rg = ResponseGroup.new( 'Request' )
+    is.response_group = is_rg
+
+    response = @req.search( is )
+
+    # Same again with Symbols.
+    #
+    is = ItemSearch.new( :Books, { :Title => 'Ruby' } )
+    is_rg = ResponseGroup.new( :Request )
+    is.response_group = is_rg
+
+    response = @req.search( is )
+ 
+    # 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,47 @@
+# $Id: tc_seller_listing_lookup.rb,v 1.2 2010/02/20 17:15:18 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerListingLookup < AWSTest
+
+  def test_seller_listing_lookup
+
+    sll = SellerListingLookup.new( 'AP8U6Y3PYQ9VO', :ASIN,
+				   { :Id => 'B0009RRRC8' } )
+    sll_rg = ResponseGroup.new( 'SellerListing' )
+    sll.response_group = sll_rg
+
+    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,55 @@
+# $Id: tc_seller_listing_search.rb,v 1.2 2010/02/20 17:15:18 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerListingSearch < AWSTest
+
+  def test_seller_listing_search
+
+    sl = SellerListingSearch.new( 'AP8U6Y3PYQ9VO',
+				  { 'Keywords' => 'Killing Joke' } )
+    sl_rg = ResponseGroup.new( 'SellerListing' )
+    sl.response_group = sl_rg
+
+    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,44 @@
+# $Id: tc_seller_lookup.rb,v 1.2 2010/02/20 17:15:18 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestSellerLookup < AWSTest
+
+  def test_seller_lookup
+
+    sl = SellerLookup.new( 'A3QFR0K2KCB7EG' )
+    sl_rg = ResponseGroup.new( 'Seller' )
+    sl.response_group = sl_rg
+
+    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,107 @@
+# $Id: tc_serialisation.rb,v 1.3 2010/02/20 17:15:18 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' } )
+    is.response_group = @rg
+
+    response = @req.search( is )
+    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' } )
+    is.response_group = @rg
+
+    response = @req.search( is )
+    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

data/test/tc_shopping_cart.rb

@@ -0,0 +1,214 @@
+# $Id: tc_shopping_cart.rb,v 1.7 2009/10/29 13:37:56 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+require 'amazon/aws/shoppingcart'
+
+include Amazon::AWS::ShoppingCart
+
+class TestShoppingCart < AWSTest
+
+  def test_shopping_cart1
+    cart = Cart.new
+    cart.locale = 'uk'
+
+    # Check that initial quantities are zero.
+    #
+    items = cart.items
+    sfl_items = cart.saved_for_later_items
+    assert_equal( 0, items.size )
+    assert_equal( 0, sfl_items.size )
+
+    # Create a cart with three items. The last two are given as multiple
+    # single-element hashes. MergeCart is false.
+    #
+    cart.cart_create( :ASIN, 'B001CB0UJC', 3, false,
+		      { 'B000WC4AH0' => 2 },
+		      { 'B0006L16N8' => 1 } )
+    items = cart.items
+
+    # Check that the quantities match what we expect.
+    #
+    assert_equal( 3, items.size )
+    item = items.find { |item| item.asin == 'B001CB0UJC'  }
+    assert_equal( '3', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B000WC4AH0'  }
+    assert_equal( '2', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B0006L16N8'  }
+    assert_equal( '1', item.quantity[0] )
+
+    # Check purchase URL.
+    #
+
+    # Check for correct Cart Id.
+    #
+    assert_match( /cart-id=#{cart.cart_id}/,
+		  cart.purchase_url,
+		  'Cart Id incorrect' )
+ 
+    # Check for correct value of MergeCart.
+    #
+    assert_match( /MergeCart=False/,
+		  cart.purchase_url,
+		  'MergeCart is not False' )
+
+    # Clear cart.
+    #
+    cart.cart_clear
+
+    # Ensure that clearing the cart actually empties it.
+    #
+    assert_equal( 0, cart.cart_items.size )
+  end
+
+  def test_shopping_cart2
+    cart = Cart.new
+    cart.locale = 'uk'
+
+    # Create a cart with three items. The last two are given in a single
+    # hash. MergeCart is true. Cart#create is used as an alias of
+    # Cart#cart_create.
+    #
+    cart.create( :ASIN, 'B001CB0UJC', 1, true,
+		 { 'B000WC4AH0' => 2,
+		   'B0006L16N8' => 3 } )
+    items = cart.items
+
+    # Check that the quantities match what we expect.
+    #
+    assert_equal( 3, items.size )
+    item = items.find { |item| item.asin == 'B001CB0UJC'  }
+    assert_equal( '1', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B000WC4AH0'  }
+    assert_equal( '2', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B0006L16N8'  }
+    assert_equal( '3', item.quantity[0] )
+
+    # Check purchase URL.
+    #
+
+    # Check for correct Cart Id.
+    #
+    assert_match( /cart-id=#{cart.cart_id}/,
+		  cart.purchase_url,
+		  'Cart Id incorrect' )
+
+    # Check for correct value of MergeCart.
+    #
+    assert_match( /MergeCart=True/,
+		  cart.purchase_url,
+		  'MergeCart is not True' )
+
+    # Add some items.
+    #
+    cart.cart_add( :ASIN, 'B0014C2BL4', 1,
+		   { 'B0007LYSAU' => 1,
+		     'B0001XLXYI' => 4 },
+		   { 'B0013F2M52' => 3,
+		     'B000HCPSR6' => 2 } )
+
+    # Check that the quantities match what we expect.
+    #
+    items = cart.items
+    assert_equal( 8, items.size )
+    item = items.find { |item| item.asin == 'B0014C2BL4'  }
+    assert_equal( '1', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B0007LYSAU'  }
+    assert_equal( '1', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B0001XLXYI'  }
+    assert_equal( '4', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B0013F2M52'  }
+    assert_equal( '3', item.quantity[0] )
+    item = items.find { |item| item.asin == 'B000HCPSR6'  }
+    assert_equal( '2', item.quantity[0] )
+
+    # Modify an item quantity.
+    #
+    cart.cart_modify( :ASIN, 'B001CB0UJC', 2 )
+    items = cart.items
+    assert_equal( 8, items.size )
+    item = items.find { |item| item.asin == 'B001CB0UJC'  }
+    assert_equal( '2', item.quantity[0] )
+
+    # Move item to 'Save For Later' area.
+    #
+    cart.cart_modify( :ASIN, 'B0014C2BL4', 1, true )
+    sfl_items = cart.saved_for_later_items
+    assert_equal( 1, sfl_items.size )
+    item = sfl_items.find { |item| item.asin == 'B0014C2BL4'  }
+    assert_equal( '1', item.quantity[0] )
+    items = cart.items
+    assert_equal( 7, items.size )
+    assert( ! cart.active?( :ASIN, 'B0014C2BL4' ) )
+
+    # Move item back to 'Active' area.
+    #
+    cart.cart_modify( :ASIN, 'B0014C2BL4', 1, false )
+    items = cart.items
+    assert_equal( 8, items.size )
+    item = items.find { |item| item.asin == 'B0014C2BL4'  }
+    assert_equal( '1', item.quantity[0] )
+    sfl_items = cart.saved_for_later_items
+    assert_equal( 0, sfl_items.size )
+    assert( ! cart.saved_for_later?( :ASIN, 'B0014C2BL4' ) )
+
+    # Remove an item.
+    #
+    cart.cart_modify( :ASIN, 'B0014C2BL4', 0 )
+
+    # Check that the number of items in the cart has been reduced by one.
+    #
+    items = cart.items
+    assert_equal( 7, items.size )
+
+    # Check that the item is no longer in the cart.
+    #
+    assert( ! cart.include?( :ASIN, 'B0014C2BL4' ) )
+
+    # Check that modifying non-existent item raises exception.
+    #
+    assert_raise( Amazon::AWS::ShoppingCart::CartError ) do
+      cart.cart_modify( :ASIN, 'B0014C2BL4', 1 )
+    end
+
+    # Move another item to the 'Save For Later' area.
+    #
+    cart.cart_modify( :ASIN, 'B001CB0UJC', 2, true )
+    items = cart.items
+    assert_equal( 6, items.size )
+    sfl_items = cart.saved_for_later_items
+    assert_equal( 1, sfl_items.size )
+
+    # Now remove that item while it's still in the 'Save For Later' area.
+    #
+    cart.cart_modify( :ASIN, 'B001CB0UJC', 0 )
+    items = cart.items
+    assert_equal( 6, items.size )
+    sfl_items = cart.saved_for_later_items
+    assert_equal( 0, sfl_items.size )
+
+    # Ensure that the item is no longer in either area of the cart.
+    #
+    assert( ! cart.include?( :ASIN, 'B0014C2BL4' ) )
+    assert( ! cart.active?( :ASIN, 'B0014C2BL4' ) )
+    assert( ! cart.saved_for_later?( :ASIN, 'B0014C2BL4' ) )
+
+    # Check that modifying non-existent item raises exception.
+    #
+    assert_raise( Amazon::AWS::ShoppingCart::CartError ) do
+      cart.cart_modify( :ASIN, 'B00151HZA6', 1 )
+    end
+
+    # Check that retrieving the cart at a later time works properly.
+    #
+    old_cart = cart
+    cart = Cart.new
+    cart.locale = 'uk'
+    cart.cart_get( old_cart.cart_id, old_cart.hmac )
+    assert_equal( old_cart.cart_id, cart.cart_id )
+    assert_equal( old_cart.hmac, cart.hmac )
+    assert_equal( old_cart.items, cart.items )
+  end
+
+end