use
strict;
use
warnings;
use
Test::More;
BEGIN { use_ok(
'WWW::YouTube::Info::Simple'
) };
# "Gmail Theater Act 1" https://www.youtube.com/watch?v=_YUugB4IUl4
my
$id
=
'_YUugB4IUl4'
;
my
@args
;
push
@args
,
$id
;
my
$yt
= new_ok(
'WWW::YouTube::Info::Simple'
=> \
@args
);
SKIP: {
my
$info
=
$yt
->get_info();
skip
"get_title() might fail! (\$info->{status} ne 'ok')"
, 2
if
$info
->{status} ne
'ok'
;
ok(
my
$title
=
$yt
->get_title(),
"get_title() on VIDEO_ID '$id'"
);
like(
$title
,
qr/^(?:Gmail Theater Act 1|_YUugB4IUl4)$/
,
"is 'Gmail Theater Act 1' or '_YUugB4IUl4'"
);
};
done_testing();