X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F2-input-isi.t;h=289e8f806d2708160aebf0db275f20908208b02f;hb=db4dde137c6ecf6a38fc3e37a95364999b04ee5a;hp=4dc3acaae7722b4be31d43c4f799ac9151b06e8c;hpb=b5c19bae10ced3446525c5f40044c05eff872d85;p=webpac2 diff --git a/t/2-input-isi.t b/t/2-input-isi.t index 4dc3aca..289e8f8 100755 --- a/t/2-input-isi.t +++ b/t/2-input-isi.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use blib; +use lib 'lib'; use Test::More tests => 12; @@ -29,7 +29,7 @@ cmp_ok( $size, '==', 3, 'size ok' ); 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");