#!/usr/bin/perl # based on fl4.mpg # http://bmrc.berkeley.edu/ftp/pub/multimedia/mpeg/mpeg2/conformance-bitstreams/audio/mpeg1/compliance/ use strict; use integer; my $n; use Test::More tests => ($n = 49) * 8 + 2; BEGIN { use_ok("MPEG::Audio::Frame") }; for (1 .. $n){ isa_ok(my $frame = MPEG::Audio::Frame->read(*DATA), "MPEG::Audio::Frame", "frame $_"); ok($frame->mpeg1, "frame is MPEG1"); ok($frame->layer1, "frame is layer I"); ok(!$frame->has_crc, "frame doesn't have CRC"); is($frame->bitrate, 32, "bitrate"); is($frame->sample, 32000, "sample rate"); is($frame->channels, 3, "channels"); ok($frame->mono, "frame is mono"); } is(MPEG::Audio::Frame->read(*DATA), undef, "nothing else in the file"); __DATA__ b2jUUUUUUKVWTI1/8ӀS?i[40v%,dt0<Ŗq5>9z#U(ΣX:;t7@ڌ#s-s]nB0[!CډXa_ebѢaڑ`%_ڥ___sMoFV[ST\ZTSZ|VڐX^X2WvsR|yQIb b]m`I`A_____' _w ^ڒN2MU=Tڮ\-[[c[B=z-t c-Zm\M_\Q_]^]Y^SUAetTb`]`d___5__X0M5ima^a^]\a[)Z1Y9X9WWB @@mR-_ma_-^ \ڟi\^]8dM_FQx]R[ڷUhڼXWڀX4WW@P`RYq^P_ڭ]D\[@ZZjYCS}ڗma7ZgZG]G_ڦ^g^ڧ_^\_ u=;UXЍsqڽ23  U.MکM,/ !ګ*!کf)Iک) @ H I J%kl1l;,kkk TMOMrbvjnTJYk!>K $ MQڡۭڤm/.,q2 1گ/05_]L KM[ZiY9XtWWW C9ڮڨݭYڭ).٩-NJ,4 D #{KdڳjqOnpooo$o& @MKmoooonmm7l>k Sa'@g׏mlxNnhlڗuLˎ !35ڸm ($嶥ڥA9ڵ٥ڵ 0=ڪݨڪaڦ.ڦڭڴ AU9v51fΕ,5گڮ.uگ.D1V\P^\T!YVWXAW  N7 4ڦ7j6%j444 06(eکN*+,5,53ګ T mڏmljLnQiڍNj,Ukl~  UڰMں@mڵ'm& 4qTѶRڧJ`@5_-,ZYYYYYڙmXyWW C9ڡ.ڭ ڰU*i+#PUڕEJU$5UWJ[* 05کa,.ϝ/.-V-!,,x BF7-m.7.F mMڶ4r7%%8#T\QʼU-W2Eڛ)Y 05ڭډ+ڶ].ڮ,M, ګ,0PZ*tUUUgʭX*D5WES4^A`]R[T5J]VXyW 0Eڪ.ګݨڋ].Z+)- 01ڴ*Diڴ$ڴ5 ڥ1ڵ55525%jF*U W(\ i*#1euUxUWXUv 057%)N%J%ڥڶ6%ڦ:%20Uk"aUF[ZEک*UT#DPJUP,UVr%Vj]*