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