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

(-)a/t/db_dependent/Barcodes.t (-2 / +50 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 => 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

Return to bug 15877