View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/Images.t (-1 / +54 lines)
Line 0 Link Here
0
- 
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' );

Return to bug 5327