alandipert-ruby-aaws 0.7.1

data/test/setup.rb

@@ -0,0 +1,34 @@
+# $Id: setup.rb,v 1.5 2009/06/14 00:28:48 ianmacd Exp $
+#
+
+# Attempt to load Ruby/AWS using RubyGems.
+#
+begin 
+  require 'rubygems'
+  gem 'ruby-aws'
+rescue LoadError
+  # Either we don't have RubyGems or we don't have a gem of Ruby/AWS.
+end
+
+# Require the essential library, be it via RubyGems or the default way.
+#
+require 'amazon/aws/search'
+
+include Amazon::AWS
+include Amazon::AWS::Search
+
+class AWSTest < Test::Unit::TestCase
+
+  def setup
+    @rg = ResponseGroup.new( :Small )
+    @req = Request.new
+    @req.locale = 'uk'
+    @req.cache = false
+    @req.encoding = 'utf-8'
+  end
+
+  # The default_test method needs to be removed before Ruby 1.9.0.
+  #
+  undef_method :default_test if method_defined? :default_test
+ 
+end

data/test/tc_amazon.rb

@@ -0,0 +1,20 @@
+# $Id: tc_amazon.rb,v 1.1 2008/05/19 10:17:26 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestAmazonBasics < AWSTest
+
+  def test_uncamelise
+    str = 'ALongStringWithACRONYM'
+    uncamel_str = 'a_long_string_with_acronym'
+
+    # Ensure uncamelisation of strings occurs properly.
+    #
+    assert_equal( uncamel_str, Amazon::uncamelise( str ) )
+    assert_equal( 'asin', Amazon::uncamelise( 'ASIN' ) )
+
+  end
+
+end

data/test/tc_aws.rb

@@ -0,0 +1,151 @@
+# $Id: tc_aws.rb,v 1.12 2009/06/14 00:29:28 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+require 'fileutils'
+require 'tmpdir'
+require 'amazon/locale'
+
+class TestAWSBasics < AWSTest
+
+  CACHE_DIR = Amazon::AWS::Cache::DEFAULT_CACHE_DIR
+  CACHE_PATH = File.join( Dir.tmpdir, 'aws_cache' )
+
+  def test_version
+    v = '1.8.7'
+    assert( RUBY_VERSION >= v, "Ruby version is lower than #{v}." )
+  end
+
+  def test_cache
+
+    # Assure we can create a cache with a non-default path.
+    #
+    c = Cache.new( CACHE_PATH )
+    assert( CACHE_PATH, c.path )
+    assert( File.directory?( c.path ) )
+    FileUtils.rmdir( c.path )
+
+    c = Cache.new
+
+    # Ensure that default cache path has been chosen.
+    #
+    assert( CACHE_DIR, c.path )
+
+    # Ensure that cache directory has been created.
+    #
+    assert( File.directory?( c.path ) )
+
+    f = File.join( c.path, 'foobar' )
+
+    # Just over a day ago.
+    #
+    t = Time.now - 86460
+
+    FileUtils.touch f, { :mtime => t }
+    assert( File.exist?( f ) )
+
+    # Ensure expired file is properly flushed.
+    #
+    c.flush_expired
+    assert( ! File.exist?( f ) )
+
+    FileUtils.touch f
+    assert( File.exist?( f ) )
+
+    # Ensure unexpired file is properly retained.
+    #
+    c.flush_expired
+    assert( File.exist?( f ) )
+
+    # Ensure file is properly flushed.
+    #
+    c.flush_all
+    assert( ! File.exist?( f ) )
+
+    h = Help.new( :ResponseGroup, :Large )
+    h_rg = ResponseGroup.new( :Help )
+
+    # Ensure that file is not cached when no cache is desired.
+    #
+    @req.cache = false
+    resp = @req.search( h, h_rg )
+    assert_equal( 0, Dir.glob( File.join( c.path, '*' ) ).size )
+
+    # Ensure that file is cached when cache is desired.
+    #
+    @req.cache = c
+    resp = @req.search( h, h_rg )
+    assert_equal( 1, Dir.glob( File.join( c.path, '*' ) ).size )
+
+    # Flush it away.
+    #
+    c.flush_all
+    assert_equal( 0, Dir.glob( File.join( c.path, '*' ) ).size )
+
+    FileUtils.rmdir( c.path )
+
+    # Turn off caching for future tests. This happens in the setup method,
+    # anyway, but it can't hurt to tidy up after ourselves.
+    #
+    @req.cache = false
+
+  end
+
+  def test_config
+    # Test bad quoting.
+    #
+    assert_raise( Amazon::Config::ConfigError ) do
+      cf = Amazon::Config.new( <<'      EOF' )
+      bad_syntax = 'bad quotes"
+      EOF
+    end
+
+    # Test good quoting.
+    #
+    assert_nothing_raised do
+      cf = Amazon::Config.new( <<'      EOF' )
+      good_syntax = 'good quotes'
+      EOF
+    end
+
+    # Test that config files are properly read from $AMAZONRC.
+    #
+    Dir.mktmpdir do |td|
+      ENV['AMAZONRCDIR'] = td
+      ENV['AMAZONRCFILE'] = '.user_defined_name'
+      File.open( File.join( td, '.user_defined_name' ), 'w' ) do |tf|
+        tf.puts( 'foo = bar' )
+      end
+
+      cf = Amazon::Config.new
+      assert_equal( 'bar', cf['foo'] )
+      ENV['AMAZONRCDIR'] = nil
+      ENV['AMAZONRCFILE'] = nil
+    end
+  end
+
+  def test_exceptions
+    assert_raise( Amazon::AWS::HTTPError ) { raise Amazon::AWS::HTTPError }
+  end
+
+  include Amazon
+
+  def test_geo
+
+    require 'net/geoip'
+
+    assert_equal( 'de', Locale.get_locale_by_name( 'www.marxer.org' ) )
+    assert_equal( 'jp', Locale.get_locale_by_name( 'ruby-lang.org' ) )
+    assert_equal( 'uk', Locale.get_locale_by_name( 'xs1.xs4all.nl' ) )
+    assert_equal( 'uk', Locale.get_locale_by_name( 'caliban.org' ) )
+    assert_equal( 'us', Locale.get_locale_by_name( 'google.com' ) )
+
+    # Ensure non-existent hostname causes an Amazon::Locale::GeoError.
+    #
+    assert_raise( Amazon::Locale::GeoError ) do
+      Locale.get_locale_by_name( 'marxer.org' )
+    end
+  end
+
+end

