37 lines
1 KiB
Perl
37 lines
1 KiB
Perl
|
use strict;
|
||
|
|
use Test::More tests => 3;
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
use LJ::Test qw( temp_user);
|
||
|
|
|
||
|
|
use DW::Worker::ContentImporter::LiveJournal;
|
||
|
|
|
||
|
|
note("check a username we know exists on livejournal.com");
|
||
|
|
{
|
||
|
|
my $uid = DW::Worker::ContentImporter::LiveJournal->remap_username_friend(
|
||
|
|
{
|
||
|
|
hostname => "livejournal.com",
|
||
|
|
},
|
||
|
|
"system"
|
||
|
|
);
|
||
|
|
ok( $uid, "Got back a userid ($uid) for system\@livejournal.com" );
|
||
|
|
}
|
||
|
|
|
||
|
|
note(
|
||
|
|
"check an openid username on the remote site (that is, they're not local to the site we're importing from)"
|
||
|
|
);
|
||
|
|
{
|
||
|
|
my $uid = DW::Worker::ContentImporter::LiveJournal->remap_username_friend(
|
||
|
|
{
|
||
|
|
hostname => "livejournal.com",
|
||
|
|
},
|
||
|
|
"ext_1662783"
|
||
|
|
);
|
||
|
|
|
||
|
|
ok( $uid, "Got back a userid ($uid) for ext_1662783\@livejournal.com" );
|
||
|
|
is(
|
||
|
|
LJ::load_userid($uid)->openid_identity,
|
||
|
|
"http://ext-1662783.livejournal.com/",
|
||
|
|
"Local user's openid URL is of format ext-1234.imported-from-site.com"
|
||
|
|
);
|
||
|
|
}
|