use strict;
use warnings;
use Test::More;
use Image::DS9;
use Cwd;
BEGIN {
plan( tests => 4 );
}
require 't/common.pl';
my $ds9 = start_up();
$ds9->file( cwd() . '/m31.fits.gz', { new => 1 } );
$ds9->rotate( abs => 45 );
ok( $ds9->rotate == '45', 'rotate abs' );
$ds9->rotate( to => 45 );
ok( $ds9->rotate == '45', 'rotate to' );
$ds9->rotate( rel => 45 );
ok( $ds9->rotate == '90', 'rotate rel' );
$ds9->rotate( 45 );
ok( $ds9->rotate == '135', 'rotate' );