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