t/lib/Mocks.pm

   1 package t::lib::Mocks;
   2
   3 use Modern::Perl;
   4 use Test::MockModule;
   5 use t::lib::Mocks::Context;
   6
   7 our (@ISA,@EXPORT,@EXPORT_OK);
   8 BEGIN {
   9     require Exporter;
  10     @ISA = qw(Exporter);
  11     push @EXPORT, qw(
  12         &set_solr
  13         &set_zebra
  14     );
  15 }
  16
  17 my $context = new Test::MockModule('C4::Context');
  18 sub set_solr {
  19     $context->mock('preference', sub { &t::lib::Mocks::Context::MockPreference( @_, "Solr", $context ) });
  20 }
  21 sub set_zebra {
  22     $context->mock('preference', sub { &t::lib::Mocks::Context::MockPreference( @_, "Zebra", $context ) });
  23 }