Lines 29-35
BEGIN {
Link Here
|
29 |
|
29 |
|
30 |
my $dbh = C4::Context->dbh; |
30 |
my $dbh = C4::Context->dbh; |
31 |
# Start transaction |
31 |
# Start transaction |
32 |
$dbh->{AutoCommit} = 0; |
32 |
my $database = Koha::Database->new(); |
|
|
33 |
my $schema = $database->schema(); |
33 |
$dbh->{RaiseError} = 1; |
34 |
$dbh->{RaiseError} = 1; |
34 |
|
35 |
|
35 |
# Mocking variables |
36 |
# Mocking variables |
Lines 259-280
sub create_issn_field {
Link Here
|
259 |
return $field; |
260 |
return $field; |
260 |
} |
261 |
} |
261 |
|
262 |
|
|
|
263 |
$schema->storage->txn_begin(); |
262 |
subtest 'MARC21' => sub { |
264 |
subtest 'MARC21' => sub { |
263 |
plan tests => 27; |
265 |
plan tests => 27; |
264 |
run_tests('MARC21'); |
266 |
run_tests('MARC21'); |
265 |
$dbh->rollback; |
267 |
$schema->storage->txn_rollback(); |
266 |
}; |
268 |
}; |
267 |
|
269 |
|
|
|
270 |
$schema->storage->txn_begin(); |
268 |
subtest 'UNIMARC' => sub { |
271 |
subtest 'UNIMARC' => sub { |
269 |
plan tests => 27; |
272 |
plan tests => 27; |
270 |
run_tests('UNIMARC'); |
273 |
run_tests('UNIMARC'); |
271 |
$dbh->rollback; |
274 |
$schema->storage->txn_rollback(); |
272 |
}; |
275 |
}; |
273 |
|
276 |
|
|
|
277 |
$schema->storage->txn_begin(); |
274 |
subtest 'NORMARC' => sub { |
278 |
subtest 'NORMARC' => sub { |
275 |
plan tests => 27; |
279 |
plan tests => 27; |
276 |
run_tests('NORMARC'); |
280 |
run_tests('NORMARC'); |
277 |
$dbh->rollback; |
281 |
$schema->storage->txn_rollback(); |
278 |
}; |
282 |
}; |
279 |
|
283 |
|
280 |
|
284 |
|
281 |
- |
|
|