6.7.8-8 ok
6.7.9-0 ok
6.7.9-1 fail
6.7.9-3 fail
6.7.9-5 fail
6.8.0-0 fail
6.8.0-10 fail
With following test derived from montage.t:
Code: Select all
use Image::Magick;
my $images=Image::Magick->new;
my $image=Image::Magick->new;
my @colors = ( '#000000', '#008000', '#C0C0C0', '#00FF00',
'#808080', '#808000', '#FFFFFF', '#FFFF00',
'#800000', '#000080', '#FF0000', '#0000FF',
'#800080', '#008080', '#FF00FF', '#00FFFF' );
my $color;
foreach $color ( @colors ) {
$image->Set(size=>'50x50');
$status=$image->ReadImage("xc:$color");
if ("$status") {
warn "Readimage: $status" if "$status";
} else {
push( @$images, @$image);
}
undef @$image;
}
my $montageOptions=q/background=>'#696e7e', label=>''/;
eval "\$montage=\$images->Montage( $montageOptions ) ;";
$signature=$montage->GetAttribute('signature');
print "signature: $signature\n";
Code: Select all
ImageMagick-6.7.8-8/PerlMagick> perl montage-test.pl
signature: fea8915dc67163d86e93a6e611c900185f82bdc5fc67c7a3e53a4b76639aaa56
ImageMagick-6.7.8-8/PerlMagick> grep -A 6 "1) Test montage defaults" t/montage.t
# 1) Test montage defaults (except no label that requires an exact font)
#
testMontage( q//,
q/background=>'#696e7e', label=>''/,
'977b812cb06e16d0ee7da6c80a9470cb85c2d33ba33f5919f26b05058f0eb177',
'fea8915dc67163d86e93a6e611c900185f82bdc5fc67c7a3e53a4b76639aaa56',
'8de04216e6f60ad3bf63d5a2c54386cb824579e1c4a677af726e0306e0c7fb09');
Code: Select all
ImageMagick-6.8.0-10/PerlMagick> perl montage-test.pl
signature: 93afa0ad47528ea284a170f6564e9cbb0b824959daf49ada35c43d9e8ca40f79
ImageMagick-6.8.0-10/PerlMagick> grep -A 6 "1) Test montage defaults" t/montage.t
# 1) Test montage defaults (except no label that requires an exact font)
#
testMontage( q//,
q/background=>'#696e7e', label=>''/,
'a7eaf25ec79757e02a706a3f25022ce5f11ae8ae8e57fa001fd036eea2de8ab9',
'ea7cddf84b2109684c34896189bfb8b45950fb7ac835a733afae13182c9c368f',
'1de064bfdd428c871f15f9605e8cb0240b866bf5bc174e80c7fa7cb78d177a2c');
Could you please advise?