Images.t

#!/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' );