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

Bug 5327: Testing c4 Images

Browse source 
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
tested the 9 previous patches, that introduces many new unit tests using
the Mock Module.
This commit is contained in:
Bart Jorgensen 2012-08-23 16:58:24 +12:00 committed by Paul Poulain
parent 92f8480d16
commit 2c8f6399b0
1 changed files with 54 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
t/Images.t Normal file
View file

@ -0,0 +1,54 @@
#!/usr/bin/perl
#
#Testing C4 Images
use strict;
use warnings;
use Test::More tests => 7;
use Test::MockModule;
BEGIN {
use_ok('C4::Images');
}
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 $images = [
[ 'imagenumber', 'biblionumber', 'mimetype', 'imagefile', 'thumbnail' ],
[ 1, 2, 'gif', 'red', 001, 000 ],
[ 3, 2, 'jpeg', 'blue', 111, 110 ]
];
my $dbh = C4::Context->dbh();
$dbh->{mock_add_resultset} = $images;
my $image = C4::Images::RetrieveImage();
is( $image->{'imagenumber'}, 1, 'First imagenumber is 1' );
is( $image->{'mimetype'}, 'gif', 'First mimetype is red' );
is( $image->{'thumbnail'}, 001, 'First thumbnail is 001' );
$image = C4::Images::RetrieveImage();
$image = C4::Images::RetrieveImage();
$dbh->{mock_add_resultset} = $images;
my @imagenumbers = C4::Images::ListImagesForBiblio();
is( $imagenumbers[0], 1, 'imagenumber is 1' );
is( $imagenumbers[1], 3, 'imagenumber is 3' );
$dbh->{mock_add_resultset} = $images;
is( $imagenumbers[4], undef, 'imagenumber undef' );