gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove diagnostic output from t/Members_Attributes.t 

While this might be useful for developers, is mostly pointless
otherwise. Should be replaced with a true test of these four
functions.
This commit is contained in:
Jesse Weaver 2009-12-14 23:12:48 -07:00 committed by Henri-Damien LAURENT
parent 7f021e4711
commit 09d153d85a
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/Members_Attributes.t
View File

@ -94,17 +94,11 @@ can_ok('C4::Members::Attributes', qw(extended_attributes_merge extended_attribut
ok(ref($C4::Members::Attributes::AttributeTypes) eq 'HASH', '$C4::Members::Attributes::AttributeTypes is a hashref');
diag scalar(@merge_tests) . " tests for extended_attributes_merge";
foreach my $test (@merge_tests) {
my ($old, $new, $merged);
ok($old = extended_attributes_code_value_arrayref($test->{line1}), "extended_attributes_code_value_arrayref('$test->{line1}')");
foreach (@$old) { diag "old attribute: $_->{code} = $_->{value}"; }
ok($new = extended_attributes_code_value_arrayref($test->{line2}), "extended_attributes_code_value_arrayref('$test->{line2}')");
foreach (@$new) { diag "new attribute: $_->{code} = $_->{value}"; }
ok($merged = extended_attributes_merge($old, $new), "extended_attributes_merge(\$old, \$new)");
foreach (@$merged) { diag "merge (overwrite) attribute: $_->{code} = $_->{value}"; }
ok($merged = extended_attributes_merge($old, $new, 1), "extended_attributes_merge(\$old, \$new, 1)");
foreach (@$merged) { diag "merge (preserve) attribute: $_->{code} = $_->{value}"; }
}