7 use Test::More tests => 5;
10 use_ok('C4::ImportBatch');
14 my $dbh = C4::Context->dbh;
15 $dbh->{AutoCommit} = 0;
16 $dbh->{RaiseError} = 1;
19 $dbh->do('DELETE FROM import_batches');
21 my $sample_import_batch1 = {
25 overlay_action => 'create_new',
26 nomatch_action => 'create_new',
27 item_action => 'always_add',
28 import_status => 'staged',
29 batch_type => 'z3950',
30 file_name => 'test.mrc',
32 record_type => 'auth',
35 my $sample_import_batch2 = {
39 overlay_action => 'create_new',
40 nomatch_action => 'create_new',
41 item_action => 'always_add',
42 import_status => 'staged',
43 batch_type => 'z3950',
44 file_name => 'test.mrc',
46 record_type => 'auth',
49 my $id_import_batch1 = C4::ImportBatch::AddImportBatch($sample_import_batch1);
50 my $id_import_batch2 = C4::ImportBatch::AddImportBatch($sample_import_batch2);
52 like( $id_import_batch1, '/^\d+$/', "AddImportBatch for sample_import_batch1 return an id" );
53 like( $id_import_batch2, '/^\d+$/', "AddImportBatch for sample_import_batch2 return an id" );
56 my $importbatch2 = C4::ImportBatch::GetImportBatch( $id_import_batch2 );
57 delete $importbatch2->{upload_timestamp};
58 delete $importbatch2->{import_batch_id};
59 delete $importbatch2->{num_records};
60 delete $importbatch2->{num_items};
62 is_deeply( $importbatch2, $sample_import_batch2,
63 "GetImportBatch returns the right informations about $sample_import_batch2" );
65 my $importbatch1 = C4::ImportBatch::GetImportBatch( $id_import_batch1 );
66 delete $importbatch1->{upload_timestamp};
67 delete $importbatch1->{import_batch_id};
68 delete $importbatch1->{num_records};
69 delete $importbatch1->{num_items};
71 is_deeply( $importbatch1, $sample_import_batch1,
72 "GetImportBatch returns the right informations about $sample_import_batch1" );