Bug 21987: (RM follow-up) Add text for simple tests

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 1464328718)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
Nick Clemens 2019-03-15 12:22:32 +00:00 committed by Martin Renvoize
parent 8928ba9325
commit 53cf1c80f2
No known key found for this signature in database
GPG Key ID: 422B469130441A0F
1 changed files with 2 additions and 2 deletions

View File

@ -20,7 +20,7 @@ my $koha_logo = GD::Image->new($path);
C4::Images::PutImage( $biblio->biblionumber, $koha_logo );
my @imagenumbers = C4::Images::ListImagesForBiblio( $biblio->biblionumber );
is( scalar(@imagenumbers), 1 );
is( scalar(@imagenumbers), 1, "The image has been added to the biblio" );
my $image = C4::Images::RetrieveImage($imagenumbers[0]);
ok( length $image->{thumbnail} < length $image->{imagefile}, 'thumbnail should be shorter than the original image' );
}
@ -32,7 +32,7 @@ my $koha_logo = GD::Image->new($path);
C4::Images::PutImage( $biblio->biblionumber, $koha_logo, 'replace' );
my @imagenumbers = C4::Images::ListImagesForBiblio( $biblio->biblionumber );
is( scalar(@imagenumbers), 1 );
is( scalar(@imagenumbers), 1 , "The image replaced the previous image on the biblio" );
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