#!perl -w

use strict;
use Test::More;

my $tests = 21;
plan tests => $tests;

use_ok("Net::Social::Mapper");
my $mapper;
ok($mapper = Net::Social::Mapper->new, "Got mapper");
my $sitemap;
ok($sitemap  = $mapper->sitemap, "Got sitemap");

my ($user, $service);

ok(($user, $service)  = $sitemap->url_to_service("http://daveman692.livejournal.com"), "Got service from LJ");
is($user,    "daveman692",  "Got user");
is($service, "livejournal", "Got service");
ok(($user, $service)  = $sitemap->url_to_service("http://daveman692.livejournal.com/data/rss"), "Got service from LJ feed");
is($user,    "daveman692",  "Got user");
is($service, "livejournal", "Got service");
ok(($user, $service)  = $sitemap->url_to_service("http://www.livejournal.com/userinfo.bml?user=daveman692"), "Got service from LJ userinfo");
is($user,    "daveman692",  "Got user");
is($service, "livejournal", "Got service");

ok(($user, $service)  = $sitemap->url_to_service("http://flickr.com/photos/daveman692/"), "Got service from Flickr");
is($user,    "daveman692",  "Got user");
is($service, "flickr", "Got service");
ok(($user, $service)  = $sitemap->url_to_service("http://www.flickr.com/people/daveman692/"), "Got service from Flickr profile");
is($user,    "daveman692",  "Got user");
is($service, "flickr", "Got service");

ok(($user, $service)  = $sitemap->url_to_service("http://davidrecordon.com/"), "Got service from Homepage");
is($user,    "http://davidrecordon.com/",  "Got url as user");
is($service, "website",                    "Got service");