- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 2;

use C4::Context;

my $opacheader = C4::Context->preference('opacheader');

my $newopacheader = "newopacheader";

C4::Context->set_preference('OPACHEADER', $newopacheader);

ok(C4::Context->preference('opacheader') eq $newopacheader);

C4::Context->set_preference('opacheader', $opacheader);

ok(C4::Context->preference('OPACHEADER') eq $opacheader);