t/db_dependent/ImportBatch.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 14;
   5 use File::Basename;
   6 use File::Temp qw/tempfile/;
   7
   8 use t::lib::Mocks;
   9 use t::lib::TestBuilder;
  10
  11 use Koha::Database;
  12 use Koha::Plugins;
  13
  14 BEGIN {
  15     # Mock pluginsdir before loading Plugins module
  16     my $path = dirname(__FILE__) . '/../lib';
  17     t::lib::Mocks::mock_config( 'pluginsdir', $path );
  18     use_ok('C4::ImportBatch');
  19 }
  20
  21 # Start transaction
  22 my $schema  = Koha::Database->new->schema;
  23 $schema->storage->txn_begin;
  24 my $builder = t::lib::TestBuilder->new;
  25 my $dbh = C4::Context->dbh;
  26
  27 # clear
  28 $dbh->do('DELETE FROM import_batches');
  29
  30 my $sample_import_batch1 = {
  31     matcher_id => 1,
  32     template_id => 1,
  33     branchcode => 'QRT',
  34     overlay_action => 'create_new',
  35     nomatch_action => 'create_new',
  36     item_action => 'always_add',
  37     import_status => 'staged',
  38     batch_type => 'z3950',
  39     file_name => 'test.mrc',
  40     comments => 'test',
  41     record_type => 'auth',
  42 };
  43
  44 my $sample_import_batch2 = {
  45     matcher_id => 2,
  46     template_id => 2,
  47     branchcode => 'QRZ',
  48     overlay_action => 'create_new',
  49     nomatch_action => 'create_new',
  50     item_action => 'always_add',
  51     import_status => 'staged',
  52     batch_type => 'z3950',
  53     file_name => 'test.mrc',
  54     comments => 'test',
  55     record_type => 'auth',
  56 };
  57
  58 my $id_import_batch1 = C4::ImportBatch::AddImportBatch($sample_import_batch1);
  59 my $id_import_batch2 = C4::ImportBatch::AddImportBatch($sample_import_batch2);
  60
  61 like( $id_import_batch1, '/^\d+$/', "AddImportBatch for sample_import_batch1 return an id" );
  62 like( $id_import_batch2, '/^\d+$/', "AddImportBatch for sample_import_batch2 return an id" );
  63
  64 #Test GetImportBatch
  65 my $importbatch2 = C4::ImportBatch::GetImportBatch( $id_import_batch2 );
  66 delete $importbatch2->{upload_timestamp};
  67 delete $importbatch2->{import_batch_id};
  68 delete $importbatch2->{num_records};
  69 delete $importbatch2->{num_items};
  70
  71 is_deeply( $importbatch2, $sample_import_batch2,
  72     "GetImportBatch returns the right informations about $sample_import_batch2" );
  73
  74 my $importbatch1 = C4::ImportBatch::GetImportBatch( $id_import_batch1 );
  75 delete $importbatch1->{upload_timestamp};
  76 delete $importbatch1->{import_batch_id};
  77 delete $importbatch1->{num_records};
  78 delete $importbatch1->{num_items};
  79
  80 is_deeply( $importbatch1, $sample_import_batch1,
  81     "GetImportBatch returns the right informations about $sample_import_batch1" );
  82
  83 my $record = MARC::Record->new;
  84 # FIXME Create another MARC::Record which won't be modified
  85 # AddItemsToImportBiblio will remove the items field from the record passed in parameter.
  86 my $original_record = MARC::Record->new;
  87 $record->leader('03174nam a2200445 a 4500');
  88 $original_record->leader('03174nam a2200445 a 4500');
  89 my ($item_tag, $item_subfield) = C4::Biblio::GetMarcFromKohaField( 'items.itemnumber' );
  90 my @fields = (
  91     MARC::Field->new(
  92         100, '1', ' ',
  93         a => 'Knuth, Donald Ervin',
  94         d => '1938',
  95     ),
  96     MARC::Field->new(
  97         245, '1', '4',
  98         a => 'The art of computer programming',
  99         c => 'Donald E. Knuth.',
 100     ),
 101     MARC::Field->new(
 102         650, ' ', '0',
 103         a => 'Computer programming.',
 104         9 => '462',
 105     ),
 106     MARC::Field->new(
 107         $item_tag, ' ', ' ',
 108         e => 'my edition',
 109         i => 'my item part',
 110     ),
 111     MARC::Field->new(
 112         $item_tag, ' ', ' ',
 113         e => 'my edition 2',
 114         i => 'my item part 2',
 115     ),
 116 );
 117 $record->append_fields(@fields);
 118 $original_record->append_fields(@fields);
 119 my $import_record_id = AddBiblioToBatch( $id_import_batch1, 0, $record, 'utf8', int(rand(99999)), 0 );
 120 AddItemsToImportBiblio( $id_import_batch1, $import_record_id, $record, 0 );
 121
 122 my $record_from_import_biblio_with_items = C4::ImportBatch::GetRecordFromImportBiblio( $import_record_id, 'embed_items' );
 123 $original_record->leader($record_from_import_biblio_with_items->leader());
 124 is_deeply( $record_from_import_biblio_with_items, $original_record, 'GetRecordFromImportBiblio should return the record with items if specified' );
 125 $original_record->delete_fields($original_record->field($item_tag)); #Remove items fields
 126 my $record_from_import_biblio_without_items = C4::ImportBatch::GetRecordFromImportBiblio( $import_record_id );
 127 $original_record->leader($record_from_import_biblio_without_items->leader());
 128 is_deeply( $record_from_import_biblio_without_items, $original_record, 'GetRecordFromImportBiblio should return the record without items by default' );
 129
 130 # Add a few tests for GetItemNumbersFromImportBatch
 131 my @a = GetItemNumbersFromImportBatch( $id_import_batch1 );
 132 is( @a, 0, 'No item numbers expected since we did not commit' );
 133 my $itemno = $builder->build({ source => 'Item' })->{itemnumber};
 134 # Link this item to the import item to fool GetItemNumbersFromImportBatch
 135 my $sql = "UPDATE import_items SET itemnumber=? WHERE import_record_id=?";
 136 $dbh->do( $sql, undef, $itemno, $import_record_id );
 137 @a = GetItemNumbersFromImportBatch( $id_import_batch1 );
 138 is( @a, 2, 'Expecting two items now' );
 139 is( $a[0], $itemno, 'Check the first returned itemnumber' );
 140 # Now delete the item and check again
 141 $dbh->do( "DELETE FROM items WHERE itemnumber=?", undef, $itemno );
 142 @a = GetItemNumbersFromImportBatch( $id_import_batch1 );
 143 is( @a, 0, 'No item numbers expected since we deleted the item' );
 144 $dbh->do( $sql, undef, undef, $import_record_id ); # remove link again
 145
 146 # fresh data
 147 my $sample_import_batch3 = {
 148     matcher_id => 3,
 149     template_id => 3,
 150     branchcode => 'QRT',
 151     overlay_action => 'create_new',
 152     nomatch_action => 'create_new',
 153     item_action => 'always_add',
 154     import_status => 'staged',
 155     batch_type => 'z3950',
 156     file_name => 'test.mrc',
 157     comments => 'test',
 158     record_type => 'auth',
 159 };
 160
 161 my $id_import_batch3 = C4::ImportBatch::AddImportBatch($sample_import_batch3);
 162
 163 # Test CleanBatch
 164 C4::ImportBatch::CleanBatch( $id_import_batch3 );
 165 my $batch3_clean = $dbh->do('SELECT * FROM import_records WHERE import_batch_id = "$id_import_batch3"');
 166 is( $batch3_clean, "0E0", "Batch 3 has been cleaned" );
 167
 168 # Test DeleteBatch
 169 C4::ImportBatch::DeleteBatch( $id_import_batch3 );
 170 my $batch3_results = $dbh->do('SELECT * FROM import_batches WHERE import_batch_id = "$id_import_batch3"');
 171 is( $batch3_results, "0E0", "Batch 3 has been deleted");
 172
 173 subtest "RecordsFromMarcPlugin" => sub {
 174     plan tests => 5;
 175
 176     # Create a test file
 177     my ( $fh, $name ) = tempfile();
 178     print $fh q|
 179 003 = NLAmRIJ
 180 100,a = Author
 181 245,ind2 = 0
 182 245,a = Silence in the library
 183 500 , a= Some note
 184
 185 100,a = Another
 186 245,a = Noise in the library|;
 187     close $fh;
 188
 189     t::lib::Mocks::mock_config( 'enable_plugins', 1 );
 190     t::lib::Mocks::mock_preference( 'UseKohaPlugins', 1 );
 191
 192     my $plugins = Koha::Plugins->new;
 193     $plugins->InstallPlugins;
 194     my ($plugin) = $plugins->GetPlugins({ all => 1, metadata => { name => 'MarcFieldValues' } });
 195     isnt( $plugin, undef, "Plugin found" );
 196     my $records = C4::ImportBatch::RecordsFromMarcPlugin( $name, ref $plugin, 'UTF-8' );
 197     is( @$records, 2, 'Two results returned' );
 198     is( ref $records->[0], 'MARC::Record', 'Returned MARC::Record object' );
 199     is( $records->[0]->subfield('245', 'a'), 'Silence in the library',
 200         'Checked one field in first record' );
 201     is( $records->[1]->subfield('100', 'a'), 'Another',
 202         'Checked one field in second record' );
 203 };
 204
 205 $schema->storage->txn_rollback;