subtest 'ModItemFromMarc tests' => sub {

    plan tests => 3;

    my $dbh = C4::Context->dbh;

    my $builder = t::lib::TestBuilder->new;

    $schema->storage->txn_begin;

    my $branchcode = $builder->build({

        source => 'Branch',

    })->{ branchcode };

    my $frameworkcode = $builder->build({

        source => 'BiblioFramework'

    })->{ frameworkcode };

    my $msfstructure = $builder->build({

        source => 'MarcSubfieldStructure',

        value  => {

            frameworkcode => $frameworkcode,

            tagfield      => 952,

            tagsubfield   => 'k',

            kohafield     => 'materials'

        }

    });

    my $materials_value = 'materials_value';

    my ($itemfield)    = GetMarcFromKohaField('items.itemnumber', '');

    my ($biblionumber) = get_biblio();

    # Make sure the default framework has 952$3 => items.materials

    $dbh->do(q{ DELETE FROM marc_subfield_structure

                WHERE kohafield="items.materials" AND

                      frameworkcode=""}, undef, $itemfield);

    $dbh->do(q{ UPDATE marc_subfield_structure

                SET kohafield="items.materials"

                WHERE tagfield=? AND

                      tagsubfield="3" AND

                      frameworkcode=""}, undef, $itemfield);

    # Make sure cache is clean (TODO: change after bug 13074)

    $C4::Items::default_values_for_mod_from_marc;

    # Add an item with a fixed materials value

    my $item_record    = MARC::Record->new;

    $item_record->append_fields(

        MARC::Field->new(

            $itemfield, '', '',

            '3' => $materials_value

        )

    );

    my ( undef, undef, $itemnumber ) = AddItemFromMarc( $item_record, $biblionumber );

    my $item = Koha::Items->find( $itemnumber );

    is( $item->materials, $materials_value, 'Materials is correctly mapped on the default framework' );

    # Change the biblio's framework

    ModBiblioframework( $biblionumber, $frameworkcode );

    ModItemFromMarc( $item_record, $biblionumber, $itemnumber );

    $item = Koha::Items->find( $itemnumber );

    is( $item->materials, undef, 'Subfield 3 is not mapped on the new framework' );

    # Now have the right subfield

    $item_record = MARC::Record->new;

    $item_record->append_fields(

        MARC::Field->new(

            $itemfield, '', '',

            'k' => $materials_value

        )

    );

    ModItemFromMarc( $item_record, $biblionumber, $itemnumber );

    $item = Koha::Items->find( $itemnumber );

    is( $item->materials, $materials_value, 'Subfield mapping is taken from the biblio\'s framework' );

    $schema->storage->txn_rollback;

};