You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
1.1 KiB
40 lines
1.1 KiB
#!/usr/bin/perl
|
|
# Copyright 1999-2021 ImageMagick Studio LLC, a non-profit organization
|
|
# dedicated to making software imaging solutions freely available.
|
|
#
|
|
# You may not use this file except in compliance with the License. You may
|
|
# obtain a copy of the License at
|
|
#
|
|
# https://imagemagick.org/script/license.php
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
#
|
|
# Test image blobs.
|
|
#
|
|
BEGIN { $| = 1; $test=1, print "1..1\n"; }
|
|
END {print "not ok 1\n" unless $loaded;}
|
|
use Image::Magick;
|
|
$loaded=1;
|
|
|
|
chdir 't' || die 'Cd failed';
|
|
|
|
$image = new Image::Magick;
|
|
$image->Read( 'input.miff' );
|
|
@blob = $image->ImageToBlob();
|
|
undef $image;
|
|
|
|
$image=Image::Magick->new( magick=>'MIFF' );
|
|
$image->BlobToImage( @blob );
|
|
|
|
if ($image->Get('signature') ne
|
|
'fb6fc68beb3b1001c5ebaa671c8ac8fddea06995027127765ff508f77723cc52')
|
|
{ print "not ok $test\n"; }
|
|
else
|
|
{ print "ok $test\n"; }
|
|
|
|
1;
|