# ----------------------------------------------------------------
use strict;
use Test::More;
# ----------------------------------------------------------------
{
my $key = $ENV{JALAN_API_KEY} if exists $ENV{JALAN_API_KEY};
plan skip_all => 'set JALAN_API_KEY env to test this' unless $key;
plan tests => 49;
&test_main( $key );
}
# ----------------------------------------------------------------
sub test_main {
my $key = shift;
use_ok('WebService::Recruit::Jalan');
my $jalan = WebService::Recruit::Jalan->new();
$jalan->key( $key );
my @time = localtime( time() + 3600 * 24 * 30 );
my $year = $time[5] + 1900;
my $mon = $time[4] + 1;
my $day = $time[3];
my $date = sprintf( "%04d%02d%02d", $year, $mon, $day );
my $param = {
s_area => '137412',
stay_date => $date,
stay_count => '3',
adult_num => '2',
count => '1',
};
my $res = $jalan->StockSearch( %$param );
ok( ref $res, 'StockSearch' );
# warn $res->xml;
my $root = $res->root;
ok( ref $root, 'root' );
ok( $root->NumberOfResults, 'NumberOfResults' );
ok( $root->DisplayPerPage, 'DisplayPerPage' );
ok( $root->DisplayFrom, 'DisplayFrom' );
ok( $root->APIVersion, 'APIVersion' );
ok( $root->Plan, 'Plan' );
ok( $root->Plan->[0]->PlanName, 'PlanName' );
ok( $root->Plan->[0]->RoomName, 'RoomName' );
ok( $root->Plan->[0]->PlanDetailURL, 'PlanDetailURL' );
ok( $root->Plan->[0]->Facilities, 'Facilities' );
ok( $root->Plan->[0]->Facilities->Facility->[0], 'Facility' );
ok( $root->Plan->[0]->PlanCheckIn, 'PlanCheckIn' );
ok( $root->Plan->[0]->PlanCheckOut, 'PlanCheckOut' );
ok( $root->Plan->[0]->PlanPictureURL, 'PlanPictureURL' );
ok( $root->Plan->[0]->PlanPictureCaption, 'PlanPictureCaption' );
ok( $root->Plan->[0]->Meal, 'Meal' );
ok( $root->Plan->[0]->RateType, 'RateType' );
ok( $root->Plan->[0]->SampleRate, 'SampleRate' );
ok( $root->Plan->[0]->Stay, 'Stay' );
ok( $root->Plan->[0]->Stay->[0]->PlanDetailURL, 'PlanDetailURL' );
ok( $root->Plan->[0]->Stay->[0]->Date, 'Date' );
ok( $root->Plan->[0]->Stay->[0]->Date->[0]->date, 'date' );
ok( $root->Plan->[0]->Stay->[0]->Date->[0]->month, 'month' );
ok( $root->Plan->[0]->Stay->[0]->Date->[0]->year, 'year' );
ok( $root->Plan->[0]->Stay->[0]->Date->[0]->Rate, 'Rate' );
ok( $root->Plan->[0]->Stay->[0]->Date->[0]->Stock, 'Stock' );
ok( $root->Plan->[0]->Hotel, 'Hotel' );
ok( $root->Plan->[0]->Hotel->HotelID, 'HotelID' );
ok( $root->Plan->[0]->Hotel->HotelName, 'HotelName' );
ok( $root->Plan->[0]->Hotel->PostCode, 'PostCode' );
ok( $root->Plan->[0]->Hotel->HotelAddress, 'HotelAddress' );
ok( $root->Plan->[0]->Hotel->Area, 'Area' );
ok( $root->Plan->[0]->Hotel->Area->Region, 'Region' );
ok( $root->Plan->[0]->Hotel->Area->Prefecture, 'Prefecture' );
ok( $root->Plan->[0]->Hotel->Area->LargeArea, 'LargeArea' );
ok( $root->Plan->[0]->Hotel->Area->SmallArea, 'SmallArea' );
ok( $root->Plan->[0]->Hotel->HotelType, 'HotelType' );
ok( $root->Plan->[0]->Hotel->HotelDetailURL, 'HotelDetailURL' );
ok( $root->Plan->[0]->Hotel->HotelCatchCopy, 'HotelCatchCopy' );
ok( $root->Plan->[0]->Hotel->HotelCaption, 'HotelCaption' );
ok( $root->Plan->[0]->Hotel->PictureURL, 'PictureURL' );
ok( $root->Plan->[0]->Hotel->PictureCaption, 'PictureCaption' );
ok( $root->Plan->[0]->Hotel->X, 'X' );
ok( $root->Plan->[0]->Hotel->Y, 'Y' );
ok( $root->Plan->[0]->Hotel->HotelNameKana, 'HotelNameKana' );
ok( $root->Plan->[0]->Hotel->NumberOfRatings, 'NumberOfRatings' );
ok( $root->Plan->[0]->Hotel->Rating, 'Rating' );
}
# ----------------------------------------------------------------
;1;
# ----------------------------------------------------------------