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 => 76; |
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($barcodevalue); |
61 |
$barcodevalue = $barcodeobj->next_value($barcodevalue); |
62 |
$barcodevalue = $barcodeobj->next_value($barcodevalue); |
63 |
$barcodevalue = $barcodeobj->next_value($barcodevalue); |
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 |
|
74 |
ok($barcodevalue eq $barcodeobj->db_max(), '(annual) db_max should equal the greatest barcode in the db when more than 1 present'); |
75 |
ok($barcodeobj->value() gt $barcodevalue, '(annual) new barcode object should be created with value greater and last value inserted into db'); |
76 |
|
77 |
$dbh->do(q|DELETE FROM issues|); |
78 |
$dbh->do(q|DELETE FROM items|); |
79 |
|
31 |
my %thash = ( |
80 |
my %thash = ( |
32 |
incremental => [], |
81 |
incremental => [], |
33 |
annual => [], |
82 |
annual => [], |
34 |
- |
|
|