data/test/tc_browse_node_lookup.rb

@@ -0,0 +1,62 @@
+# $Id: tc_browse_node_lookup.rb,v 1.2 2009/06/02 00:39:43 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestBrowseNodeLookup < AWSTest
+
+  def test_browse_node_lookup
+
+    bnl = BrowseNodeLookup.new( 694212 )
+    rg = ResponseGroup.new( :BrowseNodeInfo )
+
+    response = @req.search( bnl, rg )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_browse_node_lookup_no_response_group
+
+    bnl = BrowseNodeLookup.new( 694212 )
+    bnl.response_group = ResponseGroup.new( :BrowseNodeInfo )
+    response = @req.search( bnl, nil )
+
+    results = response.kernel
+
+    # Ensure we got more than 10 results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_browse_node_lookup_class_method
+
+    response = Amazon::AWS.browse_node_lookup( 694212 )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_browse_node_lookup_class_method_block
+
+    Amazon::AWS.browse_node_lookup( '694212' ) do |r|
+
+      results = r.kernel
+
+      # Ensure we got some actual results back.
+      #
+      assert( results.size > 0 )
+    end
+  end
+
+end

data/test/tc_customer_content_lookup.rb

@@ -0,0 +1,64 @@
+# $Id: tc_customer_content_lookup.rb,v 1.1 2009/06/02 00:29:18 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestCustomerContentLookup < AWSTest
+
+  def test_customer_content_lookup
+
+    @req.locale = 'us'
+    ccl = CustomerContentLookup.new( 'AJDWXANG1SYZP' )
+    rg = ResponseGroup.new( :CustomerReviews )
+
+    response = @req.search( ccl, rg )
+
+    review = response.customer_content_lookup_response.customers.customer.
+	     customer_reviews.review[0]
+
+    # Ensure we got the right review.
+    #
+    assert_equal( 3746, review.content[0].size )
+
+  end
+
+  def test_customer_content_lookup_no_response_group
+
+    @req.locale = 'us'
+    ccl = CustomerContentLookup.new( 'AJDWXANG1SYZP' )
+    ccl.response_group = ResponseGroup.new( :CustomerReviews )
+    response = @req.search( ccl, nil )
+
+    review = response.customer_content_lookup_response.customers.customer.
+	     customer_reviews.review[0]
+
+    # Ensure we got the right review.
+    #
+    assert_equal( 3746, review.content[0].size )
+
+  end
+
+  def test_customer_content_lookup_class_method
+
+    response = Amazon::AWS.customer_content_lookup( 'AA5QZU6TJQXEN' )
+
+    nickname = response.customer_content_lookup_response.customers.customer.
+	       nickname
+
+    assert_equal( 'jimwood43', nickname )
+
+  end
+
+  def test_item_search_class_method_block
+
+    Amazon::AWS.customer_content_lookup( 'AA5QZU6TJQXEN' ) do |r|
+
+      nickname = r.customer_content_lookup_response.customers.customer.nickname
+
+      assert_equal( 'jimwood43', nickname )
+
+    end
+  end
+
+end

data/test/tc_help.rb

