view release on metacpan or  search on metacpan

t/glab.t  view on Meta::CPAN

    is((scalar @{ $life->surround }), 2, "1D is surrounded by 2 cells");

    $board = Game::Life::NDim::Board->new( dims => Game::Life::NDim::Dim->new([9, 9]) );
    $life  = $board->get_life([5, 5]);
    is((scalar @{ $life->surround }), 8, "2D is surrounded by 8 cells");

    $board = Game::Life::NDim::Board->new( dims => Game::Life::NDim::Dim->new([9, 9, 9]) );
    $life  = $board->get_life([5, 5, 5]);
    is((scalar @{ $life->surround }), 26, "3D is surrounded by 26 cells");

    # general formula surrounding cells = n^3 - 1
}

sub get_life {
    diag 'get_life';
    my $board = Game::Life::NDim::Board->new( dims => Game::Life::NDim::Dim->new([9,9]) );

    is_deeply($board->get_life([0,0]), $board->items->[0][0], '');
    is_deeply($board->get_life([0,1]), $board->items->[0][0], '');
    is_deeply($board->get_life([0,2]), $board->items->[0][0], '');
    is_deeply($board->get_life([1,0]), $board->items->[0][0], '');