demo to use with=>"fits", test that

lib/PDL/Demos/Gnuplot.pm

@@ -8,7 +8,7 @@ if($PDL::Graphics::Gnuplot::valid_terms->{wxt}) {
 } elsif($ENV{DISPLAY}) {
     $subst = "x11, size=>[8,6,'in'], title=>'Gnuplot demo window', persist=>0";
 }
-my @d = ( "PDL", "Demos" );
+my @d = qw(PDL Demos);
 our $m51path = undef;
 foreach my $path ( @INC ) {
   my $check = File::Spec->catfile( $path, @d, "m51.fits" );
@@ -212,7 +212,8 @@ EOF
   $m51 = rfits $|.__PACKAGE__.q|::m51path;
 
   $w->reset;
-  $w->image({j=>1, clut=>'gray', title=>"M51 galaxy"}, with=>'image',$m51 );
+  # note this uses the 'fits' plot type, which adjusts the coordinates
+  $w->image({j=>1, clut=>'gray', title=>"M51 galaxy"}, with=>'fits',$m51 );
 |],
 
     [act => q|

t/plot.t

@@ -906,6 +906,18 @@ bless($a,'MyPackage');
 eval { $w->plot( $a ); };
 is $@, '', "subclass of PDL plots OK";
 
+my @d = qw(PDL Demos);
+my $m51path;
+foreach my $path (@INC) {
+  my $check = File::Spec->catfile( $path, @d, "m51.fits" );
+  if ( -f $check ) { $m51path = $check; last; }
+}
+if (defined $m51path) {
+  my $m51 = rfits $m51path;
+  eval { $w->reset; $w->plot(with => 'fits', $m51); }; # reset of "ascii"
+  is $@, '', "with => 'fits' OK";
+}
+
 # Test terminal defaulting
 eval { $w=PDL::Graphics::Gnuplot::new(size=>[9,9]); undef($w);};
 is $@, '', "default terminal is selected OK";