Revert "Bug 21987: Add tests"
authorMartin Renvoize <martin.renvoize@ptfs-europe.com>
Mon, 4 Nov 2019 13:21:16 +0000 (13:21 +0000)
committerMartin Renvoize <martin.renvoize@ptfs-europe.com>
Mon, 4 Nov 2019 13:21:58 +0000 (13:21 +0000)
This reverts commit afb39b132b10b74efec31cd8191cdcd72a61d8d3.

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
t/db_dependent/Images.t [deleted file]

diff --git a/t/db_dependent/Images.t b/t/db_dependent/Images.t
deleted file mode 100644 (file)
index 9e2e509..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-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
-}