# 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;
}