#!/usr/bin/perl -T
{
my
$codec
= Video::FourCC::Info->new(
'DIV3'
);
isa_ok(
$codec
,
'Video::FourCC::Info'
);
is(
$codec
->code,
'DIV3'
,
'FourCC code is DIV3'
);
is(
$codec
->description,
'DivX 3 Low-Motion'
,
'DivX 3 Low Motion Codec'
);
is(
$codec
->owner,
'DivX'
);
}
{
my
$fourcc
= Video::FourCC::Info->describe(
'DIV3'
);
is(
$fourcc
,
'DivX 3 Low-Motion'
,
'Use of class method describe'
);
$fourcc
= Video::FourCC::Info->describe(
'div3'
);
is(
$fourcc
,
'DivX 3 Low-Motion'
,
'Lowercase use of describe'
);
}
{
my
$codec
= Video::FourCC::Info->new(
'CC12'
);
is($@ ?
$codec
->registered :
$codec
->registered->ymd(
'-'
),
'1996-06-12'
,
'Intel YUV12 codec register date'
);
}
{
Video::FourCC::Info->new(
'ACTL'
);
}