perlquestion
LanX
Moin Monks!<P>
I need some help using [mod://Test::Deep] ...<P>
my problem:
I wanna refactor a rather complicated module which produces nested data structures like the following and I wanna test that the output stays stable:<P>
<c>
my $h_data1 = {
'756' => {
'firstname' => [
'17833329',
'17785333',
],
'lastname' => [
'17785333',
'17785974',
],
'pks' => [
'17833329',
'17785333',
'17785974',
],
'time' => '0.00718307495117188', # How long it took
},
'755' => {
'lastname' => [
'17833329'
],
'pks' => [
'17833329'
],
'time' => '0.00639796257019043',
}
};
</c>
to be able to use Test::More::is_deeply() between to runs I need to ignore the time benchmark.<P>
I already solved this quite complicatedly by copying new filtered hashes...<P>
<c>
use strict;
use warnings;
use Test::More;
use Data::Dump qw/pp/;
sub ignore_fields {
my $h_in = shift;
my $h_out;
my @to_ignore =qw(time);
while ( my ($pk, $h_matches) = each %$h_in ) {
my $h_filtered = { %$h_matches };
delete @$h_filtered{@to_ignore};
$h_out->{$pk}=$h_filtered;
}
return $h_out;
}
pp ignore_fields($h_data1);
pp $h_data1;
is_deeply(ignore_fields($h_data1), ignore_fields($h_data2), "is_deeply");
</c><P>
But Test::Deep should be the right module to do this appropriately, unfortunately today my brain is to slow to understand the docs... (it's flue season ;-)<P>
Any help appreciated!<P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf
</div></div>