ProfessionalUwU/opustags
1
0
Fork 0
mirror of https://github.com/fmang/opustags.git synced 2024-09-20 07:42:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

t: pass opus data in stdin/stdout

Browse Source
This commit is contained in:
Frédéric Mangano-Tarumi 2018-11-10 10:24:14 -05:00
parent 702f86a355
commit 74cc6038b2
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
t/cli.t
View File

@ -4,7 +4,7 @@ use strict;
use warnings;
use utf8;
use Test::More tests => 24;
use Test::More tests => 25;
use Digest::MD5;
use File::Basename;
@ -175,4 +175,33 @@ warning: skipping malformed tag
warning: skipping malformed tag
END_ERR
sub slurp {
my ($filename) = @_;
local $/;
open(my $fh, '<', $filename);
binmode($fh);
my $data = <$fh>;
$data
}
sub opustags_binary {
my $in = pop @_;
my ($pid, $pin, $pout, $perr);
local $/;
$perr = gensym;
$pid = open3($pin, $pout, $perr, $opustags, @_);
binmode($pin);
binmode($pout);
binmode($perr, ':utf8');
print $pin $in if defined $in;
close $pin;
my $out = <$pout>;
my $err = <$perr>;
waitpid($pid, 0);
[$out, $err, $?]
}
my $data = slurp "$t/out.opus";
is_deeply(opustags_binary('-', '-o', '-', $data), [$data, '', 0], 'read opus from stdin and write to stdout');
unlink("$t/out.opus");