- Modifications to compile ImageMagick

ImageMagick/PerlMagick/t/x11/congrats.fig

@@ -0,0 +1,18 @@
+#FIG 3.2
+Portrait
+Center
+Inches
+Letter 
+100.00
+Single
+0
+1200 2
+6 2100 1575 8100 2775
+4 1 4 0 0 18 32 0.0000 4 450 6000 5100 2625 You can display an image!\001
+4 1 4 0 0 18 32 0.0000 4 345 5010 5100 1950 CONGRATULATIONS!\001
+-6
+2 4 0 1 0 7 0 0 -1 0.000 0 0 7 0 0 5
+	 9150 5850 9150 600 900 600 900 5850 9150 5850
+4 1 0 0 0 18 24 0.0000 4 330 3420 5100 3450 Please Stand By . . .\001
+4 1 0 0 0 18 24 0.0000 4 330 5775 5100 4125 In eight seconds this window will\001
+4 1 0 0 0 18 24 0.0000 4 330 4395 5100 4530 automatically disappear.\001

ImageMagick/PerlMagick/t/x11/read.t

@@ -0,0 +1,56 @@
+#!/usr/bin/perl
+#
+# Test accessing X11 server
+#
+# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
+#
+
+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/x11' || die 'Cd failed';
+
+#
+# 1) Test rendering text using common X11 font
+#
+
+$font   = '-*-courier-bold-r-normal-*-14-*-*-*-*-*-iso8859-1';
+
+# Ensure that Ghostscript is out of the picture
+$SAVEDPATH=$ENV{'PATH'};
+$ENV{'PATH'}='';
+
+$image=Image::Magick->new;
+$x=$image->Set(font=>"$font", pen=>'#0000FF', dither=>'False');
+if( "$x" ) {
+  print "$x\n";
+  print "not ok $test\n";
+} else {
+  $x=$image->ReadImage('label:The quick brown fox jumps over the lazy dog.');
+  if( "$x" ) {
+    print "ReadImage: $x\n";
+    # If server can't be accessed, ImageMagick returns this warning
+    # Warning 305: Unable to open X server
+    $x =~ /(\d+)/;
+    my $errorCode = $1;
+    if ( $errorCode > 0 ) {
+      print "not ok $test\n";
+    } else {
+      print "ok $test\n";
+    }
+  } else {
+    #$image->Display();
+    print "ok $test\n";
+  }
+}
+undef $image;
+
+$ENV{'PATH'}=$SAVEDPATH;
+
+print("X Windows system window dump file (color) ...\n");
+++$test;
+testReadCompare('input.xwd', '../reference/read/input_xwd.miff', q//, 0.0, 0.0);

ImageMagick/PerlMagick/t/x11/write.t

@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+#
+# Test accessing X11 server
+#
+# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us>
+#
+
+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/x11' || die 'Cd failed';
+
+
+# 1) Test reading and displaying an image
+#
+if ( 0 && defined($ENV{'DISPLAY'}) && ($^O ne 'MSWin32') ) {
+  $image=Image::Magick->new;
+  $x=$image->ReadImage('congrats.miff');
+  if( "$x" ) {
+    print "not ok $test\n";
+  } else {
+    $x = $image->Display(delay=>800);
+    if( "$x" ) {
+      print "not ok $test\n";
+    } else {
+      print "ok $test\n";
+    }
+  }
+  undef $image;
+} else {
+  print "ok $test\n";
+}
+
+# 2) Test XWD image file
+#
+print("X Windows system window dump file (color) ...\n");
+++$test;
+testReadWrite( 'XWD:input.xwd',
+  'XWD:output.xwd',
+  q//,
+  'a698f2fe0c6c31f83d19554a6ec02bac79c961dd9a87e7ed217752e75eb615d7');