From 63fce2f5559d8461b2ae5fc6bcf52de6b7bff4dd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Mangano-Tarumi?= Date: Sun, 28 Oct 2018 18:17:52 -0400 Subject: [PATCH] t: read tags from a file --- t/gobble.opus | Bin 0 -> 1191 bytes t/tags.t | 18 ++++++++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 t/gobble.opus create mode 100644 t/tags.t diff --git a/t/gobble.opus b/t/gobble.opus new file mode 100644 index 0000000000000000000000000000000000000000..1044f9546f2b2516bdaa209e04cbf6580bdaa561 GIT binary patch literal 1191 zcmX|Ado+}37&mBo$b9q7)fO$$(v34NxlFN)cH1-7Ez^>AYuvMlNPA{ocJO_Q6uC`g zERI!Mn5L4G)@4meLRb~LNtv!&L{qs;`%QKBci#6rx8L);@AJpcCo2K*O4^_fUR14i(=e4uTR$tMeSy-r?xw-14+@)(o@|6<(n@wO)B8%`--wNfjg|@JPF(`S@JWzrar|r)n z9lpEt=hx9YnQkB%^HIJ#^!A&hi*kFUulEh+gCu+;-!od}ag1NvV0b~UePd%8;J9`J z$1Y70T{5J=QrG&90lxi=Vm?SozG_!x_9%&`cl9(BH90qNFCEE}qsJ42E446zL^%oA z*8IuMCjFC}532hwQU~gyI7`|A4~$CXfAx^RdV{Md>#1`X;DSwNrhY-mw*!$6qxa(> zvrArqrx&MV;($@yexdW0{loH+bzOpSVyDXVIti)}%CdI_=;v3~0shA{b!XLOsoKA4 z2E2%k41KB9M?y~i>(kzBp51G|*!2u=9waFfsa^3elIr!MGIMZg!Ze5)gOjS4}sqjZ>ko2oB2pPN=2NtcxacEy{=r8G8lO7~7yoa=zhmsh)#19Mv& zTkdYE{m|!mP7w$tCsSf$OhkQ1k1Qm^@3GV0fN!0kt8TW|Vc;W^{HC5fs zr)I;?FFZe?QcvZ1+%p9{hJR-qHNQLfpmyBgitAWBxC%y9;%9SQ#pTMlo5@1hSWlMi z*3;49aFbowVj$~@Bd5F283F{J%X~9B_xb zV#9hM*$+$QgS{xnI;>+}o2b%zD|+e%6%7OyDu z`%U7BZ4d+gOFA!R>hWGjM?(s<4`NVUW91N=+uhs}u}qy^Guh7b)&=~)gWTgn)k%z> zoU$ExHFqflihL-oK@m-pqeg|93U$+Y_DWH-8<1_QXCFC~>g0)Okmofv+!MGiR#a6l z(kgw))@#j&yc15UaSMvsCKtwx?GG(t$QU=boXY~Pf8ofIRnTb)1yjqP 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