1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test::More tests => 10;
use_ok('Media::Convert::Asset');
use_ok('Media::Convert::Pipe');
my $input = Media::Convert::Asset->new(url => 't/testvids/bbb.mp4');
isa_ok($input, 'Media::Convert::Asset');
my $output = Media::Convert::Asset->new(url => 't/testvids/from10.mp4', fragment_start => 10);
isa_ok($output, 'Media::Convert::Asset');
my $pipe = Media::Convert::Pipe->new(inputs => [$input], output => $output);
isa_ok($pipe, 'Media::Convert::Pipe');
unlink($output->url);
$pipe->run;
ok(-f $output->url, 'The output file exists');
my $check = Media::Convert::Asset->new(url => $output->url);
isa_ok($check, 'Media::Convert::Asset');
ok($check->duration > ($input->duration - 10.1) && $check->duration < ($input->duration - 9.9), "The video has (approximately) the correct length");
ok($check->video_codec eq $input->video_codec, 'The video has the same codec as the input video');
ok($check->audio_codec eq $input->audio_codec, 'The audio has the same codec as the input video');
unlink($output->url);
|
