view release on metacpan or  search on metacpan

t/01-base.t  view on Meta::CPAN

use v5.10;
use strict;
use warnings;

use Test::More;
use Game::TileMap;

my $legend = Game::TileMap->new_legend;

$legend
	->add_wall('#')
	->add_void('.')
	->add_terrain('_' => 'pavement')
	->add_object('entrances', '1' => 'door1')
	->add_object('entrances', '2' => 'door2')
	->add_object('entrances', '3' => 'door3')
	->add_object('monster_spawns', 'a' => 'spawn_a')
	->add_object('monster_spawns', 'b' => 'spawn_b')
	->add_object('monster_spawns', 'c' => 'spawn_c')
	->add_object('surroundings', '=' => 'chest')
	->add_object('surroundings', 'x' => 'trap')
	;

my $map_str = <<MAP;
########2#
1_#=__a__#
#_#_a____#
#_#___b__#
#_######_#
#________#
#...__...#
#...c_...#
#...__...#
#_____x__3
##########
MAP

my $map = Game::TileMap->new(legend => $legend, map => $map_str);

foreach my $item ($map->get_all_of_type('spawn_c')) {
	$item->set_contents('boss_spawn');
}

foreach my $item ($map->get_all_of_class('entrances')) {
	$item->set_contents($item->contents . '_open');
}

subtest 'testing basic map data' => sub {
	is $map->size_x, 10, 'size_x ok';
	is $map->size_y, 11, 'size_y ok';

	is scalar @{$map->coordinates}, $map->size_x, 'size_x on coordinates ok';
	is scalar @{$map->coordinates->[0]}, $map->size_y, 'size_y on coordinates[0] ok';

	isa_ok $map->coordinates->[4][3], 'Game::TileMap::Tile';
	is $map->coordinates->[4][3]->x, 4, '4;3 tile pos x ok';
	is $map->coordinates->[4][3]->y, 3, '4;3 tile pos y ok';
	is $map->coordinates->[4][3]->type, 'spawn_c', '4;3 tile type ok';
	is $map->coordinates->[4][3]->contents, 'boss_spawn', '4;3 tile contents ok';
};

subtest 'testing check_within_map' => sub {

	# out of bounds
	ok !$map->check_within_map(-1, 0), 'check 1 ok';
	ok !$map->check_within_map(0, -1), 'check 2 ok';
	ok !$map->check_within_map(10, 0), 'check 3 ok';
	ok !$map->check_within_map(0, 11), 'check 4 ok';

	# wall / void
	ok !$map->check_within_map(0, 0), 'check 5 ok';
	ok $map->check_within_map(1, 2), 'check 6 ok';

	# pavement
	ok $map->check_within_map(1, 1), 'check 7 ok';
	ok $map->check_within_map(8.9, 9.9), 'check 8 ok';

	# entrance
	ok $map->check_within_map(0.5, 9.3), 'check 9 ok';
};

subtest 'testing check_can_be_accessed' => sub {

	# out of bounds
	ok !$map->check_can_be_accessed(-1, 0), 'check 1 ok';
	ok !$map->check_can_be_accessed(0, -1), 'check 2 ok';
	ok !$map->check_can_be_accessed(10, 0), 'check 3 ok';
	ok !$map->check_can_be_accessed(0, 11), 'check 4 ok';

	# wall / void
	ok !$map->check_can_be_accessed(0, 0), 'check 5 ok';
	ok !$map->check_can_be_accessed(1, 2), 'check 6 ok';

	# pavement
	ok $map->check_can_be_accessed(1, 1), 'check 7 ok';
	ok $map->check_can_be_accessed(8.9, 9.9), 'check 8 ok';

	# entrance