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