--- trunk/t/2-input-isi.t 2013/01/27 19:24:38 1371 +++ trunk/t/2-input-isi.t 2013/08/22 08:14:43 1372 @@ -29,7 +29,7 @@ foreach my $mfn ( 1 ... $size ) { my $rec = $input->fetch; - ok( $rec->{TI}, 'TI' ); + ok( exists($rec->{TI}), 'TI' ); cmp_ok($input->pos, '==', $mfn, "pos $mfn");