use
strict;
use
warnings;
use
Test::More;
# Test the creation of an App::LinkSite::Social object
my
$social
= App::LinkSite::Social->new(
service
=>
'twitter'
,
handle
=>
'test_handle'
,
);
isa_ok(
$social
,
'App::LinkSite::Social'
,
'Created an App::LinkSite::Social object'
);
# Test the service method
is(
$social
->service,
'twitter'
,
'service method returns "twitter"'
);
# Test the handle method
is(
$social
->handle,
'test_handle'
,
'handle method returns "test_handle"'
);
# Test the url method
done_testing;