use warnings;
use strict;


use Test;
BEGIN { plan tests => 2 };
use Games::Chomp;
ok(1);

my $g = new Games::Chomp;
ok(defined $g);

ok($g->reset);

my $p = new Games::Chomp::Position;

## Testing problem solving for a few small numbers
$g->row_length_position(1);

ok($g->resolve);
__END__

$g->reset;
ok($g->resolve([2,1]));

$g->reset;
ok($g->resolve([30,29]));

$g->reset;
ok($g->resolve([3,1,1]));
$g->reset;
ok($g->resolve([4,2,2]));
$g->reset;
ok($g->resolve([7,5,2]));

$g->reset;
ok($g->resolve([6,3,3]));
$g->reset;
ok($g->resolve([7,4,3]));
$g->reset;
ok($g->resolve([5,5,3]));

$g->reset;
ok($g->resolve([8,4,4]));
$g->reset;
ok($g->resolve([9,5,4]));


$g->reset;
ok($g->resolve([10,5,5]));
$g->reset;
ok($g->resolve([11,9,2]));
$g->reset;
ok($g->resolve([11,7,5]));
$g->reset;
ok($g->resolve([12,12,8]));

$g->reset;
ok(0==$g->resolve([2,2]));
$g->reset;
ok(0==$g->resolve([5,5,5]));