#!perl -T

use Test::More tests => 21;

BEGIN {
	use_ok( 'Geo::Coder::GoogleMaps::Location' );
}

my $loc = Geo::Coder::GoogleMaps::Location->new();
ok(defined $loc);
ok($loc->isa('Geo::Coder::GoogleMaps::Location'));

ok($loc->SubAdministrativeAreaName('Hauts-de-Seine'));
ok( $loc->SubAdministrativeAreaName eq 'Hauts-de-Seine' );

ok( $loc->PostalCodeNumber('92600') );
ok( $loc->PostalCodeNumber eq '92600' );

ok( $loc->LocalityName('Asnières-sur-Seine') );
ok( $loc->LocalityName eq 'Asnières-sur-Seine' );

ok( $loc->ThoroughfareName('88, Rue du Château') );
ok( $loc->ThoroughfareName eq '88, Rue du Château' );

ok( $loc->AdministrativeAreaName('Ile-de-France') );
ok( $loc->AdministrativeAreaName eq 'Ile-de-France' );

ok( $loc->CountryNameCode('FR') );
ok( $loc->CountryNameCode eq 'FR' );

ok( $loc->address('88, Rue du Château, 92600 Asnières-sur-Seine, France') );
ok( $loc->address eq '88, Rue du Château, 92600 Asnières-sur-Seine, France' );

my $kml = $loc->toKML();
ok( defined $kml );
ok( $kml->isa('XML::LibXML::Document') );
ok( $kml->toString(1) );
ok( $kml->toString(1) eq $loc->toKML(1) );