|
Lines 132-159
subtest 'PseudonymizedBorrowerAttributes tests' => sub {
Link Here
|
| 132 |
delete $patron_info->{borrowernumber}; |
132 |
delete $patron_info->{borrowernumber}; |
| 133 |
$patron->delete; |
133 |
$patron->delete; |
| 134 |
|
134 |
|
| 135 |
my $attribute_type1 = Koha::Patron::Attribute::Type->new( |
135 |
my $attribute_type1 = $builder->build_object( |
| 136 |
{ |
136 |
{ |
| 137 |
code => 'my code1', |
137 |
class => 'Koha::Patron::Attribute::Types', |
| 138 |
description => 'my description1', |
138 |
value => { |
| 139 |
repeatable => 1, |
139 |
repeatable => 1, |
| 140 |
keep_for_pseudonymization => 1, |
140 |
keep_for_pseudonymization => 1, |
|
|
141 |
} |
| 141 |
} |
142 |
} |
| 142 |
)->store; |
143 |
); |
| 143 |
my $attribute_type2 = Koha::Patron::Attribute::Type->new( |
144 |
my $attribute_type2 = $builder->build_object( |
| 144 |
{ |
145 |
{ |
| 145 |
code => 'my code2', |
146 |
class => 'Koha::Patron::Attribute::Types', |
| 146 |
description => 'my description2', |
147 |
value => { |
| 147 |
keep_for_pseudonymization => 0, |
148 |
keep_for_pseudonymization => 0, |
|
|
149 |
} |
| 148 |
} |
150 |
} |
| 149 |
)->store; |
151 |
); |
| 150 |
my $attribute_type3 = Koha::Patron::Attribute::Type->new( |
152 |
my $attribute_type3 = $builder->build_object( |
| 151 |
{ |
153 |
{ |
| 152 |
code => 'my code3', |
154 |
class => 'Koha::Patron::Attribute::Types', |
| 153 |
description => 'my description3', |
155 |
value => { |
| 154 |
keep_for_pseudonymization => 1, |
156 |
keep_for_pseudonymization => 1, |
|
|
157 |
} |
| 155 |
} |
158 |
} |
| 156 |
)->store; |
159 |
); |
| 157 |
|
160 |
|
| 158 |
$patron = Koha::Patron->new($patron_info)->store->get_from_storage; |
161 |
$patron = Koha::Patron->new($patron_info)->store->get_from_storage; |
| 159 |
my $attribute_values = [ |
162 |
my $attribute_values = [ |
| 160 |
- |
|
|