Bug 9259: Use is instead of is_deeply
[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 => 7;
20 use Test::MockModule;
21 use t::lib::TestBuilder;
22
23 use Koha::Database;
24
25 BEGIN {
26     use_ok('C4::Barcodes::ValueBuilder');
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({
38     source => 'Item',
39     value => {
40         barcode => '33333074344563'
41     }
42 });
43 my $item_2 = $builder->build({
44     source => 'Item',
45     value => {
46         barcode => 'hb12070890'
47     }
48 });
49 my $item_3 = $builder->build({
50     source => 'Item',
51     value => {
52         barcode => '2012-0034'
53     }
54 });
55
56 my %args = (
57     year        => '2012',
58     mon         => '07',
59     day         => '30',
60     tag         => '952',
61     subfield    => 'p',
62     loctag      => '952',
63     locsubfield => 'a'
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 $schema->storage->txn_rollback;
79
80 1;