From 7e1fdcdf37e0549aeb33f411d5b9573646b78099 Mon Sep 17 00:00:00 2001 From: Galen Charlton 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 Signed-off-by: wajasu Signed-off-by: Kyle M Hall --- 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