1#!/usr/bin/perl 2# 3# Test accessing X11 server 4# 5# Contributed by Bob Friesenhahn <bfriesen@simple.dallas.tx.us> 6# 7 8BEGIN { $| = 1; $test=1; print "1..2\n"; } 9END {print "not ok $test\n" unless $loaded;} 10use Image::Magick; 11$loaded=1; 12 13require 't/subroutines.pl'; 14 15chdir 't/x11' || die 'Cd failed'; 16 17# 18# 1) Test rendering text using common X11 font 19# 20 21$font = '-*-courier-bold-r-normal-*-14-*-*-*-*-*-iso8859-1'; 22 23# Ensure that Ghostscript is out of the picture 24$SAVEDPATH=$ENV{'PATH'}; 25$ENV{'PATH'}=''; 26 27$image=Image::Magick->new; 28$x=$image->Set(font=>"$font", pen=>'#0000FF', dither=>'False'); 29if( "$x" ) { 30 print "$x\n"; 31 print "not ok $test\n"; 32} else { 33 $x=$image->ReadImage('label:The quick brown fox jumps over the lazy dog.'); 34 if( "$x" ) { 35 print "ReadImage: $x\n"; 36 # If server can't be accessed, ImageMagick returns this warning 37 # Warning 305: Unable to open X server 38 $x =~ /(\d+)/; 39 my $errorCode = $1; 40 if ( $errorCode > 0 ) { 41 print "not ok $test\n"; 42 } else { 43 print "ok $test\n"; 44 } 45 } else { 46 #$image->Display(); 47 print "ok $test\n"; 48 } 49} 50undef $image; 51 52$ENV{'PATH'}=$SAVEDPATH; 53 54print("X Windows system window dump file (color) ...\n"); 55++$test; 56testReadCompare('input.xwd', '../reference/read/input_xwd.miff', q//, 0.0, 0.0); 57