X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2Flib%2FMocks%2FContext.pm;fp=t%2Flib%2FMocks%2FContext.pm;h=185209a5491976f8d29f7a3c222cb96ca913502c;hb=623f3a2c84fea04e4ad6203db49f6fdd6cfc62cd;hp=0000000000000000000000000000000000000000;hpb=078ce11e113b172726f9ab3180e52a06334d4aab;p=koha.git

diff --git a/t/lib/Mocks/Context.pm b/t/lib/Mocks/Context.pm
new file mode 100644
index 0000000000..185209a549
--- /dev/null
+++ b/t/lib/Mocks/Context.pm
@@ -0,0 +1,13 @@
+package t::lib::Mocks::Context;
+use t::lib::Mocks::Context;
+use C4::Context;
+
+sub MockPreference {
+    my ( $self, $syspref, $value, $mock_object ) = @_;
+    return $value if $syspref eq 'SearchEngine';
+    $mock_object->unmock("preference");
+    my $r = C4::Context->preference($syspref);
+    $mock_object->mock('preference', sub { &t::lib::Mocks::Context::MockPreference( @_, $value, $mock_object ) });
+    return $r;
+}
+1;