t/lib/Mocks/Context.pm

   1 package t::lib::Mocks::Context;
   2 use t::lib::Mocks::Context;
   3 use C4::Context;
   4
   5 sub MockPreference {
   6     my ( $self, $syspref, $value, $mock_object ) = @_;
   7     return $value if $syspref eq 'SearchEngine';
   8     $mock_object->unmock("preference");
   9     my $r = C4::Context->preference($syspref);
  10     $mock_object->mock('preference', sub { &t::lib::Mocks::Context::MockPreference( @_, $value, $mock_object ) });
  11     return $r;
  12 }
  13 1;