gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 21987: Add tests 

Signed-off-by: Michal Denar <black23@gmail.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2018-12-18 14:02:14 -03:00 committed by root
parent ed5b7e4575
commit afb39b132b
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
t/db_dependent/Images.t Normal file
View File

@ -0,0 +1,39 @@
use Modern::Perl;
use GD;
use Test::More tests => 4;
use C4::Images;
use t::lib::TestBuilder;
my $schema = Koha::Database->schema;
$schema->storage->txn_begin();
my $builder = t::lib::TestBuilder->new;
my $biblio = $builder->build_sample_biblio;
my $path = 'koha-tmpl/intranet-tmpl/prog/img/koha-logo.png';
my $koha_logo = GD::Image->new($path);
{
# True color == 0
$koha_logo->trueColor(0);
C4::Images::PutImage( $biblio->biblionumber, $koha_logo );
my @imagenumbers = C4::Images::ListImagesForBiblio( $biblio->biblionumber );
is( scalar(@imagenumbers), 1 );
my $image = C4::Images::RetrieveImage($imagenumbers[0]);
ok( length $image->{thumbnail} < length $image->{imagefile}, 'thumbnail should be shorter than the original image' );
}
{
# True color == 1
# Note that we are cheating here, the original file is not a true color image
$koha_logo->trueColor(1);
C4::Images::PutImage( $biblio->biblionumber, $koha_logo, 'replace' );
my @imagenumbers = C4::Images::ListImagesForBiblio( $biblio->biblionumber );
is( scalar(@imagenumbers), 1 );
my $image = C4::Images::RetrieveImage($imagenumbers[0]);
ok( length $image->{thumbnail} > length $image->{imagefile}, 'thumbnail should be bigger than the original image.' );
# Actually it should not be bigger, but we cheat with the trueColor flag
}