mirror/opustags
1
0
Fork 0
mirror of https://github.com/fmang/opustags.git synced 2025-01-16 05:03:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

t: complex --set-all

Browse Source
This commit is contained in:
Frédéric Mangano-Tarumi 2018-10-29 18:26:21 -04:00
parent 24b6268d7a
commit 82d0400207
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
t/tags.t
View File

@ -7,6 +7,7 @@ use utf8;
use Test::More tests => 18;
use Digest::MD5;
use IPC::Open3;
sub md5 {
my ($file) = @_;
@ -74,8 +75,27 @@ is(`./opustags t/out.opus --delete-all -a OK=yes`, <<'EOF', 'delete all');
OK=yes
EOF
is(`echo OK='yes again' | ./opustags t/out.opus --set-all`, <<'EOF', 'set all');
my ($pin, $pout, $perr);
my $pid = open3($pin, $pout, $perr, './opustags t/out.opus --set-all -a A=B -s X=Z -d OK');
binmode($pin, ':utf8');
print $pin <<'EOF';
OK=yes again
ARTIST=七面鳥
A=A
X=Y
EOF
close($pin);
binmode($pout, ':utf8');
is(<$pout>, <<'EOF', 'set all');
OK=yes again
ARTIST=七面鳥
A=A
X=Y
A=B
X=Z
EOF
waitpid($pid, 0);
unlink('t/out.opus');