Bug 24857: No words
[koha.git] / t / db_dependent / Barcodes_ValueBuilder.t
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 3 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, see <http://www.gnu.org/licenses>.
16
17 use Modern::Perl;
18
19 use Test::More tests => 9;
20 use Test::MockModule;
21 use t::lib::TestBuilder;
22
23 use Koha::Database;
24
25 BEGIN {
26     use_ok('C4::Barcodes::ValueBuilder', qw( get_barcode ));
27 };
28
29 my $schema  = Koha::Database->new->schema;
30 $schema->storage->txn_begin;
31
32 my $builder = t::lib::TestBuilder->new;
33
34 my $dbh = C4::Context->dbh;
35 $dbh->do(q|DELETE FROM issues|);
36 $dbh->do(q|DELETE FROM items|);
37 my $item_1 = $builder->build_sample_item(
38     {
39         barcode => '33333074344563'
40     }
41 );
42 my $item_2 = $builder->build_sample_item(
43     {
44         barcode => 'hb12070890'
45     }
46 );
47 my $item_3 = $builder->build_sample_item(
48     {
49         barcode => '201200345'
50     }
51 );
52 my $item_4 = $builder->build_sample_item(
53     {
54         barcode => '2012-0034'
55     }
56 );
57
58 my %args = (
59     year        => '2012',
60     mon         => '07',
61     day         => '30',
62     tag         => '952',
63     subfield    => 'p',
64 );
65
66 my ($nextnum, $scr) = C4::Barcodes::ValueBuilder::incremental::get_barcode(\%args);
67 is($nextnum, 33333074344564, 'incremental barcode');
68 is($scr, undef, 'incremental javascript');
69
70 ($nextnum, $scr) = C4::Barcodes::ValueBuilder::hbyymmincr::get_barcode(\%args);
71 is($nextnum, '12070891', 'hbyymmincr barcode');
72 ok(length($scr) > 0, 'hbyymmincr javascript');
73
74 ($nextnum, $scr) = C4::Barcodes::ValueBuilder::annual::get_barcode(\%args);
75 is($nextnum, '2012-0035', 'annual barcode');
76 is($scr, undef, 'annual javascript');
77
78 $dbh->do(q|DELETE FROM items|);
79 my $item_5 = $builder->build_sample_item(
80     {
81         barcode => '978e0143019375'
82     }
83 );
84 ($nextnum, $scr) = C4::Barcodes::ValueBuilder::incremental::get_barcode(\%args);
85 is($nextnum, '979', 'incremental barcode');
86 is($scr, undef, 'incremental javascript');
87
88 $schema->storage->txn_rollback;