Lines 444-450
subtest 'export xml with marc modification template' => sub {
Link Here
|
444 |
plan tests => 2; |
444 |
plan tests => 2; |
445 |
|
445 |
|
446 |
my $template_id = C4::MarcModificationTemplates::AddModificationTemplate('test exporter'); |
446 |
my $template_id = C4::MarcModificationTemplates::AddModificationTemplate('test exporter'); |
447 |
C4::MarcModificationTemplates::AddModificationTemplateAction($template_id, 'add_field', 0, '999', '9', 'Foobar'); |
447 |
C4::MarcModificationTemplates::AddModificationTemplateAction($template_id, 'add_field', 0, '998', '9', 'Foobar'); |
448 |
|
448 |
|
449 |
my $generated_xml_file = '/tmp/test_export.xml'; |
449 |
my $generated_xml_file = '/tmp/test_export.xml'; |
450 |
Koha::Exporter::Record::export({ |
450 |
Koha::Exporter::Record::export({ |
Lines 465-478
subtest 'export xml with marc modification template' => sub {
Link Here
|
465 |
} |
465 |
} |
466 |
is( scalar( @records ), 1, 'Export XML: 1 record should have been exported' ); |
466 |
is( scalar( @records ), 1, 'Export XML: 1 record should have been exported' ); |
467 |
my $record = $records[0]; |
467 |
my $record = $records[0]; |
468 |
is( $record->subfield('999', '9'), 'Foobar', 'Export XML: marc modification template should have added 999$9' ); |
468 |
is( $record->subfield('998', '9'), 'Foobar', 'Export XML: marc modification template should have added 998$9' ); |
469 |
}; |
469 |
}; |
470 |
|
470 |
|
471 |
subtest 'export iso2709 with marc modification template' => sub { |
471 |
subtest 'export iso2709 with marc modification template' => sub { |
472 |
plan tests => 2; |
472 |
plan tests => 2; |
473 |
|
473 |
|
474 |
my $template_id = C4::MarcModificationTemplates::AddModificationTemplate('test exporter'); |
474 |
my $template_id = C4::MarcModificationTemplates::AddModificationTemplate('test exporter'); |
475 |
C4::MarcModificationTemplates::AddModificationTemplateAction($template_id, 'add_field', 0, '999', '9', 'Foobar'); |
475 |
C4::MarcModificationTemplates::AddModificationTemplateAction($template_id, 'add_field', 0, '998', '9', 'Foobar'); |
476 |
|
476 |
|
477 |
my $generated_mrc_file = '/tmp/test_export.mrc'; |
477 |
my $generated_mrc_file = '/tmp/test_export.mrc'; |
478 |
Koha::Exporter::Record::export({ |
478 |
Koha::Exporter::Record::export({ |
Lines 490-496
subtest 'export iso2709 with marc modification template' => sub {
Link Here
|
490 |
} |
490 |
} |
491 |
is( scalar( @records ), 1, 'Export ISO2709: 1 record should have been exported' ); |
491 |
is( scalar( @records ), 1, 'Export ISO2709: 1 record should have been exported' ); |
492 |
my $record = $records[0]; |
492 |
my $record = $records[0]; |
493 |
is( $record->subfield('999', '9'), 'Foobar', 'Export ISO2709: marc modification template should have added 999$9' ); |
493 |
is( $record->subfield('998', '9'), 'Foobar', 'Export ISO2709: marc modification template should have added 998$9' ); |
494 |
}; |
494 |
}; |
495 |
|
495 |
|
496 |
$schema->storage->txn_rollback; |
496 |
$schema->storage->txn_rollback; |
497 |
- |
|
|