- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 6;

use C4::Biblio;

# Avoid "redefined subroutine" warnings

local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };

*C4::Biblio::GetMarcStructure = \&Mock_GetMarcStructure;

my $tagslib = {

    '200' => { a   => { hidden => '0' } },

    '300' => { a   => { hidden => '1' } },

    '009' => { '@' => { hidden => '-2' } },

};

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

$record_ori->append_fields(

    MARC::Field->new( '200', '', '', 'a' => 'Text to show' ) );

$record_ori->append_fields(

    MARC::Field->new( '300', '', '', 'a' => 'Text to hide OPAC' ) );

$record_ori->append_fields(

    MARC::Field->new( '009', 'Text to hide Intranet' ) );

my $record_opac = $record_ori->clone;

RemoveHiddenSubfields( $record_opac, $tagslib, 'opac' );

is( $record_opac->subfield( '200', 'a' ),

    'Text to show',

    'RemoveHiddenSubfields for OPAC does not remove always visible subfields' );

is( $record_opac->subfield( '300', 'a' ),

    undef, 'RemoveHiddenSubfields for OPAC removes OPAC hidden subfields' );

is(

    $record_opac->field('009')->data,

    'Text to hide Intranet',

    'RemoveHiddenSubfields for OPAC does not remove Intranet hidden subfields'

);

my $record_intra = $record_ori->clone;

RemoveHiddenSubfields( $record_intra, $tagslib, 'intranet' );

is(

    $record_intra->subfield( '200', 'a' ),

    'Text to show',

'RemoveHiddenSubfields for Intranet does not remove always visible subfields'

);

is(

    $record_intra->subfield( '300', 'a' ),

    'Text to hide OPAC',

    'RemoveHiddenSubfields for Intranet does not remove OPAC hidden subfields'

);

is( $record_intra->field('009'),

    undef,

    'RemoveHiddenSubfields for Intranet removes Intranet hidden subfields' );

# Mocked subs

# C4::Biblio::GetMarcStructure

sub Mock_GetMarcStructure {

    return $tagslib;

}