#!perl
my
$o
= Games::EveOnline::EveCentral::Request::QuickLook->new(
type_id
=> 34,
);
isa_ok(
$o
,
'Games::EveOnline::EveCentral::Request::QuickLook'
);
is(
$o
->type_id, 34);
is(
$o
->hours, 360);
is(
$o
->min_q, 1);
is(
$o
->regions, -1);
is(
$o
->
system
, -1);
my
$expected_path
=
'quicklook?typeid=34&sethours=360&setminQ=1'
;
is(
$o
->_path,
$expected_path
);
is(
$o
->request->method,
'GET'
);
throws_ok {
eval
{
$o
= Games::EveOnline::EveCentral::Request::QuickLook->new(
type_id
=> [34, 35]
);
};
throw Error::Simple($!)
if
$@;
}
'Error::Simple'
;
throws_ok {
eval
{
$o
= Games::EveOnline::EveCentral::Request::QuickLook->new(
hours
=> 1,
min_q
=> 10,
system
=> 30000142,
regions
=> 10000002,
);
};
throw Error::Simple($!)
if
$@;
}
'Error::Simple'
;
$o
= Games::EveOnline::EveCentral::Request::QuickLook->new(
type_id
=> 34,
hours
=> 1,
min_q
=> 10,
system
=> 30000142,
regions
=> 10000002,
);
is(
$o
->hours, 1);
is(
$o
->min_q, 10);
is(
$o
->
system
, 30000142);
is(
$o
->regions, 10000002);
$expected_path
=
'quicklook?typeid=34&sethours=1&setminQ=10&usesystem=30000142®ionlimit=10000002'
;
is(
$o
->_path,
$expected_path
);
my
$regions
= [10000002, 10000003];
$o
= Games::EveOnline::EveCentral::Request::QuickLook->new(
type_id
=> 34,
regions
=>
$regions
,
);
is(
$o
->regions,
$regions
);
$expected_path
=
'quicklook?typeid=34&sethours=360&setminQ=1®ionlimit=10000002®ionlimit=10000003'
;
is(
$o
->_path,
$expected_path
);