From 7537d65c42e26973fb833df4ad052404825cdea3 Mon Sep 17 00:00:00 2001 From: Bart Jorgensen Date: Thu, 9 Aug 2012 17:01:56 +1200 Subject: [PATCH] Added a mock-db table and tested a line http://bugs.koha-community.org/show_bug.cgi?id=5327 Signed-off-by: Katrin Fischer All tests pass! Signed-off-by: Jonathan Druart --- t/Letters.t | 30 ++++++++++++++++++++++++++---- 1 file changed, 26 insertions(+), 4 deletions(-) diff --git a/t/Letters.t b/t/Letters.t index 603e37efa7..b269e866d8 100755 --- a/t/Letters.t +++ b/t/Letters.t @@ -1,14 +1,36 @@ #!/usr/bin/perl # -# This Koha test module is a stub! +# This Koha test module is a stub! # Add more tests here!!! use strict; use warnings; - -use Test::More tests => 1; +use Test::MockModule; +use Test::More tests => 2; BEGIN { - use_ok('C4::Letters'); + use_ok('C4::Letters'); } +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 $mock_letters = [ + [ 'module', 'code', 'branchcode', 'name', 'is_html', 'title', 'content' ], + [ 'blah', 'ISBN', 'NBSI', 'book', 1, 'green', 'blahblah' ], + [ 'bleh', 'ISSN', 'NSSI', 'page', 0, 'blue', 'blehbleh' ] +]; + +my $dbh = C4::Context->dbh(); + +$dbh->{mock_add_resultset} = $mock_letters; + +my $letters = C4::Letters::GetLetters(); + +is( $letters->{ISBN}, 'book', 'HASH ref of ISBN is book' ); -- 2.39.5