--- trunk/t/002_isis.t 2006/07/06 20:31:46 45 +++ trunk/t/002_isis.t 2006/07/07 10:25:02 46 @@ -114,6 +114,8 @@ 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}}) {