Lines 102-117
subtest 'Koha::Anonymized::Transactions tests' => sub {
Link Here
|
102 |
$pseudonymized = Koha::PseudonymizedTransactions->search( { itemnumber => $item->itemnumber } )->next; |
102 |
$pseudonymized = Koha::PseudonymizedTransactions->search( { itemnumber => $item->itemnumber } )->next; |
103 |
like( $pseudonymized->hashed_borrowernumber, |
103 |
like( $pseudonymized->hashed_borrowernumber, |
104 |
qr{^\$2a\$08\$}, "The hashed_borrowernumber must be a bcrypt hash" ); |
104 |
qr{^\$2a\$08\$}, "The hashed_borrowernumber must be a bcrypt hash" ); |
105 |
is( $pseudonymized->datetime, $statistic->datetime ); |
105 |
is( $pseudonymized->datetime, $statistic->datetime, 'datetime attribute copied correctly' ); |
106 |
is( $pseudonymized->transaction_branchcode, $statistic->branch ); |
106 |
is( $pseudonymized->transaction_branchcode, $statistic->branch, 'transaction_branchcode copied correctly' ); |
107 |
is( $pseudonymized->transaction_type, $statistic->type ); |
107 |
is( $pseudonymized->transaction_type, $statistic->type, 'transacttion_type copied correctly' ); |
108 |
is( $pseudonymized->itemnumber, $item->itemnumber ); |
108 |
is( $pseudonymized->itemnumber, $item->itemnumber, 'itemnumber copied correctly' ); |
109 |
is( $pseudonymized->itemtype, $item->effective_itemtype ); |
109 |
is( $pseudonymized->itemtype, $item->effective_itemtype, 'itemtype copied correctly' ); |
110 |
is( $pseudonymized->holdingbranch, $item->holdingbranch ); |
110 |
is( $pseudonymized->holdingbranch, $item->holdingbranch, 'holdingbranch copied correctly' ); |
111 |
is( $pseudonymized->homebranch, $item->homebranch ); |
111 |
is( $pseudonymized->homebranch, $item->homebranch, 'homebranch copied correctly' ); |
112 |
is( $pseudonymized->location, $item->location ); |
112 |
is( $pseudonymized->location, $item->location, 'location copied correctly' ); |
113 |
is( $pseudonymized->itemcallnumber, $item->itemcallnumber ); |
113 |
is( $pseudonymized->itemcallnumber, $item->itemcallnumber, 'itemcallnumber copied correctly' ); |
114 |
is( $pseudonymized->ccode, $item->ccode ); |
114 |
is( $pseudonymized->ccode, $item->ccode, 'ccode copied correctly' ); |
115 |
|
115 |
|
116 |
$schema->storage->txn_rollback; |
116 |
$schema->storage->txn_rollback; |
117 |
}; |
117 |
}; |
118 |
- |
|
|