From 7e1fdcdf37e0549aeb33f411d5b9573646b78099 Mon Sep 17 00:00:00 2001
From: Galen Charlton <gmc@esilibrary.com>
Date: Thu, 16 Aug 2012 13:04:00 -0400
Subject: [PATCH] bug 8649: make sure C4::Context is fully mocked-up before
 tests

This fixes failures of the test cases to run for me
on Perl 5.10.1 using prove -v t/db_dependent/Search.t

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: wajasu <matted-34813@mypacks.net>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 t/db_dependent/Search.t | 43 ++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 22 deletions(-)

diff --git a/t/db_dependent/Search.t b/t/db_dependent/Search.t
index e6f9dfaae9..242f259ea5 100644
--- a/t/db_dependent/Search.t
+++ b/t/db_dependent/Search.t
@@ -10,7 +10,7 @@ use utf8;
 use YAML;
 
 use C4::Debug;
-use C4::Context;
+require C4::Context;
 
 use Test::More tests => 57;
 use Test::MockModule;
@@ -21,26 +21,8 @@ use File::Find;
 use Test::Warn;
 
 system(dirname(__FILE__) . "/zebra_config.pl");
-
 my $datadir = dirname(__FILE__) . "/data";
 
-use_ok('C4::Search');
-
-foreach my $string ("Leçon","modèles") {
-    my @results=C4::Search::_remove_stopwords($string,"kw");
-    $debug && warn "$string ",Dump(@results);
-    ok($results[0] eq $string,"$string is not modified");
-}
-
-foreach my $string ("A book about the stars") {
-    my @results=C4::Search::_remove_stopwords($string,"kw");
-    $debug && warn "$string ",Dump(@results);
-    ok($results[0] ne $string,"$results[0] from $string");
-}
-
-my $indexes = C4::Search::getIndexes();
-is(scalar(grep(/^ti$/, @$indexes)), 1, "Title index supported");
-
 my $QueryStemming = 0;
 my $QueryAutoTruncate = 0;
 my $QueryWeightFields = 0;
@@ -123,6 +105,26 @@ $contextmodule->mock('marcfromkohafield', sub {
         );
         return \%hash;
 });
+my $context = new C4::Context("$datadir/etc/koha-conf.xml");
+$context->set_context();
+
+use_ok('C4::Search');
+
+foreach my $string ("Leçon","modèles") {
+    my @results=C4::Search::_remove_stopwords($string,"kw");
+    $debug && warn "$string ",Dump(@results);
+    ok($results[0] eq $string,"$string is not modified");
+}
+
+foreach my $string ("A book about the stars") {
+    my @results=C4::Search::_remove_stopwords($string,"kw");
+    $debug && warn "$string ",Dump(@results);
+    ok($results[0] ne $string,"$results[0] from $string");
+}
+
+my $indexes = C4::Search::getIndexes();
+is(scalar(grep(/^ti$/, @$indexes)), 1, "Title index supported");
+
 my $bibliomodule = new Test::MockModule('C4::Biblio');
 $bibliomodule->mock('_get_inverted_marc_field_map', sub {
     my %hash = (
@@ -225,9 +227,6 @@ $record->add_fields(
 ($biblionumber,undef,$title) = FindDuplicate($record);
 is($biblionumber, 203, 'Found duplicate with author/title');
 
-my $context = new C4::Context("$datadir/etc/koha-conf.xml");
-$context->set_context();
-
 # Testing SimpleSearch
 
 my ( $error, $marcresults, $total_hits ) = SimpleSearch("book", 0, 9);
-- 
2.39.5