View | Details | Raw Unified | Return to bug 15877
Collapse All | Expand All

(-)a/t/db_dependent/Barcodes.t (-2 / +51 lines)
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
is($barcodevalue,$barcodeobj->db_max(), "(annual) First barcode saved to db is equal to db_max" );
58
59
//This is just setting the value ahead an arbitrary amount before adding a second barcode to db
60
$barcodevalue = $barcodeobj->next_value();
61
$barcodevalue = $barcodeobj->next_value($barcodevalue);
62
$barcodevalue = $barcodeobj->next_value($barcodevalue);
63
$barcodevalue = $barcodeobj->next_value($barcodevalue);
64
$barcodevalue = $barcodeobj->next_value($barcodevalue);
65
66
my $item_2 = $builder->build({
67
    source => 'Item',
68
    value => {
69
        barcode => $barcodevalue
70
    }
71
});
72
73
$barcodeobj = C4::Barcodes->new('annual');
74
75
is($barcodevalue,$barcodeobj->db_max(), '(annual) db_max should equal the greatest barcode in the db when more than 1 present');
76
ok($barcodeobj->value() gt $barcodevalue, '(annual) new barcode object should be created with value greater and last value inserted into db');
77
78
$dbh->do(q|DELETE FROM issues|);
79
$dbh->do(q|DELETE FROM items|);
80
31
my %thash = (
81
my %thash = (
32
    incremental => [],
82
    incremental => [],
33
    annual => [],
83
    annual => [],
34
- 

Return to bug 15877