#!/usr/bin/perl

use strict;
use warnings;
use Test::More tests => 2;

BEGIN { use_ok('GMines::Board'); }
ok(1);
__END__
We have to rethink on how to write tests

my $board = GMines::Board->new({rows => 11, cols => 23, mines => 17});
isa_ok($board, 'GMines::Board');
is($board->rows, 11);
is($board->cols, 23);
is($board->mines, 17);

my $c;
foreach my $i (0..12) {
	foreach my $j (0..24) {
		$c++ if $board->is_mine($i, $j);
	}
}
is($c, 17);
#use Data::Dumper;
#diag Dumper $board;