|
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 |
- |
|
|