|
Lines 30-36
use t::lib::TestBuilder;
Link Here
|
| 30 |
use Koha::MarcSubfieldStructures; |
30 |
use Koha::MarcSubfieldStructures; |
| 31 |
use Koha::Caches; |
31 |
use Koha::Caches; |
| 32 |
|
32 |
|
| 33 |
use Test::More tests => 12; |
33 |
use Test::More tests => 13; |
| 34 |
|
34 |
|
| 35 |
use Test::Warn; |
35 |
use Test::Warn; |
| 36 |
|
36 |
|
|
Lines 758-763
subtest 'get_hostitemnumbers_of' => sub {
Link Here
|
| 758 |
is( @itemnumbers, 0, ); |
758 |
is( @itemnumbers, 0, ); |
| 759 |
}; |
759 |
}; |
| 760 |
|
760 |
|
|
|
761 |
subtest 'GetItemnumberFromBarcode' => sub { |
| 762 |
plan tests => 4; |
| 763 |
|
| 764 |
$schema->storage->txn_begin; |
| 765 |
my $barcode = '20180215000'; |
| 766 |
my $builder = t::lib::TestBuilder->new; |
| 767 |
my $item1 = $builder->build({ source => 'Item', value => { barcode => $barcode }}); |
| 768 |
is( GetItemnumberFromBarcode( $barcode ), $item1->{itemnumber}, |
| 769 |
'Barcode without leading zeroes found' ); |
| 770 |
ModItem( { barcode => "00$barcode" }, undef, $item1->{itemnumber} ); |
| 771 |
is( GetItemnumberFromBarcode( $barcode ), $item1->{itemnumber}, |
| 772 |
'Barcode found by prefixing parameter' ); |
| 773 |
is( GetItemnumberFromBarcode( "0$barcode" ), undef, |
| 774 |
'Barcode with one leading zero not found' ); |
| 775 |
is( GetItemnumberFromBarcode( "00$barcode" ), $item1->{itemnumber}, |
| 776 |
'Barcode with two leading zeroes found' ); |
| 777 |
|
| 778 |
$schema->storage->txn_rollback; |
| 779 |
}; |
| 780 |
|
| 761 |
# Helper method to set up a Biblio. |
781 |
# Helper method to set up a Biblio. |
| 762 |
sub get_biblio { |
782 |
sub get_biblio { |
| 763 |
my ( $frameworkcode ) = @_; |
783 |
my ( $frameworkcode ) = @_; |
| 764 |
- |
|
|