From 20dc6b85273f815775a7846177e98876f39cdefe Mon Sep 17 00:00:00 2001 From: Bart Jorgensen Date: Thu, 23 Aug 2012 16:58:24 +1200 Subject: [PATCH 5/5] Bug 5327: Testing c4 Images --- t/Images.t | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 t/Images.t diff --git a/t/Images.t b/t/Images.t new file mode 100644 index 0000000..b90acfe --- /dev/null +++ b/t/Images.t @@ -0,0 +1,56 @@ +#!/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'); + + + + -- 1.7.9.5