You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
3.5 KiB
81 lines
3.5 KiB
use strict; |
|
use warnings; |
|
|
|
use Test::More tests => 51; |
|
|
|
use Subtitle::Format::SSA::Style; |
|
|
|
my ($fields, @fields, $format, $sample, $style, $output); |
|
|
|
# SSA format line |
|
$format = 'Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, TertiaryColour, BackColour, Bold, Italic, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, AlphaLevel, Encoding'; |
|
@fields = qw(name fontname fontsize primarycolour secondarycolour tertiarycolour backcolour bold italic borderstyle outline shadow alignment marginl marginr marginv alphalevel encoding); |
|
$style = Subtitle::Format::SSA::Style->new(type => 'ssa'); |
|
$fields = $style->parse_format_line($format); |
|
is(ref $fields, 'ARRAY'); |
|
is_deeply($fields, \@fields); |
|
|
|
# ASS format line |
|
$format = 'Format:Name,Fontname,Fontsize,PrimaryColour,SecondaryColour,OutlineColour,BackColour,Bold,Italic,Underline,StrikeOut,ScaleX,ScaleY,Spacing,Angle,BorderStyle,Outline,Shadow,Alignment,MarginL,MarginR,MarginV,Encoding'; |
|
@fields = qw(name fontname fontsize primarycolour secondarycolour outlinecolour backcolour bold italic underline strikeout scalex scaley spacing angle borderstyle outline shadow alignment marginl marginr marginv encoding); |
|
$style = Subtitle::Format::SSA::Style->new(type => 'ass'); |
|
$fields = $style->parse_format_line($format); |
|
is(ref $fields, 'ARRAY'); |
|
is_deeply($fields, \@fields); |
|
|
|
$sample = 'Style: Default,Arial,20,11259130,33023,12582847,32,-1,0,1,2,1,2,10,10,2,0,204'; |
|
$style = Subtitle::Format::SSA::Style->new(type => 'ssa'); |
|
ok($style->parse($sample), "SSA style parsing test"); |
|
is($style->{name} => 'Default'); |
|
is($style->{fontname} => 'Arial'); |
|
is($style->{fontsize} => 20); |
|
is($style->{primarycolour} => 11259130); |
|
is($style->{secondarycolour} => 33023); |
|
is($style->{tertiarycolour} => 12582847); |
|
is($style->{backcolour} => 32); |
|
is($style->{bold} => -1); |
|
is($style->{italic} => 0); |
|
is($style->{borderstyle} => 1); |
|
is($style->{outline} => 2); |
|
is($style->{shadow} => 1); |
|
is($style->{alignment} => 2); |
|
is($style->{marginl} => 10); |
|
is($style->{marginr} => 10); |
|
is($style->{marginv} => 2); |
|
is($style->{alphalevel} => 0); |
|
is($style->{encoding} => 204); |
|
|
|
ok($output = $style->to_string(), 'converting SSA style to string'); |
|
is($output, $sample); |
|
|
|
$sample = 'Style: Default,Georgia,50,&H00F0F4F6,&H008D7127,&H00414B4C,&H00000000,0,0,0,0,100,95,0,0,1,3.5,0,2,11,11,13,204'; |
|
$style = Subtitle::Format::SSA::Style->new(type => 'ass'); |
|
ok($style->parse($sample), "ASS style parsing test"); |
|
is($style->{name} => 'Default'); |
|
is($style->{fontname} => 'Georgia'); |
|
is($style->{fontsize} => 50); |
|
is($style->{primarycolour} => 0x00F0F4F6); |
|
is($style->{secondarycolour} => 0x008D7127); |
|
is($style->{outlinecolour} => 0x00414B4C); |
|
is($style->{backcolour} => 0); |
|
is($style->{bold} => 0); |
|
is($style->{italic} => 0); |
|
is($style->{underline} => 0); |
|
is($style->{strikeout} => 0); |
|
is($style->{scalex} => 100); |
|
is($style->{scaley} => 95); |
|
is($style->{spacing} => 0); |
|
is($style->{angle} => 0); |
|
is($style->{borderstyle} => 1); |
|
is($style->{outline} => 3.5); |
|
is($style->{shadow} => 0); |
|
is($style->{alignment} => 2); |
|
is($style->{marginl} => 11); |
|
is($style->{marginr} => 11); |
|
is($style->{marginv} => 13); |
|
is($style->{encoding} => 204); |
|
|
|
ok($output = $style->to_string(), 'converting ASS style to string'); |
|
is($output, $sample); |
|
|
|
exit 0;
|
|
|