#!/usr/bin/perl
use strict;
use warnings;

#use Test::More tests => 4;
use Test::More qw(no_plan);
BEGIN { use_ok('GridWorld') };

my $grid = new GridWorld;
isa_ok($grid, 'GridWorld', 'grid');
can_ok($grid, qw(set get));

$grid->set( color => 'white' );
is( $grid->get('color'), 'white', 'set(), get() work');

$grid->setHeight(7);
is( $grid->getHeight(), 7, 'setFoo(), getFoo() work');

