Adding suggestions by AnthonyD.
This commit is contained in:
parent
37f8b62fc3
commit
c9fe8563ed
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user