mourningdove/t/esn-findsubscription.t

# t/esn-findsubscription.t
#
# Test finding ESN subscriptions.
#
# 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 => 75;

BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
use LJ::Event;
use LJ::Test qw(memcache_stress temp_user);
use FindBin qw($Bin);

# some simple testing here. basically just make sure the has_subscription works right.

sub test_subscription {
    my $cv = shift;
    my $u1 = temp_user();
    my $u2 = temp_user();
    $u1->add_edge( $u2, watch => { nonotify => 1 } );    # make u1 watch u2
    memcache_stress(
        sub {
            $cv->( $u1, $u2 );
        }
    );
}

test_subscription(
    sub {
        my ( $u1, $u2 ) = @_;
        my ( $foundsubs, $subsc1, $subsc2, $res );

        # no params
        {
            eval { $u1->has_subscription() };
            like( $@, qr/no parameters/i, "Bogus has_subscription call" );
        }

        # invalid params
        {
            eval { $u1->has_subscription( ooga_booga => 123 ) };
            like( $@, qr/invalid parameters/i, "Bogus has_subscription call" );
        }

        # clear all subs
        $_->delete foreach $u1->subscriptions;
        $_->delete foreach $u2->subscriptions;

        # make sure no subscriptions
        ok( !$u1->subscriptions, "User 1 has no subscriptions" );
        ok( !$u2->subscriptions, "User 2 has no subscriptions" );

        # subscribe $u1 to all posts on $u2
        {
            $subsc1 = $u1->subscribe(
                event   => "JournalNewComment",
                method  => "Email",
                journal => $u2,
            );
            ok( $subsc1, "Made subscription" );
        }

        # see if we can find this subscription
        {
            $foundsubs = $u1->has_subscription(
                event   => "JournalNewComment",
                method  => "Email",
                journal => $u2,
            );
            is( $foundsubs, 1, "Found one subscription" );
        }

        # look for bogus subscriptions
        {
            $foundsubs = $u1->has_subscription(
                event   => "JournalNewComment",
                method  => "Email",
                journal => $u1,
            );
            ok( !$foundsubs, "Couldn't find bogus subscription" );
            $foundsubs = $u1->has_subscription(
                event   => "JournalNewEntry",
                method  => "Email",
                journal => $u2,
            );
            ok( !$foundsubs, "Couldn't find bogus subscription" );
        }

        # look for more general matches
        {
            $foundsubs = $u1->has_subscription( method => "Email", );
            is( $foundsubs, 1, "Found subscription" );
            $foundsubs = $u1->has_subscription( event => "JournalNewComment", );
            is( $foundsubs, 1, "Found subscription" );
            $foundsubs = $u1->has_subscription( journal => $u2, );
            is( $foundsubs, 1, "Found subscription" );
        }

        # add another subscription and do more searching
        {
            $subsc2 = $u1->subscribe(
                event   => "AddedToCircle",
                method  => "Email",
                journal => $u2,
                arg1    => 10,
            );
            ok( $subsc2, "Subscribed" );

            # search for second subscription
            $foundsubs = $u1->has_subscription(
                event   => "AddedToCircle",
                method  => "Email",
                journal => $u2,
                arg1    => 10,
            );
            is( $foundsubs, 1, "Found one new subscription" );
        }

        # test filtering
        {
            $foundsubs = $u1->has_subscription( method => "Email", );
            is( $foundsubs, 2, "Found two subscriptions" );

            $foundsubs = $u1->has_subscription( event => "JournalNewComment", );
            is( $foundsubs, 1, "Found one subscription" );

            $foundsubs = $u1->has_subscription( event => "AddedToCircle", );
            is( $foundsubs, 1, "Found one subscription" );

            $foundsubs = $u1->has_subscription( arg1 => 10, );
            is( $foundsubs, 1, "Found one subscription" );

            $foundsubs = $u1->has_subscription( journal => $u2, );
            is( $foundsubs, 2, "Found two subscriptions" );
        }

        # delete subscription and make sure we can't still find it
        {
            $subsc1->delete;
            $foundsubs = $u1->has_subscription(
                event   => "JournalNewComment",
                method  => "Email",
                journal => $u2,
            );
            is( $foundsubs, 0, "Didn't find subscription after deleting" );
        }

        # delete subscription and make sure we can't still find it
        {
            $subsc2->delete;
            $foundsubs = $u1->has_subscription(
                event   => "AddedToCircle",
                method  => "Email",
                journal => $u2,
            );
            ok( !$foundsubs, "Didn't find subscription after deleting" );
        }

        # test search params
        {
            my $subsc3 = $u1->subscribe(
                event     => "AddedToCircle",
                method    => "Email",
                journalid => $u2->{userid},
            );
            ok( $subsc3,                         "Made subscription" );
            ok( $u2->equals( $subsc3->journal ), "Subscribed to correct journal" );
            my ($subsc3_f) = $u1->has_subscription( event => "AddedToCircle", );
            is( $subsc3_f->etypeid, "LJ::Event::AddedToCircle"->etypeid, "Found subscription" );
            $subsc3->delete;

            my $arg1   = 42;
            my $subsc4 = $u1->subscribe(
                event   => "JournalNewEntry",
                method  => "Email",
                journal => $u2,
                arg1    => $arg1,
            );
            ok( $subsc4, "Made subscription" );
            my ($subsc4_f) = $u1->has_subscription( arg1 => $arg1 );
            is( $subsc4_f->arg1, $arg1, "Found subscription" );
            $subsc4->delete;
        }
    }
);