Lines 138-146
subtest 'Koha::Anonymized::Transactions tests' => sub {
Link Here
|
138 |
$schema->storage->txn_rollback; |
138 |
$schema->storage->txn_rollback; |
139 |
}; |
139 |
}; |
140 |
|
140 |
|
141 |
subtest 'PseudonymizedBorrowerAttributes tests' => sub { |
141 |
subtest 'PseudonymizedMetadataValues tests' => sub { |
142 |
|
142 |
|
143 |
plan tests => 3; |
143 |
plan tests => 5; |
144 |
|
144 |
|
145 |
$schema->storage->txn_begin; |
145 |
$schema->storage->txn_begin; |
146 |
|
146 |
|
Lines 217-240
subtest 'PseudonymizedBorrowerAttributes tests' => sub {
Link Here
|
217 |
|
217 |
|
218 |
my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store; |
218 |
my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store; |
219 |
my $attributes = |
219 |
my $attributes = |
220 |
Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute') |
220 |
Koha::Database->new->schema->resultset('PseudonymizedMetadataValue') |
221 |
->search( { transaction_id => $p->id }, { order_by => 'attribute' } ); |
221 |
->search( { transaction_id => $p->id }, { order_by => 'value' } ); |
222 |
is( |
222 |
is( |
223 |
$attributes->count, 2, |
223 |
$attributes->count, 2, |
224 |
'Only the 2 attributes that have a type with keep_for_pseudonymization set should be kept' |
224 |
'Only the 2 attributes that have a type with keep_for_pseudonymization set should be kept' |
225 |
); |
225 |
); |
226 |
my $attribute_1 = $attributes->next; |
226 |
my $attribute_1 = $attributes->next; |
227 |
is_deeply( |
227 |
|
228 |
{ attribute => $attribute_1->attribute, code => $attribute_1->code->code }, |
228 |
is( $attribute_1->value, $attribute_values->[0]->{attribute} ); |
229 |
$attribute_values->[0], |
229 |
is( $attribute_1->key, $attribute_values->[0]->{code} ); |
230 |
'Attribute 1 should be retrieved correctly' |
230 |
|
231 |
); |
|
|
232 |
my $attribute_2 = $attributes->next; |
231 |
my $attribute_2 = $attributes->next; |
233 |
is_deeply( |
232 |
is( $attribute_2->value, $attribute_values->[2]->{attribute} ); |
234 |
{ attribute => $attribute_2->attribute, code => $attribute_2->code->code }, |
233 |
is( $attribute_2->key, $attribute_values->[2]->{code} ); |
235 |
$attribute_values->[2], |
|
|
236 |
'Attribute 2 should be retrieved correctly' |
237 |
); |
238 |
|
234 |
|
239 |
$schema->storage->txn_rollback; |
235 |
$schema->storage->txn_rollback; |
240 |
}; |
236 |
}; |
241 |
- |
|
|