1
2###########################################
3# Locale "de" test
4# Mike Schilli, 2004 (m@perlmeister.com)
5###########################################
6use warnings;
7use strict;
8
9use Net::Amazon;
10use Net::Amazon::Request::ASIN;
11use Test::More tests => 5;
12
13################################################################
14# Setup
15################################################################
16  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
17  require "$TESTDIR/init.pl";
18  my $CANNED = "$TESTDIR/canned";
19################################################################
20  canned($CANNED, "locale.xml");
21################################################################
22
23#use Log::Log4perl qw(:easy);
24#Log::Log4perl->easy_init({level => $ERROR, layout => '%F{1}-%L: %m%n'});
25
26my $ua = Net::Amazon->new(
27    associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG',
28    token       => 'YOUR_AMZN_TOKEN',
29    secret_key  => 'YOUR_AMZN_SECRET_KEY',
30    #response_dump => 1,
31    locale      => 'de',
32);
33
34my $resp = $ua->search(
35    asin  => "3827313783",
36);
37
38my($result) = $resp->properties();
39
40ok($resp->is_success(), "ASIN Fetch successful");
41is($result->author(), "Michael Schilli", "Author");
42is($result->title(), "Go To Perl 5 .", "Title");
43is($result->publisher(), "Addison-Wesley", "Publisher");
44is($result->TotalOffers(), 0, "Offers");
45