use strict;
use warnings;

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

BEGIN { 
	plan( tests => 9 );
      }

require 't/common.pl';

my $ds9 = start_up();
clear($ds9);

$ds9->frame(3);
ok( 3 == $ds9->frame(), "frame create" );

$ds9->frame(4);
ok( 4 == $ds9->frame(), "frame create" );

ok( eq_array([ 1, 3, 4 ], scalar $ds9->frame('all')), 'frame all' );

$ds9->frame( 'first' );
ok( 1 == $ds9->frame(), "frame first" );

$ds9->frame( 'last' );
ok( 4 == $ds9->frame(), "frame last" );

$ds9->frame( 'prev' );
ok( 3 == $ds9->frame(), "frame prev" );

$ds9->frame( 'next' );
ok( 4 == $ds9->frame(), "frame next" );

# avoid strange timing crash on some X servers
sleep(1);

$ds9->frame( 'delete' );
ok( 3 == $ds9->frame(), "frame delete" );

$ds9->frame( 'new' );
ok( 5 == $ds9->frame(), "frame new" );