Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Added a mock-db table and tested a line

Browse source 
http://bugs.koha-community.org/show_bug.cgi?id=5327
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
All tests pass!

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
This commit is contained in:
Bart Jorgensen 2012-08-09 17:01:56 +12:00 committed by Paul Poulain
parent b86e77afbb
commit 7537d65c42
1 changed files with 26 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
t/Letters.t
View file

@ -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' );