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.
80 lines
2.0 KiB
80 lines
2.0 KiB
use strict; |
|
use warnings; |
|
|
|
use Test::More tests => 32; |
|
|
|
use Subtitle::SSA::Header; |
|
|
|
my (@lines, $header, $sample); |
|
|
|
$sample = <<"EOF"; |
|
[Script Info] |
|
; Script generated by Aegisub 2.1.9 |
|
; http://www.aegisub.org/ |
|
Title: Some title |
|
ScriptType: v4.00+ |
|
WrapStyle: 0 |
|
PlayResX: 1280 |
|
PlayResY: 720 |
|
ScaledBorderAndShadow: yes |
|
Video Aspect Ratio: 0 |
|
Video Zoom: 4 |
|
Video Position: 11787 |
|
Original Translation: Some author |
|
Original Editing: Some corrector |
|
Collisions: Normal |
|
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 |
|
foreach my $line (@lines) { |
|
ok($header->parse($line), 'line parsing'); |
|
} |
|
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 |
|
WrapStyle: 0 |
|
PlayResX: 1280 |
|
PlayResY: 720 |
|
ScaledBorderAndShadow: yes |
|
Video Aspect Ratio: 0 |
|
Video Zoom: 4 |
|
Video Position: 11787 |
|
Original Translation: Some author |
|
Original Editing: Some corrector |
|
Collisions: Normal |
|
Last Style Storage: Some style |
|
Audio File: ?video |
|
|
|
EOF |
|
|
|
is($sample => $header->to_string()); |
|
|
|
use File::Slurp qw(write_file); |
|
write_file('a.txt', $sample); |
|
write_file('b.txt', $header->to_string()); |
|
|
|
exit 0;
|
|
|