dump rec in debug also

[Biblio-Isis] / t / 002_isis.t

diff --git a/t/002_isis.t b/t/002_isis.t
index c031d94..499b169 100755 (executable)
--- 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");
 
                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}}) {
                foreach my $f (keys %{$data->[$mfn-1]}) {
                        my $i = 0;
                        foreach my $v (@{$data->[$mfn-1]->{$f}}) {