[livejournal] r23459: LJSUP-13330: XMLRPC tests actualization

[shhh]

Committer: nnikulochkinaLJSUP-13330: XMLRPC tests actualization

U trunk/cgi-bin/LJ/Test.pm

Modified: trunk/cgi-bin/LJ/Test.pm
===================================================================
--- trunk/cgi-bin/LJ/Test.pm 2012-12-12 08:52:36 UTC (rev 23458)
+++ trunk/cgi-bin/LJ/Test.pm 2012-12-12 10:19:31 UTC (rev 23459)
@@ -114,6 +114,8 @@
$opts{'email'} = 'do-not-reply@livejournal.com'
unless defined $opts{'email'};

+ $opts{'friends'} ||= [];
+
my $u;

if ( $journaltype eq 'P' ) {
@@ -154,6 +156,15 @@
return $u;
}

+
+sub add_friend {
+ my ($class, $uname, $fname) = @_;
+ my $u = LJ::load_user($uname) || die "Can't load user '$uname'";
+ my $f = LJ::load_user($fname) || die "Can't load user '$fname'";
+
+ $u->add_friend($f);
+}
+
sub temp_user {
shift() if $_[0] eq __PACKAGE__;
my %args = @_;