t/db_dependent/sysprefs.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 2;
   5 use C4::Context;
   6
   7 my $opacheader = C4::Context->preference('opacheader');
   8 my $newopacheader = "newopacheader";
   9
  10 C4::Context->set_preference('OPACHEADER', $newopacheader);
  11 ok(C4::Context->preference('opacheader') eq $newopacheader);
  12
  13 C4::Context->set_preference('opacheader', $opacheader);
  14 ok(C4::Context->preference('OPACHEADER') eq $opacheader);