From: cristy <urban-warrior@git.imagemagick.org>
Date: Tue, 6 Nov 2012 12:45:31 +0000 (+0000)
Subject: (no commit message)
X-Git-Tag: 7.0.1-0~4748
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=980ca6a407b2d8c657646ae7e717c4974eb27872;p=imagemagick

---

diff --git a/PerlMagick/t/subroutines.pl b/PerlMagick/t/subroutines.pl
index 4bd9b95e9..593d0fea9 100644
--- a/PerlMagick/t/subroutines.pl
+++ b/PerlMagick/t/subroutines.pl
@@ -96,6 +96,7 @@ sub testCompositeCompare {
       goto COMPARE_RUNTIME_ERROR;
     }
 
+  $background->Clamp();
   $background->set(depth=>8);
 #  if ("$filter" eq "Atop") {
 #    $background->write(filename=>"$refimage_name", compression=>'None');
@@ -330,6 +331,7 @@ sub testReadCompare {
       goto COMPARE_RUNTIME_ERROR;
     }
 
+  $srcimage->Clamp();
   $srcimage->set(depth=>8);
 
   # FIXME: The following statement should not be needed.
@@ -639,6 +641,7 @@ sub testReadWriteCompare {
   # Compare output file with reference image
   #
 
+  $image->Clamp();
   $image->set(depth=>8);
 
   # FIXME: The following statement should not be needed.
@@ -1187,6 +1190,7 @@ sub testFilterCompare {
       goto COMPARE_RUNTIME_ERROR;
     }
 
+  $srcimage->Clamp();
   $srcimage->set(depth=>8);
 #  if ("$filter" eq "Shear") {
 #    $srcimage->Display();