Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / db_dependent / ImportBatch.t

diff --git a/t/db_dependent/ImportBatch.t b/t/db_dependent/ImportBatch.t
index 863c903..c96222d 100755 (executable)
--- a/t/db_dependent/ImportBatch.t
+++ b/t/db_dependent/ImportBatch.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 use Modern::Perl;
-use Test::More tests => 15;
+use Test::More tests => 16;
 use utf8;
 use File::Basename;
 use File::Temp qw/tempfile/;
@@ -16,7 +16,7 @@ BEGIN {
     # Mock pluginsdir before loading Plugins module
     my $path = dirname(__FILE__) . '/../lib';
     t::lib::Mocks::mock_config( 'pluginsdir', $path );
-    use_ok('C4::ImportBatch');
+    use_ok('C4::ImportBatch', qw( AddImportBatch GetImportBatch AddBiblioToBatch AddItemsToImportBiblio GetRecordFromImportBiblio SetMatchedBiblionumber GetImportBiblios GetItemNumbersFromImportBatch CleanBatch DeleteBatch RecordsFromMarcPlugin ));
 }
 
 # Start transaction
@@ -134,6 +134,11 @@ my $record_from_import_biblio_without_items = C4::ImportBatch::GetRecordFromImpo
 $original_record->leader($record_from_import_biblio_without_items->leader());
 is_deeply( $record_from_import_biblio_without_items, $original_record, 'GetRecordFromImportBiblio should return the record without items by default' );
 
+my $another_biblio = $builder->build_sample_biblio;
+C4::ImportBatch::SetMatchedBiblionumber( $import_record_id, $another_biblio->biblionumber );
+my $import_biblios = GetImportBiblios( $import_record_id );
+is( $import_biblios->[0]->{matched_biblionumber}, $another_biblio->biblionumber, 'SetMatchedBiblionumber  should set the correct biblionumber' );
+
 # Add a few tests for GetItemNumbersFromImportBatch
 my @a = GetItemNumbersFromImportBatch( $id_import_batch1 );
 is( @a, 0, 'No item numbers expected since we did not commit' );