|
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 |
- |
|
|