Bug 8233 : SearchEngine: Add a Koha::SearchEngine module

[koha.git] / t / lib / Mocks / Context.pm

diff --git a/t/lib/Mocks/Context.pm b/t/lib/Mocks/Context.pm
new file mode 100644 (file)
index 0000000..185209a
--- /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;