X-Git-Url: http://git.rot13.org/?p=Biblio-Isis;a=blobdiff_plain;f=t%2F002_isis.t;h=499b169dcdae621352d2cf80afb1a1078907eff0;hp=c031d942f7e33794612391e19c83965883dbbe8c;hb=e0d2b17ded82f1cca4fd0723b2a82919474d5045;hpb=49198e2ef96078678c21ed6bf3270b7253916abe diff --git a/t/002_isis.t b/t/002_isis.t index c031d94..499b169 100755 --- a/t/002_isis.t +++ b/t/002_isis.t @@ -114,6 +114,8 @@ sub test_data { my $rec; ok($rec = $isis->fetch($mfn), "fetch $mfn"); + diag "rec: ",Dumper( $rec ); + foreach my $f (keys %{$data->[$mfn-1]}) { my $i = 0; foreach my $v (@{$data->[$mfn-1]->{$f}}) {