115 lines
3 KiB
Perl
115 lines
3 KiB
Perl
|
# t/notificationmethod-inbox.t
|
||
|
|
#
|
||
|
|
# Test LJ::NotificationMethod::Inbox
|
||
|
|
#
|
||
|
|
# This code was forked from the LiveJournal project owned and operated
|
||
|
|
# by Live Journal, Inc. The code has been modified and expanded by
|
||
|
|
# Dreamwidth Studios, LLC. These files were originally licensed under
|
||
|
|
# the terms of the license supplied by Live Journal, Inc, which can
|
||
|
|
# currently be found at:
|
||
|
|
#
|
||
|
|
# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
|
||
|
|
#
|
||
|
|
# In accordance with the original license, this code and all its
|
||
|
|
# modifications are provided under the GNU General Public License.
|
||
|
|
# A copy of that license can be found in the LICENSE file included as
|
||
|
|
# part of this distribution.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 45;
|
||
|
|
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
|
||
|
|
use LJ::Test qw(temp_user memcache_stress);
|
||
|
|
|
||
|
|
use LJ::NotificationMethod::Inbox;
|
||
|
|
use LJ::Event::AddedToCircle;
|
||
|
|
|
||
|
|
my $u;
|
||
|
|
my $valid_u = sub {
|
||
|
|
return $u = temp_user();
|
||
|
|
};
|
||
|
|
|
||
|
|
# less duplication of this so we can revalidate
|
||
|
|
my $meth;
|
||
|
|
my $valid_meth = sub {
|
||
|
|
$meth = eval { LJ::NotificationMethod::Inbox->new( $u, $u->{userid} ) };
|
||
|
|
ok( ref $meth && !$@, "valid Inbox method instantiated" );
|
||
|
|
return $meth;
|
||
|
|
};
|
||
|
|
|
||
|
|
sub run_tests {
|
||
|
|
{
|
||
|
|
# constructor tests
|
||
|
|
$valid_u->();
|
||
|
|
$valid_meth->();
|
||
|
|
|
||
|
|
$meth = eval { LJ::NotificationMethod::Inbox->new() };
|
||
|
|
like( $@, qr/no args/, "no args passed to constructor" );
|
||
|
|
|
||
|
|
$meth = eval { LJ::NotificationMethod::Inbox->new( { user => 'ugly' } ) };
|
||
|
|
like( $@, qr/invalid user/, "non-user passed to constructor" );
|
||
|
|
|
||
|
|
# test valid case
|
||
|
|
$valid_meth->();
|
||
|
|
}
|
||
|
|
|
||
|
|
# accessor/setter tests
|
||
|
|
{
|
||
|
|
my $mu;
|
||
|
|
|
||
|
|
$valid_u->();
|
||
|
|
$valid_meth->();
|
||
|
|
|
||
|
|
# now we have valid from prev test
|
||
|
|
$mu = eval { $meth->{u} };
|
||
|
|
is( $mu, $u, "member u is constructed u" );
|
||
|
|
|
||
|
|
$mu = eval { $meth->u('foo') };
|
||
|
|
like( $@, qr/invalid 'u'/, "setting non-ref" );
|
||
|
|
|
||
|
|
$mu = eval { $meth->u( $u, 'bar' ) };
|
||
|
|
like( $@, qr/superfluous/, "superfluous args" );
|
||
|
|
|
||
|
|
# clear out $u
|
||
|
|
%$u = ();
|
||
|
|
LJ::start_request();
|
||
|
|
$mu = eval { $meth->u };
|
||
|
|
ok( !%$u, "cleared 'u'" );
|
||
|
|
}
|
||
|
|
|
||
|
|
# notify
|
||
|
|
{
|
||
|
|
$valid_u->();
|
||
|
|
$valid_meth->();
|
||
|
|
|
||
|
|
my $ev;
|
||
|
|
|
||
|
|
my $fromu = $u; # yeah, you can watch yourself
|
||
|
|
$ev = LJ::Event::AddedToCircle->new( $u, $fromu, 2 );
|
||
|
|
ok( ref $ev && !$@, "created LJ::Event::AddedToCircle object" );
|
||
|
|
|
||
|
|
# failures
|
||
|
|
eval { LJ::NotificationMethod::Inbox::notify() };
|
||
|
|
like( $@, qr/'notify'.+?object method/, "notify class method" );
|
||
|
|
|
||
|
|
eval { $meth->notify };
|
||
|
|
like( $@, qr/requires one or more/, "notify no events" );
|
||
|
|
|
||
|
|
eval { $meth->notify(undef) };
|
||
|
|
like( $@, qr/invalid event/, "notify undef event" );
|
||
|
|
|
||
|
|
eval { $meth->notify( $ev, undef, $ev ) };
|
||
|
|
like( $@, qr/invalid event/, "undef event with noise" );
|
||
|
|
|
||
|
|
my $str = $ev->as_string;
|
||
|
|
$meth->notify($ev);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
memcache_stress {
|
||
|
|
run_tests;
|
||
|
|
}
|