|
Lines 683-689
subtest 'C4::Items::_build_default_values_for_mod_marc' => sub {
Link Here
|
| 683 |
); |
683 |
); |
| 684 |
$item_record->append_fields( $barcode_field ); |
684 |
$item_record->append_fields( $barcode_field ); |
| 685 |
my (undef, undef, $item_itemnumber) = AddItemFromMarc($item_record, $biblionumber); |
685 |
my (undef, undef, $item_itemnumber) = AddItemFromMarc($item_record, $biblionumber); |
| 686 |
use Data::Printer colored => 1; |
686 |
|
| 687 |
# Make sure everything has been set up |
687 |
# Make sure everything has been set up |
| 688 |
my $item = GetItem($item_itemnumber); |
688 |
my $item = GetItem($item_itemnumber); |
| 689 |
is( $item->{barcode}, $a_barcode, 'Everything has been set up correctly, the barcode is defined as expected' ); |
689 |
is( $item->{barcode}, $a_barcode, 'Everything has been set up correctly, the barcode is defined as expected' ); |
| 690 |
- |
|
|