#!perl -w


use strict;
use Test::More;

my $tests = 5;
$tests   += 1 if $ENV{NET_SOCIAL_MAPPER_NETWORK_TESTS};
plan tests => $tests;

use_ok("Net::Social::Mapper");
my $mapper;
ok($mapper = Net::Social::Mapper->new, "Got mapper");
my $persona;
ok($persona  = $mapper->persona('sippey', 'typepad'),   "Got persona");
is($persona->user, 'sippey',                            "Got user");
is($persona->homepage, 'http://sippey.typepad.com',     "Got homepage");


exit 0 unless $ENV{NET_SOCIAL_MAPPER_NETWORK_TESTS};
ok(scalar($persona->feeds),                             "Found feeds");