109 |
|
|
110 |
foreach my $mfn (1 .. $isis->count) { |
foreach my $mfn (1 .. $isis->count) { |
111 |
|
|
|
diag "row: ",Dumper( $data->[$mfn-1] ); |
|
|
|
|
112 |
my $rec; |
my $rec; |
113 |
ok($rec = $isis->fetch($mfn), "fetch $mfn"); |
ok($rec = $isis->fetch($mfn), "fetch $mfn"); |
114 |
|
|
115 |
|
|
116 |
|
diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ); |
117 |
|
|
118 |
foreach my $f (keys %{$data->[$mfn-1]}) { |
foreach my $f (keys %{$data->[$mfn-1]}) { |
119 |
my $i = 0; |
my $i = 0; |
120 |
foreach my $v (@{$data->[$mfn-1]->{$f}}) { |
foreach my $v (@{$data->[$mfn-1]->{$f}}) { |