use strict;
use warnings;

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

BEGIN { 
	plan( tests => 5 );
      }

require 't/common.pl';

my $ds9 = start_up();

$ds9->file( cwd() . '/m31.fits.gz', { new => 1 }  );

$ds9->zoom( to => 'fit' );
my $zval = $ds9->zoom;

$ds9->zoom( to => 1);
ok( 1 == $ds9->zoom, 'zoom to' );

$ds9->zoom( abs => 2);
ok( 2 == $ds9->zoom, 'zoom abs' );

$ds9->zoom( rel => 2);
ok( 4 == $ds9->zoom, 'zoom rel' );

$ds9->zoom( 0.5);
ok( 2 == $ds9->zoom, 'zoom' );

$ds9->zoom( 0 );
ok( $zval == $ds9->zoom, 'zoom 0' );