- Modifications to compile ImageMagick

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');