@@ -0,0 +1,60 @@
+# $Id: tc_help.rb,v 1.2 2009/06/02 00:39:23 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestHelp < AWSTest
+
+  def test_help
+
+    h = Help.new( 'ResponseGroup', 'Large' )
+    rg = ResponseGroup.new( 'Help' )
+    response = @req.search( h, rg )
+
+    # Get a list of valid operations for the Large response group.
+    #
+    results = response.help_response[0].information.response_group_information.
+	      valid_operations.operation
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_help_no_response_group
+
+    h = Help.new( 'ResponseGroup', 'Large' )
+    h.response_group = ResponseGroup.new( 'Help' )
+    response = @req.search( h, nil )
+
+    # Get a list of valid operations for the Large response group.
+    #
+    results = response.help_response[0].information.response_group_information.
+	      valid_operations.operation
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_help_class_method
+
+    response = Amazon::AWS.help( 'ResponseGroup', 'Large' )
+
+    # With no response group, Large will be tried. The resulting exception
+    # will be rescued and the text of the message returned by AWS will be used
+    # to determine a response group that will work.
+    #
+    results = response.help_response[0].information.response_group_information.
+	      valid_operations.operation
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+end

data/test/tc_item_lookup.rb

@@ -0,0 +1,60 @@
+# $Id: tc_item_lookup.rb,v 1.2 2009/05/30 11:11:27 ianmacd Exp $
+#
+
+require 'test/unit'
+require './setup'
+
+class TestItemLookup < AWSTest
+
+  def test_item_lookup
+
+    is = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC' } )
+    response = @req.search( is, @rg )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_lookup_no_response_group
+
+    is = ItemLookup.new( 'ASIN', { 'ItemId' => 'B000AE4QEC' } )
+    is.response_group = ResponseGroup.new( :Small )
+    response = @req.search( is, nil )
+
+    results = response.kernel
+
+    # Ensure we got more than 10 results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_lookup_class_method
+
+    response = Amazon::AWS.item_lookup( 'ASIN', { 'ItemId' => 'B000AE4QEC' } )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_search_class_method_block
+
+    Amazon::AWS.item_lookup( 'ASIN', { 'ItemId' => 'B000AE4QEC' } ) do |r|
+
+      results = r.kernel
+
+      # Ensure we got some actual results back.
+      #
+      assert( results.size > 0 )
+    end
+  end
+
+end

data/test/tc_item_search.rb

@@ -0,0 +1,106 @@
+# encoding: ASCII-8BIT
+#
+# $Id: tc_item_search.rb,v 1.6 2009/06/15 10:18:07 ianmacd Exp $
+#
+# The encoding at the top of this file is necessary for Ruby 1.9, which will
+# otherwise choke with 'invalid multibyte char (US-ASCII)' when it reads the
+# ISO-8859-1 encoded accented 'e' in the test_item_search_iso_8859_15 method.
+
+require 'test/unit'
+require './setup'
+
+class TestItemSearch < AWSTest
+
+  def test_item_search_iso_8859_15
+
+    # Ensure that character set encoding works properly by manually trying
+    # ISO-8859-15, a.k.a. Latin-15.
+    #
+    @req.encoding = 'iso-8859-15'
+
+    str = 'Caf�'
+    is = ItemSearch.new( 'Books', { 'Title' => str } )
+    response = @req.search( is, @rg )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_search_utf8
+
+    # Manually set UTF-8 encoding.
+    #
+    @req.encoding = 'utf-8'
+
+    str = 'Café'
+    is = ItemSearch.new( 'Books', { 'Title' => str } )
+    response = @req.search( is, @rg )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_search_multiple_pages
+
+    @req.encoding = 'utf-8'
+    is = ItemSearch.new( 'Books', { 'Title' => 'programming' } )
+    responses = @req.search( is, @rg, 5 )
+
+    results = []
+    responses.each { |response| results += response.kernel }
+
+    # Ensure we got more than 10 results back.
+    #
+    assert( results.size > 10 )
+
+  end
+
+  def test_item_search_no_response_group
+
+    @req.encoding = 'utf-8'
+    is = ItemSearch.new( 'Books', { 'Title' => 'programming' } )
+    is.response_group = ResponseGroup.new( :Small )
+    responses = @req.search( is, nil, 5 )
+
+    results = []
+    responses.each { |response| results += response.kernel }
+
+    # Ensure we got more than 10 results back.
+    #
+    assert( results.size > 10 )
+
+  end
+
+  def test_item_search_class_method
+
+    response = Amazon::AWS.item_search( 'Books', { 'Title' => 'programming' } )
+
+    results = response.kernel
+
+    # Ensure we got some actual results back.
+    #
+    assert( results.size > 0 )
+
+  end
+
+  def test_item_search_class_method_block
+
+    Amazon::AWS.item_search( 'Books', { 'Title' => 'programming' } ) do |r|
+
+      results = r.kernel
+
+      # Ensure we got some actual results back.
+      #
+      assert( results.size > 0 )
+    end
+  end
+
+end

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