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