print "Ping \"$filename\" ...\n";
$image=Image::Magick->new;
($width, $height, $size, $format)=$image->Ping("$filename");
-if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PNM"))
+if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
{
print "ok $test\n";
}
($width, $height, $size, $format)=$image->Ping(blob=>@blob);
undef @blob;
undef $image;
-if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PNM"))
+if (($width == 70) && ($height == 46) && ($size == 9673) && ($format eq "PPM"))
{
print "ok $test\n";
}