#!perl -w
BEGIN {
use_ok(
'CGI::Info'
);
}
PATHS: {
delete
$ENV
{
'HTTP_X_WAP_PROFILE'
};
delete
$ENV
{
'HTTP_USER_AGENT'
};
my
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_mobile() == 0);
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_tablet() == 0);
delete
$ENV
{
'HTTP_X_WAP_PROFILE'
};
$ENV
{
'HTTP_USER_AGENT'
} =
'Mozilla/5.0 (iPhone; U)'
;
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_tablet() == 0);
$ENV
{
'HTTP_USER_AGENT'
} =
'HTTP_USER_AGENT=BlackBerry9000/5.0.0.681 Profile/MIDP-2.1 Configuration/CLDC-1.1 VendorID/142'
;
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_tablet() == 0);
$ENV
{
'HTTP_USER_AGENT'
} =
'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.2.18) Gecko/20110614 Firefox/3.6.18'
;
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_tablet() == 0);
$ENV
{
'HTTP_USER_AGENT'
} =
'Mozilla/5.0 (iPad; CPU OS 5_1_1 like Mac OS X) AppleWebKit/534.46 (KHTML, like Gecko) Version/5.1 Mobile/9B206 Safari/7534.48.3'
;
$i
= new_ok(
'CGI::Info'
);
ok(
$i
->is_tablet() == 1);
ok(
$i
->browser_type() eq
'mobile'
);
}