Line 0
Link Here
|
0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
3 |
use Modern::Perl; |
4 |
|
5 |
use C4::Context; |
6 |
|
7 |
use Test::More tests => 5; |
8 |
|
9 |
BEGIN { |
10 |
use_ok('C4::ImportBatch'); |
11 |
} |
12 |
|
13 |
# Start transaction |
14 |
my $dbh = C4::Context->dbh; |
15 |
$dbh->{AutoCommit} = 0; |
16 |
$dbh->{RaiseError} = 1; |
17 |
|
18 |
# clear |
19 |
$dbh->do('DELETE FROM import_batches'); |
20 |
|
21 |
my $sample_import_batch1 = { |
22 |
matcher_id => 1, |
23 |
template_id => 1, |
24 |
branchcode => 'QRT', |
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', |
31 |
comments => 'test', |
32 |
record_type => 'auth', |
33 |
}; |
34 |
|
35 |
my $sample_import_batch2 = { |
36 |
matcher_id => 2, |
37 |
template_id => 2, |
38 |
branchcode => 'QRZ', |
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', |
45 |
comments => 'test', |
46 |
record_type => 'auth', |
47 |
}; |
48 |
|
49 |
my $id_import_batch1 = C4::ImportBatch::AddImportBatch($sample_import_batch1); |
50 |
my $id_import_batch2 = C4::ImportBatch::AddImportBatch($sample_import_batch2); |
51 |
|
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" ); |
54 |
|
55 |
#Test GetImportBatch |
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}; |
61 |
|
62 |
is_deeply( $importbatch2, $sample_import_batch2, |
63 |
"GetImportBatch returns the right informations about $sample_import_batch2" ); |
64 |
|
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}; |
70 |
|
71 |
is_deeply( $importbatch1, $sample_import_batch1, |
72 |
"GetImportBatch returns the right informations about $sample_import_batch1" ); |
73 |
|
74 |
|
75 |
|