The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Image::DS9;
use Cwd;

BEGIN { plan( tests => 7 ) ;}

require 't/common.pl';


my $ds9 = start_up();
$ds9->file( cwd . '/m31.fits.gz' );

test_stuff( $ds9, (
		   mode =>
		   [
		    [] => 'crosshair',
		    [] => 'colorbar',
		    [] => 'pan',
		    [] => 'zoom',
		    [] => 'rotate',
		    [] => 'examine',
		    [] => 'pointer',
		   ],
		  ) );