Lines 197-212
subtest 'Reduce log size by unblessing Koha objects' => sub {
Link Here
|
197 |
}; |
197 |
}; |
198 |
|
198 |
|
199 |
subtest 'Test storing diff of objects' => sub { |
199 |
subtest 'Test storing diff of objects' => sub { |
200 |
plan tests => 1; |
200 |
plan tests => 2; |
201 |
|
201 |
|
202 |
my $builder = t::lib::TestBuilder->new; |
202 |
my $builder = t::lib::TestBuilder->new; |
203 |
my $item = $builder->build_sample_item; |
203 |
my $item = $builder->build_sample_item; |
204 |
my $original = $item->unblessed(); |
204 |
my $original = $item->unblessed(); |
|
|
205 |
my $original_item = $item->get_from_storage(); |
205 |
$item->barcode('_MY_TEST_BARCODE_')->store(); |
206 |
$item->barcode('_MY_TEST_BARCODE_')->store(); |
|
|
207 |
|
206 |
logaction( 'MY_MODULE', 'TEST01', $item->itemnumber, $item, 'opac', $original ); |
208 |
logaction( 'MY_MODULE', 'TEST01', $item->itemnumber, $item, 'opac', $original ); |
207 |
my $logs = Koha::ActionLogs->search({ module => 'MY_MODULE', action => 'TEST01', object => $item->itemnumber })->next; |
209 |
my $logs = Koha::ActionLogs->search({ module => 'MY_MODULE', action => 'TEST01', object => $item->itemnumber })->next; |
208 |
my $diff = decode_json( $logs->diff ); |
210 |
my $diff = decode_json( $logs->diff ); |
209 |
is( $diff->{D}->{barcode}->{N}, '_MY_TEST_BARCODE_', 'Diff of changes logged successfully' ); |
211 |
is( $diff->{D}->{barcode}->{N}, '_MY_TEST_BARCODE_', 'Diff of changes logged successfully' ); |
|
|
212 |
|
213 |
logaction( 'MY_MODULE', 'TEST02', $item->itemnumber, $item, 'opac', $original_item ); |
214 |
$logs = Koha::ActionLogs->search({ module => 'MY_MODULE', action => 'TEST02', object => $item->itemnumber })->next; |
215 |
$diff = decode_json( $logs->diff ); |
216 |
is( $diff->{D}->{barcode}->{N}, '_MY_TEST_BARCODE_', 'Diff of changes logged successfully' ); |
210 |
}; |
217 |
}; |
211 |
|
218 |
|
212 |
$schema->storage->txn_rollback; |
219 |
$schema->storage->txn_rollback; |
213 |
- |
|
|