foreach my $mfn ( 1 ... $size ) {
my $rec = $input->fetch;
ok($rec, "fetch $mfn");
cmp_ok($rec->{'000'}->[0], '==', $mfn, 'has mfn');
cmp_ok($input->pos, '==', $mfn, "pos $mfn");
foreach my $mfn ( 1 ... $size ) {
my $rec = $input->fetch;
ok($rec, "fetch $mfn");
cmp_ok($rec->{'000'}->[0], '==', $mfn, 'has mfn');
cmp_ok($input->pos, '==', $mfn, "pos $mfn");