bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / t / Images.t
1 #!/usr/bin/perl
2 #
3 #Testing C4 Images
4
5 use strict;
6 use warnings;
7 use Test::More tests => 7;
8 use Test::MockModule;
9
10 BEGIN {
11     use_ok('C4::Images');
12 }
13
14 my $module = new Test::MockModule('C4::Context');
15 $module->mock(
16     '_new_dbh',
17     sub {
18         my $dbh = DBI->connect( 'DBI:Mock:', '', '' )
19           || die "Cannot create handle: $DBI::errstr\n";
20         return $dbh;
21     }
22 );
23 my $images = [
24     [ 'imagenumber', 'biblionumber', 'mimetype', 'imagefile', 'thumbnail' ],
25     [ 1, 2, 'gif',  'red',  001, 000 ],
26     [ 3, 2, 'jpeg', 'blue', 111, 110 ]
27 ];
28 my $dbh = C4::Context->dbh();
29
30 $dbh->{mock_add_resultset} = $images;
31
32 my $image = C4::Images::RetrieveImage();
33
34 is( $image->{'imagenumber'}, 1, 'First imagenumber is 1' );
35
36 is( $image->{'mimetype'}, 'gif', 'First mimetype is red' );
37
38 is( $image->{'thumbnail'}, 001, 'First thumbnail is 001' );
39
40 $image = C4::Images::RetrieveImage();
41
42 $image = C4::Images::RetrieveImage();
43
44 $dbh->{mock_add_resultset} = $images;
45
46 my @imagenumbers = C4::Images::ListImagesForBiblio();
47
48 is( $imagenumbers[0], 1, 'imagenumber is 1' );
49
50 is( $imagenumbers[1], 3, 'imagenumber is 3' );
51
52 $dbh->{mock_add_resultset} = $images;
53
54 is( $imagenumbers[4], undef, 'imagenumber undef' );