Lines 16-22
Link Here
|
16 |
|
16 |
|
17 |
use Modern::Perl; |
17 |
use Modern::Perl; |
18 |
|
18 |
|
19 |
use Test::More tests => 7; |
19 |
use Test::More tests => 8; |
20 |
use Test::MockModule; |
20 |
use Test::MockModule; |
21 |
use t::lib::TestBuilder; |
21 |
use t::lib::TestBuilder; |
22 |
|
22 |
|
Lines 77-81
ok(length($scr) > 0, 'hbyymmincr javascript');
Link Here
|
77 |
is($nextnum, '2012-0035', 'annual barcode'); |
77 |
is($nextnum, '2012-0035', 'annual barcode'); |
78 |
is($scr, undef, 'annual javascript'); |
78 |
is($scr, undef, 'annual javascript'); |
79 |
|
79 |
|
|
|
80 |
my $item_5 = $builder->build_sample_item( |
81 |
{ |
82 |
barcode => '0033333074344564' |
83 |
} |
84 |
); |
85 |
|
86 |
($nextnum, $scr) = C4::Barcodes::ValueBuilder::incremental::get_barcode(\%args); |
87 |
is($nextnum, "0033333074344565", 'incremental barcode must keep leading zeros'); |
88 |
|
80 |
$schema->storage->txn_rollback; |
89 |
$schema->storage->txn_rollback; |
81 |
|
90 |
|
82 |
- |
|
|