#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 5;
use Locale::Object::Continent;
use Locale::Object::Country;
my $asia = Locale::Object::Continent->new( name => 'Asia' );
#1
isa_ok( $asia, 'Locale::Object::Continent' );
my $cont_name = $asia->name;
#2
is( $cont_name, 'Asia', 'it has the correct name' );
#3
is( scalar @{$asia->countries}, 47, 'it has the correct number of countries in it' );
my %countries;
# Fill up a hash with the alpha2 codes of countries in $asia.
foreach my $where ($asia->countries)
{
# Get the alpha2 code of the country we're looking at.
my $where_code = $where->code_alpha2;
$countries{$where_code} = undef;
}
#4
ok( exists $countries{'af'}, 'a country in it has the right name' );
my $copy = Locale::Object::Continent->new( name => 'Asia' );
#5
ok( $copy eq $asia, 'the object is a singleton' );
# Remove __END__ to get a dump of the data structures created by this test.
__END__
print "\n==========================\n";
print "| DATA STRUCTURE FOLLOWS |\n";
print "==========================\n\n";
use Data::Dumper;
print Dumper $asia;