|
Lines 146-152
subtest 'Koha::Anonymized::Transactions tests' => sub {
Link Here
|
| 146 |
$schema->storage->txn_rollback; |
146 |
$schema->storage->txn_rollback; |
| 147 |
}; |
147 |
}; |
| 148 |
|
148 |
|
| 149 |
subtest 'PseudonymizedBorrowerAttributes tests' => sub { |
149 |
subtest 'PseudonymizedMetadataValues tests' => sub { |
| 150 |
|
150 |
|
| 151 |
plan tests => 5; |
151 |
plan tests => 5; |
| 152 |
|
152 |
|
|
Lines 225-245
subtest 'PseudonymizedBorrowerAttributes tests' => sub {
Link Here
|
| 225 |
|
225 |
|
| 226 |
my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic); |
226 |
my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic); |
| 227 |
my $attributes = |
227 |
my $attributes = |
| 228 |
Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute') |
228 |
Koha::Database->new->schema->resultset('PseudonymizedMetadataValue') |
| 229 |
->search( { transaction_id => $p->id }, { order_by => 'attribute' } ); |
229 |
->search( { transaction_id => $p->id }, { order_by => 'value' } ); |
| 230 |
is( |
230 |
is( |
| 231 |
$attributes->count, 2, |
231 |
$attributes->count, 2, |
| 232 |
'Only the 2 attributes that have a type with keep_for_pseudonymization set should be kept' |
232 |
'Only the 2 attributes that have a type with keep_for_pseudonymization set should be kept' |
| 233 |
); |
233 |
); |
| 234 |
my $attribute_1 = $attributes->next; |
234 |
my $attribute_1 = $attributes->next; |
| 235 |
is_deeply( |
235 |
is_deeply( |
| 236 |
{ attribute => $attribute_1->attribute, code => $attribute_1->code->code }, |
236 |
{ attribute => $attribute_1->value, code => $attribute_1->key }, |
| 237 |
$attribute_values->[0], |
237 |
$attribute_values->[0], |
| 238 |
'Attribute 1 should be retrieved correctly' |
238 |
'Attribute 1 should be retrieved correctly' |
| 239 |
); |
239 |
); |
| 240 |
my $attribute_2 = $attributes->next; |
240 |
my $attribute_2 = $attributes->next; |
| 241 |
is_deeply( |
241 |
is_deeply( |
| 242 |
{ attribute => $attribute_2->attribute, code => $attribute_2->code->code }, |
242 |
{ attribute => $attribute_2->value, code => $attribute_2->key }, |
| 243 |
$attribute_values->[2], |
243 |
$attribute_values->[2], |
| 244 |
'Attribute 2 should be retrieved correctly' |
244 |
'Attribute 2 should be retrieved correctly' |
| 245 |
); |
245 |
); |
|
Lines 260-266
subtest 'PseudonymizedBorrowerAttributes tests' => sub {
Link Here
|
| 260 |
|
260 |
|
| 261 |
my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($second_statistic); |
261 |
my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($second_statistic); |
| 262 |
my $next_attributes = |
262 |
my $next_attributes = |
| 263 |
Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute') |
263 |
Koha::Database->new->schema->resultset('PseudonymizedMetadataValue') |
| 264 |
->search( { transaction_id => $next_p->id }, { order_by => 'attribute' } ); |
264 |
->search( { transaction_id => $next_p->id }, { order_by => 'attribute' } ); |
| 265 |
|
265 |
|
| 266 |
is( |
266 |
is( |
| 267 |
- |
|
|