ProfessionalUwU/opustags
1
0
Fork 0
mirror of https://github.com/fmang/opustags.git synced 2024-09-19 23:32:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

t: read tags from a file

Browse Source
This commit is contained in:
Frédéric Mangano-Tarumi 2018-10-28 18:17:52 -04:00
parent 2181f9f0eb
commit 63fce2f555
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
t/gobble.opus Normal file
View File

Binary file not shown.

18
t/tags.t Normal file
View File

@ -0,0 +1,18 @@
# Test the main features of opustags on an Ogg Opus sample file.
use Test::More tests => 2;
use Digest::MD5;
sub md5 {
my ($file) = @_;
open(my $fh, '<', $file) or return;
my $ctx = Digest::MD5->new;
$ctx->addfile($fh);
$ctx->hexdigest
}
is(md5('t/gobble.opus'), '111a483596ac32352fbce4d14d16abd2', 'the sample is the one we expect');
is(`./opustags t/gobble.opus`, <<'EOF', 'read the initial tags');
encoder=Lavc58.18.100 libopus
EOF