use strict;
use warnings;
use Test::More;
use Image::DS9;
use Cwd;
BEGIN { plan( tests => 9 ) ;}
require 't/common.pl';
my $ds9 = start_up();
$ds9->file( cwd. '/m31.fits.gz' );
$ds9->file( cwd. '/m31.fits.gz', { new => 1 } );
test_stuff( $ds9, (
tile =>
[
[] => 1,
mode => 'column',
mode => 'row',
mode => 'grid',
[qw( grid mode )] => 'manual',
[qw( grid mode )] => 'automatic',
[qw( grid layout )] => [5,5],
[qw( grid gap )] => 3,
[] => 0,
],
) );