use strict;
use warnings;
use Test::More;
use WebService::Nestoria::Search Warnings => 1;
require 't/lib/test-lwp-recorder.pl';
##########################################################################
## search_listings
##
{
my %countries = (
'uk' => 'oxford',
'es' => 'bilbao',
'de' => 'koeln',
'br' => 'sao-paulo',
'in' => 'mumbai',
);
foreach my $country (sort keys %countries) {
my $ns = WebService::Nestoria::Search->new(
'country' => $country,
'encoding' => 'json',
'number_of_results' => 10,
);
my $place_name = $countries{$country};
my @results = $ns->results('place_name' => $place_name);
is @results, 10, "search_listings - got 10 results for $place_name, $country";
}
}
##########################################################################
## metadata
##
{
my %countries = (
'uk' => 'oxford',
'es' => 'bilbao',
'de' => 'koeln',
'au' => 'newcastle',
'br' => 'sao-paulo',
'in' => 'mumbai',
);
foreach my $country (sort keys %countries) {
my $ns = WebService::Nestoria::Search->new(
'country' => $country,
'encoding' => 'json',
);
my $place_name = $countries{$country};
my $metadata = $ns->metadata(
'place_name' => $place_name,
);
ok(
$metadata->get_average_price(
'range' => 'monthly',
'year' => '2015',
'month' => '10',
'listing_type' => 'buy',
),
"metadata - got average price for $place_name, $country, 2015-10"
);
}
}
done_testing;