#!perl -w
use strict;
use Data::Microformat::hCard;
use Test::More tests => 32;
my $simple = << 'EOF';
EOF
ok(my $card = Data::Microformat::hCard->parse($simple));
is($card->nickname, "Foo");
is($card->photo, "http://ussjoin.com");
is($card->note, "Test");
is($card->sound, "http://ussjoin.com");
is($card->title, "Test");
is($card->logo, "http://ussjoin.com");
is($card->role, "Test");
is($card->tel->value, "+1.415.555.1212");
is($card->email->value, 'jobs@sixapart.com');
$simple = << 'EOF';
Bad
Bad
EOF
ok(my $org = Data::Microformat::hCard::organization->parse($simple));
is($org->organization_name, "Zaphod for President");
is($org->organization_unit, "Dirty Tricks");
$simple = << 'EOF';
Bad
Bad
Bad
Bad
Bad
EOF
ok(my $name = Data::Microformat::hCard::name->parse($simple));
is($name->family_name, "Pag");
is($name->given_name, "Zipo");
is($name->additional_name, "Judiciary");
is($name->honorific_prefix, "His High Judgmental Supremacy");
is($name->honorific_suffix, "Learned, Impartial, and Very Relaxed");
$simple = << 'EOF';
Bad
Bad
EOF
ok(my $type = Data::Microformat::hCard::type->parse($simple));
is($type->type, "Home");
is($type->value, "+1.415.555.1212");
$simple = << 'EOF';
EOF
ok(my $geo = Data::Microformat::geo->parse($simple));
is($geo->latitude, "37.386013");
is($geo->longitude, "-122.082932");
$simple = << 'EOF';
EOF
ok(my $adr = Data::Microformat::adr->parse($simple));
is($adr->street_address, "665 3rd St.");
is($adr->extended_address, "Suite 207");
is($adr->locality, "San Francisco");
is($adr->region, "CA");
is($adr->postal_code, "94107");
is($adr->country_name, "U.S.A.");