1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/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 reading blobs supported directly by ImageMagick.
#
BEGIN { $| = 1; $test=1; print "1..2\n"; }
END {print "not ok $test\n" unless $loaded;}
use Image::Magick;
$loaded=1;
require 't/subroutines.pl';
chdir 't' || die 'Cd failed';
my (@blob, $filename, $format, $height, $image, $size, $status, $width);
$filename='input_p6.ppm';
print "Ping \"$filename\" ...\n";
$image=Image::Magick->new;
($width, $height, $size, $format)=$image->Ping("$filename");
if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
{
print "ok $test\n";
}
else
{
print "not ok $test\n";
}
undef $image;
$test++;
print("Ping blob ...\n");
$image=Image::Magick->new;
$status=$image->Read($filename);
warn "$status" if "$status";
@blob=$image->ImageToBlob();
undef $image;
$image=Image::Magick->new;
($width, $height, $size, $format)=$image->Ping(blob=>@blob);
undef @blob;
undef $image;
if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
{
print "ok $test\n";
}
else
{
print "not ok $test\n";
}
1;
|
