1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use warnings;
use strict;
use Test::More qw(no_plan);
BEGIN { use_ok('Net::Amazon') };
use Log::Log4perl qw(:easy);
#Log::Log4perl->easy_init({level => $DEBUG, file => ">out"});
use Net::Amazon;
use File::Spec;
my $CANNED = "canned";
$CANNED = File::Spec->catfile("t", "canned") unless -d $CANNED;
if(! exists $ENV{NET_AMAZON_LIVE_TESTS}) {
for(map { File::Spec->catfile($CANNED, $_) }
qw(power.xml power_sorted.xml power_empty.xml power.xml)) {
open FILE, "<$_" or die "Cannot open $_";
my $data = join '', <FILE>;
close FILE;
push @Net::Amazon::CANNED_RESPONSES, $data;
}
}
######################################################################
# Successful Power search
######################################################################
my $ua = Net::Amazon->new(
token => 'YOUR_AMZN_TOKEN',
);
my $resp = $ua->search(
power => "author: randal schwartz and author: tom phoenix",
mode => "books",
);
ok($resp->is_success(), "Successful Power fetch");
like($resp->as_string(), qr/0596004788/, "Found 1");
like($resp->as_string(), qr/0596001320/, "Found 2");
is($resp->total_results(), 2, "Found 2 total results");
######################################################################
# Power search with different sorting method
######################################################################
$ua = Net::Amazon->new(
token => 'YOUR_AMZN_TOKEN',
);
$resp = $ua->search(
power => "author: randal schwartz and author: tom phoenix",
mode => "books",
sort => "+pricerank",
);
ok($resp->is_success(), "Successful sorted power fetch");
my @prices = ($resp->as_string =~ /\$([\d\.]+)/g);
my @sorted_prices = sort { $a <=> $b } @prices;
is("@prices", "@sorted_prices", "Sorted by Price");
######################################################################
# Power search with empty result
######################################################################
$ua = Net::Amazon->new(
token => 'YOUR_AMZN_TOKEN',
);
$resp = $ua->search(
power => "author: randal schwartz and author: mike schilli",
mode => "books",
);
ok(!$resp->is_success(), "Power fetch came back empty");
######################################################################
# Similar products (could be with any other search, not just 'power')
######################################################################
$ua = Net::Amazon->new(
token => 'YOUR_AMZN_TOKEN',
);
$resp = $ua->search(
power => "author: randal schwartz and author: mike schilli",
mode => "books",
);
my @expected = qw(
0596004990
0596000278
1565922433
1565924193
0596002890
1565922204
);
for my $item ($resp->properties()) {
for my $asin ($item->similar_asins()) {
is(shift @expected, $asin, "Get expected similar product");
#print "Similar to ", $item->Asin(), ": $asin\n";
}
}
is(scalar @expected, 0, "Got all expected similar products");
|
