1#!/usr/bin/perl
2#  Copyright 1999-2021 ImageMagick Studio LLC, a non-profit organization
3#  dedicated to making software imaging solutions freely available.
4#
5#  You may not use this file except in compliance with the License.  You may
6#  obtain a copy of the License at
7#
8#    https://imagemagick.org/script/license.php
9#
10#  Unless required by applicable law or agreed to in writing, software
11#  distributed under the License is distributed on an "AS IS" BASIS,
12#  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13#  See the License for the specific language governing permissions and
14#  limitations under the License.
15#
16# Test reading blobs supported directly by ImageMagick.
17#
18BEGIN { $| = 1; $test=1; print "1..2\n"; }
19END {print "not ok $test\n" unless $loaded;}
20use Image::Magick;
21$loaded=1;
22
23require 't/subroutines.pl';
24
25chdir 't' || die 'Cd failed';
26
27my (@blob, $filename, $format, $height, $image, $size, $status, $width);
28
29$filename='input_p6.ppm';
30print "Ping \"$filename\" ...\n";
31$image=Image::Magick->new;
32($width, $height, $size, $format)=$image->Ping("$filename");
33if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
34  {
35    print "ok $test\n";
36  }
37 else
38  {
39    print "not ok $test\n";
40  }
41undef $image;
42$test++;
43
44print("Ping blob ...\n");
45$image=Image::Magick->new;
46$status=$image->Read($filename);
47warn "$status" if "$status";
48@blob=$image->ImageToBlob();
49undef $image;
50$image=Image::Magick->new;
51($width, $height, $size, $format)=$image->Ping(blob=>@blob);
52undef @blob;
53undef $image;
54if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
55  {
56    print "ok $test\n";
57  }
58else
59  {
60    print "not ok $test\n";
61  }
62
631;
64