1########################################### 2# Keyword search tests 3# Mike Schilli, 2004 (m@perlmeister.com) 4########################################### 5use warnings; 6use strict; 7 8use Test::More tests => 25; 9use Net::Amazon; 10use Net::Amazon::Request::Seller; 11#use Log::Log4perl qw(:easy); 12#Log::Log4perl->easy_init($DEBUG); 13 14################################################################ 15# Setup 16################################################################ 17 my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); 18 require "$TESTDIR/init.pl"; 19 my $CANNED = "$TESTDIR/canned"; 20################################################################ 21 canned($CANNED, "seller.xml"); 22################################################################ 23 24my $ua = Net::Amazon->new( 25 associate_tag => 'YOUR_ASSOCIATE_TAG', 26 token => 'YOUR_AMZN_TOKEN', 27 secret_key => 'YOUR_AMZN_SECRET_KEY', 28 #response_dump => 1, 29); 30 31my $req = Net::Amazon::Request::Seller->new( 32 seller => 'A2GXAGU54VOP7', 33); 34 35my $resp = $ua->request( 36 $req, 37); 38 39ok($resp->is_success(), "Successful response"); 40ok(defined $resp->result(), "Defined seller result"); 41is($resp->result()->as_string(), "brick_road_books (brick_road_books): 10", 42 "Seller result"); 43is($resp->result()->StoreId(), "A23JJ2BNHZMFCO", "StoreId accessor"); 44is($resp->result()->SellerId(), "A23JJ2BNHZMFCO", "SellerId accessor"); 45is($resp->result()->as_string(), "brick_road_books (brick_road_books): 10", 46 "Seller as_string()"); 47 48# listings 49my @listings = $resp->result()->listings(); 50 51is($listings[0]->ExchangeStartDate(), "2008-09-19", 52 "Listing 1 Start Date"); 53is($listings[0]->ExchangeEndDate(), "", 54 "Listing 1 End Date"); 55is($listings[1]->ExchangeStartDate(), "2008-09-19", 56 "Listing 2 Start Date"); 57is($listings[1]->ExchangeEndDate(), "", 58 "Listing 2 End Date"); 59 60is($listings[0]->ExchangeAsin(), "0376055723", "listings 1 Asin"); 61like($listings[0]->ExchangeTitle(), qr/National Parks of the West/, "listings 1 Title"); 62is($listings[0]->ListingId(), "1221T896306", "listings 1 listingsId"); 63is($listings[0]->ExchangeId(), "Y11M5526205M1732079", "listings 1 ExchangeId"); 64is($listings[0]->ExchangeQuantityAllocated(), "1", "listings 1 ExchangeQuantityAllocated"); 65is($listings[0]->ExchangeQuantity(), "1", "listings 1 ExchangeQuantity"); 66is($listings[0]->ExchangeCondition(), "used", "listings 1 ExchangeCondition"); 67is($listings[0]->ExchangeConditionType(), "good", "listings 1 ExchangeConditionType"); 68is($listings[0]->ExchangeSubCondition(), "good", "listings 1 ExchangeSubCondition"); 69is($listings[0]->ExchangeStatus(), "Open", "listings 1 ExchangeStatus"); 70is($listings[0]->ExchangePrice(), '$4.05', "listings 1 ExchangePrice"); 71is($listings[0]->ExchangeCurrencyCode(), "USD", "listings 1 ExchangeCurrencyCode"); 72is($listings[0]->ExchangeAmount(), "405", "listings 1 ExchangeAmount"); 73is($listings[0]->ExchangeSellerId(), "A23JJ2BNHZMFCO", "listings 1 ExchangeSellerId"); 74is($listings[0]->ExchangeSellerNickname(), "brick_road_books", "listings 1 ExchangeSellerNickname"); 75