#!/usr/bin/perl -w use strict; my $n; use Test::More tests => ($n = 40) * 6 + 4; use lib "t/lib"; use Test::FloatNear; BEGIN { use_ok("MPEG::Audio::Frame") }; my $s = 0; for (1 .. $n){ isa_ok(my $frame = MPEG::Audio::Frame->read(*DATA), "MPEG::Audio::Frame", "frame $_"); ok($frame->mpeg2, "MPEG 2"); ok($frame->layer3, "layer III"); ok(!$frame->broken, "frame is not broken"); is($frame->sample, 22050, "sample rate"); is($frame->length, length("$frame"), "actual length eq calculated length"); $s += $frame->seconds; } is_near($s, 1.04489795918367, "total length"); is(MPEG::Audio::Frame->read(*DATA), undef, "nothing more on __DATA__"); ok(eof(DATA), "eof(DATA)"); __DATA__ @JJh OQǠ4.ௐ7<94˅A=c JܸJ `r\ܸ\@>ᄪ2BuPE"B h f~Gs6MKR`0≋]MunԂLW6"SMW̃Bs շhhʠp uJ7ͺ@I7Lh\QR]ṅbւTlu*I&]*-.߯Iŗ"2O(n6*" XLMy3::a8B"*A:(QI9Ej]g]@\LJFh8EK" 2xO@/ R"]ĘkR E$@ "2ص壸dP0e41F4TQ8(̀4MjZI]%3&SudI!q67IOCuZZ B .7hhyc)D;RH lbI96:,N5jJMj3u麒KZc3ŒtTq18ѬZ?oԻ~/T@K|$i@ R ho1)쌵tb0FȗTNp{ފ5$QFIlUKYK1Y6t\u-Bcڔj1=(2sj Nz 4S [%]5:UScz* GpRy4 tZ.^I!WMH@) |1|""ƴUkguRINUD}$^е Nu5]FK2~ l./"~wo;č}PA54B-KwUn~W>ũuڪ,(E4PF xc 4YBvݭ>1cUi ,MI%&)v]H/_ZhdE@:1Cڔ썔VL* xaAsԾOd˜q&I` _^Z0@Ѻ0TRһvW@4BHIKZ.3&U&pp̢eQ_WZ׫5JJxZ[u$^/$nIBJPs( [1"ŕ@R{ڔ#tVy@4ifNAM̂ 3`z2*Su:kڙiWSU^X9(U(B4 `6`Uab"gc8B\1KZY}Z55 g($JZJz$t}ZWD dQ<˷+֥L T;Wn*Ɋ_ZG@=@k!K%]3$PwRҢ[>b 8fH+Uz򱩈@@-$BA(#{+Z€rhVSK`+|,t."Bu±@dɶ[_M%fp!B&E aZtn6rxJйS뙥lM&ZA9%HQAJt/~ZuR@~`d蘪2@@ ujjV/uTj 8 '(^& jR޵bRU@7vKo,OVݕBĎbd>숵$I$+!MF Jse<1Q=]ve$y-`L"hEL @gu#dYm0dfmjzF@Ęi²L.0+.SoE8$+$W}*MI 4▁Tڞ?O#:3L|YQ# d*5:=?jBĩzdUԛ1ZkMZ@scAif#6H! 2?B e((UR*Z}3LH8qkmUY:znǡ*kl(6^bRH&Y3ìɡo42YPKRN,@ @e(*CtfY!bVg_nGL LQZ e2`?UʋGu~,2 @Xb@+`R13u_j 'ڲARB e(e+}c]EU J.&QN\eǢZѰqeR$%[eo3e:TPVZ +j4H1pc$KdRәk@j@e(hbʋ4zjw5-/ 5 jdӋisy9O]-HDQl b(VC.L nDKKSVܪB@e(n5M#0M[nL[X$0 !1S%+Au 1^ai;HQ5<]I$UU @9Gbnp.+ޣ3ײ@ @}(~(,1((MdVLZǣSvd( 斐KuIvZH:E'mEj%%c:}mHVbzBb@e(^iОbAֆMM\?01$uҤEkQ.hZ9՘::)0ri<"S*AH=0O`@|h#-!e$2+Z1@ `M(=tjBE;WF @$ȭ$)fƀU63jjH?q%os5(uJ}_@ʙD\ֵwRJE% C)u:m[5)T2->ԥ)4TlČCϗ 960;\x~+ ]!tPmmBR{`Ґ1e2eL0"21zRaIn$,͒BH@p 2R#l2QCBVBDZlnD@R{ڸ'66D6Ec1dJY(%] 1dE8Hh$jh$*LAME3.89 (beta)BijaLAME3.89 (beta)@2\2LLAME3.89 (beta)BHLAME3.89 (beta)@HBH