|
|
|
@ -1,13 +1,11 @@
|
|
|
|
|
use strict; |
|
|
|
|
use warnings; |
|
|
|
|
|
|
|
|
|
use Test::More tests => 32; |
|
|
|
|
use Test::More tests => 43; |
|
|
|
|
|
|
|
|
|
use Subtitle::SSA::Header; |
|
|
|
|
|
|
|
|
|
my (@lines, $header, $sample); |
|
|
|
|
|
|
|
|
|
$sample = <<"EOF"; |
|
|
|
|
my $sample = <<"EOF"; |
|
|
|
|
[Script Info] |
|
|
|
|
; Script generated by Aegisub 2.1.9 |
|
|
|
|
; http://www.aegisub.org/ |
|
|
|
@ -27,35 +25,22 @@ Last Style Storage: Some style
|
|
|
|
|
Audio File: ?video |
|
|
|
|
EOF |
|
|
|
|
|
|
|
|
|
$header = Subtitle::SSA::Header->new(version => 'ssa'); |
|
|
|
|
@lines = split /\n/, $sample; |
|
|
|
|
diag scalar @lines; |
|
|
|
|
shift @lines; # skip header |
|
|
|
|
my @headers; |
|
|
|
|
my @lines = split /\n/, $sample; |
|
|
|
|
splice @lines, 0, 3; # skip section header and comments |
|
|
|
|
foreach my $line (@lines) { |
|
|
|
|
ok($header->parse($line), 'line parsing'); |
|
|
|
|
my $header = Subtitle::SSA::Header->new; |
|
|
|
|
ok($header->parse($line), "line parsing"); |
|
|
|
|
my ($name, $value) = split(": ", $line, 2); |
|
|
|
|
is($header->{name} => $name); |
|
|
|
|
is($header->{value} => $value); |
|
|
|
|
my $key = $header->hash_key(); |
|
|
|
|
push @headers, $header; |
|
|
|
|
} |
|
|
|
|
is($header->get('ScriptType') => 'v4.00+'); |
|
|
|
|
is($header->get('Title') => 'Some title'); |
|
|
|
|
is($header->get('WrapStyle') => 0); |
|
|
|
|
is($header->get('PlayResX') => 1280); |
|
|
|
|
is($header->get('PlayResY') => 720); |
|
|
|
|
is($header->get('ScaledBorderAndShadow') => 'yes'); |
|
|
|
|
is($header->get('Video Aspect Ratio') => 0); |
|
|
|
|
is($header->get('Video Zoom') => 4); |
|
|
|
|
is($header->get('Video Position') => 11787); |
|
|
|
|
is($header->get('Original Translation') => 'Some author'); |
|
|
|
|
is($header->get('Original Editing') => 'Some corrector'); |
|
|
|
|
is($header->get('Collisions') => 'Normal'); |
|
|
|
|
is($header->get('Last Style Storage') => 'Some style'); |
|
|
|
|
is($header->get('Audio File') => '?video'); |
|
|
|
|
|
|
|
|
|
is($header->{_vers} => 'ass'); # changed with ScriptType |
|
|
|
|
|
|
|
|
|
$sample = <<"EOF"; |
|
|
|
|
[Script Info] |
|
|
|
|
; generated with Subtitle::SSA |
|
|
|
|
ScriptType: v4.00+ |
|
|
|
|
Title: Some title |
|
|
|
|
ScriptType: v4.00+ |
|
|
|
|
WrapStyle: 0 |
|
|
|
|
PlayResX: 1280 |
|
|
|
|
PlayResY: 720 |
|
|
|
@ -68,13 +53,14 @@ Original Editing: Some corrector
|
|
|
|
|
Collisions: Normal |
|
|
|
|
Last Style Storage: Some style |
|
|
|
|
Audio File: ?video |
|
|
|
|
|
|
|
|
|
EOF |
|
|
|
|
|
|
|
|
|
is($sample => $header->to_string()); |
|
|
|
|
@lines = (); |
|
|
|
|
foreach my $h (@headers) { |
|
|
|
|
push @lines, $h->to_string(); |
|
|
|
|
} |
|
|
|
|
my $out = join("\n" => @lines) . "\n"; |
|
|
|
|
|
|
|
|
|
use File::Slurp qw(write_file); |
|
|
|
|
write_file('a.txt', $sample); |
|
|
|
|
write_file('b.txt', $header->to_string()); |
|
|
|
|
is($sample => $out); |
|
|
|
|
|
|
|
|
|
exit 0; |
|
|
|
|