112 lines
2.6 KiB
Perl
112 lines
2.6 KiB
Perl
|
# t/subscription-nested.t
|
||
|
|
#
|
||
|
|
# Test nested thread/comment subscriptions
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# Afuna <coder.dw@afunamatata.com>
|
||
|
|
#
|
||
|
|
# Copyright (c) 2013 by Dreamwidth Studios, LLC.
|
||
|
|
#
|
||
|
|
# This program is free software; you may redistribute it and/or modify it under
|
||
|
|
# the same terms as Perl itself. For a copy of the license, please reference
|
||
|
|
# 'perldoc perlartistic' or 'perldoc perlgpl'.
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 2;
|
||
|
|
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
|
||
|
|
use LJ::Comment;
|
||
|
|
use LJ::Talk;
|
||
|
|
use LJ::Test qw( temp_user );
|
||
|
|
|
||
|
|
sub check_thread_subscription {
|
||
|
|
my ( $entry, $u, $no_sub ) = @_;
|
||
|
|
|
||
|
|
subtest "checking thread subscription" => sub {
|
||
|
|
my $time = time();
|
||
|
|
my @comments = $entry->comment_list;
|
||
|
|
|
||
|
|
foreach my $comment (@comments) {
|
||
|
|
my $time = time();
|
||
|
|
my $has_sub = $comment->thread_has_subscription( $u, $entry->journal );
|
||
|
|
|
||
|
|
if ( $no_sub->{ $comment->jtalkid } ) {
|
||
|
|
ok( !$has_sub, $no_sub->{ $comment->jtalkid } );
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
ok( $has_sub, "ancestor of " . $comment->jtalkid . " is tracked" );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
note("shallow comment threads");
|
||
|
|
{
|
||
|
|
my $u = temp_user();
|
||
|
|
my $e = $u->t_post_fake_entry;
|
||
|
|
|
||
|
|
my @comments;
|
||
|
|
my $c = $e->t_enter_comment;
|
||
|
|
push @comments, $c;
|
||
|
|
|
||
|
|
foreach ( 1 ... 10 ) {
|
||
|
|
$c = $c->t_reply;
|
||
|
|
push @comments, $c;
|
||
|
|
}
|
||
|
|
|
||
|
|
$u->subscribe(
|
||
|
|
event => "JournalNewComment",
|
||
|
|
method => "Email",
|
||
|
|
journal => $u,
|
||
|
|
arg2 => $comments[2]->jtalkid,
|
||
|
|
);
|
||
|
|
|
||
|
|
check_thread_subscription(
|
||
|
|
$e, $u,
|
||
|
|
{
|
||
|
|
# not subscribed to # because....
|
||
|
|
1 => "above subscription point",
|
||
|
|
2 => "above subscription point",
|
||
|
|
3 => "subscribed starting from this comment (but not subscribed to ancestor)",
|
||
|
|
}
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
note("deep comment thread");
|
||
|
|
{
|
||
|
|
my $u = temp_user();
|
||
|
|
my $e = $u->t_post_fake_entry;
|
||
|
|
|
||
|
|
my @comments;
|
||
|
|
my $c = $e->t_enter_comment;
|
||
|
|
push @comments, $c;
|
||
|
|
|
||
|
|
foreach ( 1 ... 500 ) {
|
||
|
|
$c = $c->t_reply;
|
||
|
|
push @comments, $c;
|
||
|
|
}
|
||
|
|
|
||
|
|
$u->subscribe(
|
||
|
|
event => "JournalNewComment",
|
||
|
|
method => "Email",
|
||
|
|
journal => $u,
|
||
|
|
arg2 => $comments[2]->jtalkid,
|
||
|
|
);
|
||
|
|
|
||
|
|
check_thread_subscription(
|
||
|
|
$e, $u,
|
||
|
|
{
|
||
|
|
# not subscribed to # because....
|
||
|
|
1 => "above subscription point",
|
||
|
|
2 => "above subscription point",
|
||
|
|
3 => "subscribed starting from this comment (but not subscribed to ancestor)",
|
||
|
|
}
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
done_testing();
|