use strict;
use warnings;
use Test::More;
use Image::DS9;
use Cwd;
BEGIN { plan( tests => 4 ) }
require 't/common.pl';
my $ds9 = start_up();
load_events( $ds9 );
test_stuff( $ds9, (
grid =>
[
[] => 1,
[] => 0,
],
) );
$ds9->grid(1);
unlink 'snooker.grid';
$ds9->grid( save => cwd() . '/snooker.grid' );
ok ( -f 'snooker.grid', 'grid save' );
$ds9->grid(0);
eval {
$ds9->grid( load => cwd() . '/snooker.grid' );
};
diag $@ if $@;
ok(!$@, 'grid load' );
unlink 'snooker.grid';