46 lines
1.3 KiB
Perl
46 lines
1.3 KiB
Perl
|
# t/ban-observer-effect.t
|
||
|
|
#
|
||
|
|
# Demonstrating how to accurately test changes in user relationships, like
|
||
|
|
# banning. Lots of behaviors implicitly cause this relation cache to get
|
||
|
|
# populated (including just LOOKING AT IT), so you need to do This One Weird
|
||
|
|
# Trick to test any of those behaviors.
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# Nick Fagerlund <nick.fagerlund@gmail.com>
|
||
|
|
#
|
||
|
|
# Copyright (c) 2020 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;
|
||
|
|
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
use LJ::Test qw( temp_user temp_comm );
|
||
|
|
|
||
|
|
plan tests => 3;
|
||
|
|
|
||
|
|
my $unobserved1 = temp_user();
|
||
|
|
my $unobserved2 = temp_user();
|
||
|
|
|
||
|
|
$unobserved1->ban_user($unobserved2);
|
||
|
|
ok( $unobserved1->has_banned($unobserved2), "Didn't look. Successful ban." );
|
||
|
|
|
||
|
|
my $observed1 = temp_user();
|
||
|
|
my $observed2 = temp_user();
|
||
|
|
|
||
|
|
ok( !$observed1->has_banned($observed2), "Ships passing in the night." );
|
||
|
|
|
||
|
|
# Without this key deletion, the next test will fail:
|
||
|
|
foreach ( keys %LJ::REQ_CACHE_REL ) {
|
||
|
|
delete $LJ::REQ_CACHE_REL{$_};
|
||
|
|
}
|
||
|
|
|
||
|
|
$observed1->ban_user($observed2);
|
||
|
|
ok( $observed1->has_banned($observed2), "Looked. Successful ban." );
|