|
Lines 79-85
subtest 'Config does not exist' => sub {
Link Here
|
| 79 |
|
79 |
|
| 80 |
subtest 'Koha::Anonymized::Transactions tests' => sub { |
80 |
subtest 'Koha::Anonymized::Transactions tests' => sub { |
| 81 |
|
81 |
|
| 82 |
plan tests => 15; |
82 |
plan tests => 16; |
| 83 |
|
83 |
|
| 84 |
$schema->storage->txn_begin; |
84 |
$schema->storage->txn_begin; |
| 85 |
|
85 |
|
|
Lines 135-146
subtest 'Koha::Anonymized::Transactions tests' => sub {
Link Here
|
| 135 |
is( $pseudonymized->itemcallnumber, $item->itemcallnumber, 'itemcallnumber copied correctly' ); |
135 |
is( $pseudonymized->itemcallnumber, $item->itemcallnumber, 'itemcallnumber copied correctly' ); |
| 136 |
is( $pseudonymized->ccode, $item->ccode, 'ccode copied correctly' ); |
136 |
is( $pseudonymized->ccode, $item->ccode, 'ccode copied correctly' ); |
| 137 |
|
137 |
|
|
|
138 |
my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store; |
| 139 |
|
| 140 |
isnt( |
| 141 |
$pseudonymized->id, |
| 142 |
$next_p->id, |
| 143 |
'The id of the 2nd pseudonymized transaction should be different' |
| 144 |
); |
| 145 |
|
| 138 |
$schema->storage->txn_rollback; |
146 |
$schema->storage->txn_rollback; |
| 139 |
}; |
147 |
}; |
| 140 |
|
148 |
|
| 141 |
subtest 'PseudonymizedBorrowerAttributes tests' => sub { |
149 |
subtest 'PseudonymizedBorrowerAttributes tests' => sub { |
| 142 |
|
150 |
|
| 143 |
plan tests => 3; |
151 |
plan tests => 5; |
| 144 |
|
152 |
|
| 145 |
$schema->storage->txn_begin; |
153 |
$schema->storage->txn_begin; |
| 146 |
|
154 |
|
|
Lines 236-240
subtest 'PseudonymizedBorrowerAttributes tests' => sub {
Link Here
|
| 236 |
'Attribute 2 should be retrieved correctly' |
244 |
'Attribute 2 should be retrieved correctly' |
| 237 |
); |
245 |
); |
| 238 |
|
246 |
|
|
|
247 |
my $number_of_attributes_before_2nd_p = $attributes->count; |
| 248 |
|
| 249 |
my $second_statistic = Koha::Statistic->new( |
| 250 |
{ |
| 251 |
type => 'issue', |
| 252 |
branch => $library->branchcode, |
| 253 |
itemnumber => $item->itemnumber, |
| 254 |
borrowernumber => $patron->borrowernumber, |
| 255 |
itemtype => $item->effective_itemtype, |
| 256 |
location => $item->location, |
| 257 |
ccode => $item->ccode, |
| 258 |
} |
| 259 |
); |
| 260 |
|
| 261 |
my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($second_statistic)->store; |
| 262 |
my $next_attributes = |
| 263 |
Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute') |
| 264 |
->search( { transaction_id => $next_p->id }, { order_by => 'attribute' } ); |
| 265 |
|
| 266 |
is( |
| 267 |
$attributes->count, |
| 268 |
$number_of_attributes_before_2nd_p, |
| 269 |
'The number of attributes for the original transaction should remain the same' |
| 270 |
); |
| 271 |
|
| 272 |
isnt( |
| 273 |
$p->id, |
| 274 |
$next_p->id, |
| 275 |
'The id of the 2nd pseudonymized transaction should be different' |
| 276 |
); |
| 277 |
|
| 239 |
$schema->storage->txn_rollback; |
278 |
$schema->storage->txn_rollback; |
| 240 |
}; |
279 |
}; |
| 241 |
- |
|
|