Browse Source

+ t/format-ssa-style.t

master
Alex 'AdUser' Z 8 years ago
parent
commit
4b1687eafe
  1. 75
      t/format-ssa-style.t

75
t/format-ssa-style.t

@ -0,0 +1,75 @@
use strict;
use warnings;
use Test::More tests => 47;
use Subtitle::SSA::Style;
my ($fields, @fields, $format, $sample, $style);
# 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::SSA::Style->new(version => '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::SSA::Style->new(version => '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::SSA::Style->new(version => '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);
$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::SSA::Style->new(version => '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);
exit 0;
Loading…
Cancel
Save