From 3d49e92696a13baf46ee003eb0bcbda0952a30dd Mon Sep 17 00:00:00 2001 From: Bart Jorgensen Date: Thu, 2 Aug 2012 16:56:58 +1200 Subject: [PATCH 2/2] Bug 5327 Tests for C4::Matcher --- t/Matcher.t | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 52 insertions(+), 3 deletions(-) diff --git a/t/Matcher.t b/t/Matcher.t index f374877..307df4b 100755 --- a/t/Matcher.t +++ b/t/Matcher.t @@ -1,14 +1,63 @@ #!/usr/bin/perl # -# This Koha test module is a stub! -# Add more tests here!!! +#testing C4 matcher use strict; use warnings; +use Test::More tests => 10; +use Test::MockModule; + -use Test::More tests => 1; BEGIN { use_ok('C4::Matcher'); } +my $module = new Test::MockModule('C4::Context'); +$module->mock('_new_dbh', sub { + my $dbh = DBI->connect( 'DBI:Mock:', '', '' ) + || die "Cannot create handle: $DBI::errstr\n"; + return $dbh }); +my $matcher = [ + ['matcher_id','code','description','record_type','threshold'], + [1,'ISBN','ISBN','red',1], + [2,'ISSN','ISSN','blue',0] + ]; +my $dbh = C4::Context->dbh(); + +$dbh->{mock_add_resultset} = $matcher; + +my @matchers = C4::Matcher::GetMatcherList(); + +is($matchers[0]->{'matcher_id'},1, 'First matcher_id value is 1'); + +is($matchers[1]->{'matcher_id'},2, 'Second matcher_id value is 2'); + +$dbh->{mock_add_resultset} = $matcher; + +my $matcher_id = C4::Matcher::GetMatcherId('ISBN'); + +is($matcher_id,1,'testing getmatcherid'); + +my $testmatcher; + +ok($testmatcher = C4::Matcher->new('red', 1), 'testing matcher new'); + +ok($testmatcher = C4::Matcher->new('blue', 0), 'testing matcher new'); + +$testmatcher->threshold(1000); + +is($testmatcher->threshold(),1000, 'testing threshhold accessor method'); + +$testmatcher->_id(53); + +is($testmatcher->_id(),53, 'testing _id accessor'); + +$testmatcher->code('match on ISBN'); + +is($testmatcher->code(),'match on ISBN', 'testing code accessor'); + +$testmatcher->description('match on ISSN'); + +is($testmatcher->description(),'match on ISSN', 'testing code accessor'); + -- 1.7.9.5