1######################### 2# MusicLabel Search tests 3######################### 4use warnings; 5use strict; 6 7use Test::More tests => 14; 8BEGIN { use_ok('Net::Amazon') }; 9 10#use Log::Log4perl qw(:easy); 11#Log::Log4perl->easy_init($INFO); 12 13use Net::Amazon; 14use Net::Amazon::Request::MusicLabel; 15 16################################################################ 17# Setup 18################################################################ 19 my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .); 20 require "$TESTDIR/init.pl"; 21 my $CANNED = "$TESTDIR/canned"; 22################################################################ 23 canned($CANNED, "musiclabel.xml"); 24################################################################ 25 26my $ua = Net::Amazon->new( 27 associate_tag => 'YOUR_AMZN_ASSOCIATE_TAG', 28 token => $ENV{AMAZON_TOKEN}, 29 secret_key => 'YOUR_AMZN_SECRET_KEY', 30 max_pages => 1, 31 #response_dump => 1, 32); 33 34my $req = Net::Amazon::Request::MusicLabel->new( 35 musiclabel => "Arista", 36); 37 38 # Response is of type Net::Amazon::MusicLabel::Response 39my $resp = $ua->request($req); 40 41ok($resp->is_success(), "Request successful"); 42my @properties = $resp->properties(); 43is(scalar @properties, 10, "10 records"); 44 45like($resp->as_string(), qr/Jackson.*?Carrie Underwood/s, "Examine records"); 46 47for ($resp->properties()) { 48 like(lc($_->label()), qr/arista/, "Check label"); 49} 50