Adding suggestions by AnthonyD.

This commit is contained in:
Sergiotarxz 2023-07-12 01:13:03 +02:00
parent 37f8b62fc3
commit c9fe8563ed

View File

@ -8,7 +8,7 @@ use feature 'signatures';
use Scalar::Util qw/blessed/; use Scalar::Util qw/blessed/;
use Test::Most qw/no_plan bail/; use Test::Most tests => 11, qw/bail/;
{ {
require LasTres::Planets; require LasTres::Planets;
@ -20,6 +20,8 @@ use Test::Most qw/no_plan bail/;
} }
} }
done_testing;
sub test_planet($planet) { sub test_planet($planet) {
my $super_areas_hash = $planet->super_areas; my $super_areas_hash = $planet->super_areas;
is ref($super_areas_hash), 'HASH', (blessed $planet) is ref($super_areas_hash), 'HASH', (blessed $planet)