Index: ImageMagick-7.0.8-68/PerlMagick/t/montage.t =================================================================== --- ImageMagick-7.0.8-68.orig/PerlMagick/t/montage.t 2019-10-06 00:26:06.000000000 +0200 +++ ImageMagick-7.0.8-68/PerlMagick/t/montage.t 2019-10-08 16:42:58.768286476 +0200 @@ -15,7 +15,7 @@ # # Test montage method. # -BEGIN { $| = 1; $test=1, print "1..19\n"; } +BEGIN { $| = 1; $test=1, print "1..16\n"; } END {print "not ok 1\n" unless $loaded;} use Image::Magick; $loaded=1; @@ -113,39 +113,6 @@ testMontage( q//, '7f2745dfeb6b94f059e521601cd41cda2d548b7fff5eabd4781b102c2581c4f4'); # -# 11) Test Framed Montage -# -# Image border color 'bordercolor' controls frame background color -# Image matte color 'mattecolor' controls frame color -# Image pen color 'pen' controls label text foreground color -++$test; -testMontage( q/bordercolor=>'blue', mattecolor=>'red'/, - q/background=>'#696e7e', tile=>'4x4', geometry=>'90x80+3+3>', frame=>'8x10', - borderwidth=>'0', gravity=>'Center', background=>'gray'/, - 'd65a3fcf9119a59414d52b6b11c0d131579341dbae03e4f18776dc8a01da2931', - '2aa66c8d3eb0c3b3e765df6ffc5977c026dd65f7839b763a48192cdd45d27474'); - -# -# 12) Test Framed Montage with drop-shadows -# -++$test; -testMontage( q/bordercolor=>'blue', mattecolor=>'red'/, - q/background=>'#696e7e', tile=>'4x4', geometry=>'90x80+6+6>', frame=>'8x10', - borderwidth=>'0', gravity=>'Center', shadow=>'True',background=>'gray'/, - 'ff43a8c5dd980438c10436a71b47afc538ae3839ba57251768fa07add1229d8a', - '885d043b63810d030697104629d79f2141fab28cb561cf84b4f323209cee4f42'); - -# -# 13) Test Framed Montage with drop-shadows and background texture -# -++$test; -testMontage( q/bordercolor=>'blue', mattecolor=>'red'/, - q/background=>'#696e7e', tile=>'4x4', geometry=>'90x80+6+6>', frame=>'8x10', - borderwidth=>'0', gravity=>'Center', shadow=>'True', texture=>'granite:'/, - '0de019cb1e17fb9d3e60e6ae3931c6d384859613c3fc930cfef46720cae8237e', - '4774caea304139483a3f50a8b94690c7503ccbea89c0ae698e8bb8996d0cfda8'); - -# # 14) Test Un-bordered, Un-framed Montage # ++$test; Index: ImageMagick-7.0.8-68/PerlMagick/t/read.t =================================================================== --- ImageMagick-7.0.8-68.orig/PerlMagick/t/read.t 2019-10-06 00:26:06.000000000 +0200 +++ ImageMagick-7.0.8-68/PerlMagick/t/read.t 2019-10-08 16:40:16.715420136 +0200 @@ -15,7 +15,7 @@ # # Test reading formats supported directly by ImageMagick. # -BEGIN { $| = 1; $test=1; print "1..47\n"; } +BEGIN { $| = 1; $test=1; print "1..46\n"; } END {print "not ok $test\n" unless $loaded;} use Image::Magick; $loaded=1; @@ -72,10 +72,6 @@ print("MAT (MatLab gray 8-bit MSB intege ++$test; testReadCompare('input_gray_msb_08bit.mat', 'reference/read/input_gray_msb_08bit_mat.miff', q//, 0.22, 1.022); -print("MAT (MatLab gray 64-bit LSB double) ...\n"); -++$test; -testReadCompare('input_gray_lsb_double.mat', 'reference/read/input_gray_lsb_double_mat.miff', q//, 0.22, 1.022); - print("MAT (MatLab RGB 8-bit LSB integer) ...\n"); ++$test; testReadCompare('input_rgb_lsb_08bit.mat', 'reference/read/input_rgb_lsb_08bit_mat.miff', q//, 0.0, 0.0);