6 use Test::More tests => 8;
11 use Test::DBIx::Class {
12 schema_class => 'Koha::Schema',
13 connect_info => ['dbi:SQLite:dbname=:memory:','',''],
14 connect_opts => { name_sep => '.', quote_char => '`', },
15 fixture_class => '::Populate',
18 # Make the code in the module use our mocked Koha::Schema/Koha::Database
19 my $db = Test::MockModule->new('Koha::Database');
21 # Schema() gives us the DB connection set up by Test::DBIx::Class
22 _new_schema => sub { return Schema(); }
27 [ 1, $biblionumber, 'gif', 'imagefile1', 'thumbnail1' ],
28 [ 3, $biblionumber, 'jpeg', 'imagefile3', 'thumbnail3' ],
32 [ 'imagenumber', 'biblionumber', 'mimetype', 'imagefile', 'thumbnail' ],
37 my $image = C4::Images::RetrieveImage(1);
39 is( $image->{'imagenumber'}, 1, 'First imagenumber is 1' );
41 is( $image->{'mimetype'}, 'gif', 'First mimetype is gif' );
43 is( $image->{'thumbnail'}, 'thumbnail1', 'First thumbnail is correct' );
45 my @imagenumbers = C4::Images::ListImagesForBiblio($biblionumber);
47 is( $imagenumbers[0], 1, 'imagenumber is 1' );
49 is( $imagenumbers[1], 3, 'imagenumber is 3' );
51 is( $imagenumbers[4], undef, 'imagenumber undef' );