Lines 17-24
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 73; |
20 |
use Test::More tests => 75; |
21 |
use Test::Warn; |
21 |
use Test::Warn; |
|
|
22 |
use Test::MockModule; |
23 |
use t::lib::TestBuilder; |
24 |
|
25 |
use Koha::Database; |
22 |
|
26 |
|
23 |
$| = 1; |
27 |
$| = 1; |
24 |
|
28 |
|
Lines 28-33
BEGIN {
Link Here
|
28 |
use_ok('C4::Barcodes'); |
32 |
use_ok('C4::Barcodes'); |
29 |
} |
33 |
} |
30 |
|
34 |
|
|
|
35 |
my $schema = Koha::Database->new->schema; |
36 |
$schema->storage->txn_begin; |
37 |
|
38 |
my $builder = t::lib::TestBuilder->new; |
39 |
|
40 |
my $dbh = C4::Context->dbh; |
41 |
|
42 |
#Test generation of annual barcodes from |
43 |
$dbh->do(q|DELETE FROM issues|); |
44 |
$dbh->do(q|DELETE FROM items|); |
45 |
|
46 |
my $barcodeobj = C4::Barcodes->new('annual'); |
47 |
|
48 |
my $barcodevalue = $barcodeobj->value(); |
49 |
|
50 |
my $item_1 = $builder->build({ |
51 |
source => 'Item', |
52 |
value => { |
53 |
barcode => $barcodevalue |
54 |
} |
55 |
}); |
56 |
|
57 |
ok($barcodevalue eq $barcodeobj->db_max(), "(annual) First barcode saved to db is equal to db_max" ); |
58 |
|
59 |
$barcodevalue = $barcodeobj->next_value(); |
60 |
$barcodevalue = $barcodeobj->next_value(); |
61 |
$barcodevalue = $barcodeobj->next_value(); |
62 |
$barcodevalue = $barcodeobj->next_value(); |
63 |
$barcodevalue = $barcodeobj->next_value(); |
64 |
|
65 |
my $item_2 = $builder->build({ |
66 |
source => 'Item', |
67 |
value => { |
68 |
barcode => $barcodevalue |
69 |
} |
70 |
}); |
71 |
|
72 |
$barcodeobj = C4::Barcodes->new('annual'); |
73 |
ok($barcodevalue eq $barcodeobj->db_max(), '(annual) db_max should equal the greatest barcode in the db when more than 1 present'); |
74 |
|
75 |
$dbh->do(q|DELETE FROM issues|); |
76 |
$dbh->do(q|DELETE FROM items|); |
77 |
|
31 |
my %thash = ( |
78 |
my %thash = ( |
32 |
incremental => [], |
79 |
incremental => [], |
33 |
annual => [], |
80 |
annual => [], |
Lines 112-114
foreach $format (@formats) {
Link Here
|
112 |
} |
159 |
} |
113 |
} |
160 |
} |
114 |
} |
161 |
} |
115 |
- |
162 |
|
|
|
163 |
|