#! perl -w use strict; use Data::Microformat::hCard; use Test::More tests => 95; my $simple = << 'EOF';
San Francisco:
548 4th St.
San Francisco, CA 94107
USA
Paris:
48 rue de la Bienfaisance
Paris 75008
France
Ben Trott
Mena Trott
blogging
openness
jobs@sixapart.com advertise@sixapart.com
0x26F9298E
0xBD21C225
Awesome
Cool
Mail.App
Thunderbird
Greatest Place to Work Ever
Super Happy Fun Factory
This is a very long set of tests.
But everything needs to be tested.
Six Apart Open Platforms
Six Apart New York Excitement and Really Wild Things
The Front Door Sofas
2008-07-30
2008-07-31
Engineer
Innovator
July 9 MT Podcast June 25 MT Podcast
Work415-344-0056
Fax415-344-0829
Manager
Programmer
Six Apart Movable Type Open Source
Movable Type Open Source
EOF ok(my @cards = Data::Microformat::hCard->parse($simple)); is(scalar @cards, 2); ok(my $card = Data::Microformat::hCard->parse($simple)); is_deeply($card, $cards[0]); isnt($cards[0], $cards[1]); #For each item, check that if I read it into an array I get two, if I read it into a scalar I get one which == arr[0]. ok(my @arr = $card->adr); ok(my $one = $card->adr); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->agent); ok($one = $card->agent); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->category); ok($one = $card->category); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->email); ok($one = $card->email); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->key); ok($one = $card->key); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->label); ok($one = $card->label); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->logo); ok($one = $card->logo); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->mailer); ok($one = $card->mailer); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->nickname); ok($one = $card->nickname); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->note); ok($one = $card->note); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->org); ok($one = $card->org); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->photo); ok($one = $card->photo); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->rev); ok($one = $card->rev); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->role); ok($one = $card->role); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->sound); ok($one = $card->sound); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->tel); ok($one = $card->tel); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->title); ok($one = $card->title); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]); ok(@arr = $card->url); ok($one = $card->url); is(scalar @arr, 2); is($one, $arr[0]); isnt($one,$arr[1]);