#!/usr/bin/perl -w use strict; my $n; use Test::More tests => ($n = 19) * 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->mpeg25, "MPEG 2.5"); ok($frame->layer3, "layer III"); ok(!$frame->broken, "frame is not broken"); is($frame->sample, 11025, "sample rate"); is($frame->length, length("$frame"), "actual frame is as large as calced"); $s += $frame->seconds; } is_near($s, 0.992653061224489, "total duration is correct"); is(MPEG::Audio::Frame->read(*DATA), undef, "nothing left on __DATA__"); ok(eof(DATA), "eof(DATA)"); __DATA__ ˂h Oc7MM7 `?2\' (7&tdt?AMˆ$(?Aq}<8" {_fE?KgeWw-!Tu~ap]ft[-v9[ $Uyp* >9&ʣ3 ~^AD*`o2 JZTm~uB3?(f.0o@x$6AZ1ЇQzs߹Z"#~^AJQTm+Ҥ׳O #/*rƠ}@Z;̒\rT"O0 ,[~^@vvugggcyJ(-5]` LH9A~g L5mP` s=?,ﱳ!ъw,GdJ9QsN4ӍJ?"N3z^0=du\ VXHq0m1ɲ*N)3ś7pr2WuSlڛ4:m ]AF Y[z1ڼ D%Hbg.ͲFl5.Wپ$;Hug("b^2iXɆJTr _gZkIA&j@Dzu}Cic?ܬ k~^2iɻ/|5O\79$ ZGvxyxvh rK! 4R 5 U5$x