88 lines
1.8 KiB
Perl
88 lines
1.8 KiB
Perl
|
# t/comment-create.t
|
||
|
|
#
|
||
|
|
# Test LJ::Comment creation.
|
||
|
|
#
|
||
|
|
# 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 => 8;
|
||
|
|
|
||
|
|
BEGIN { $LJ::_T_CONFIG = 1; require "$ENV{LJHOME}/cgi-bin/ljlib.pl"; }
|
||
|
|
use LJ::Test qw( temp_user );
|
||
|
|
use LJ::Comment;
|
||
|
|
|
||
|
|
my $ju = temp_user();
|
||
|
|
my $pu = temp_user();
|
||
|
|
|
||
|
|
{
|
||
|
|
my $err_ref;
|
||
|
|
my $c = LJ::Comment->create(
|
||
|
|
err_ref => \$err_ref,
|
||
|
|
|
||
|
|
journal => undef,
|
||
|
|
poster => undef,
|
||
|
|
);
|
||
|
|
|
||
|
|
ok( !$c, "No comment created: invalid journal" );
|
||
|
|
is( $err_ref->{code}, "bad_journal" );
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
my $err_ref;
|
||
|
|
my $c = LJ::Comment->create(
|
||
|
|
err_ref => \$err_ref,
|
||
|
|
|
||
|
|
journal => $ju,
|
||
|
|
poster => undef,
|
||
|
|
);
|
||
|
|
|
||
|
|
ok( !$c, "No comment created: invalid poster" );
|
||
|
|
is( $err_ref->{code}, "bad_poster" );
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
my $err_ref;
|
||
|
|
my $c = LJ::Comment->create(
|
||
|
|
err_ref => \$err_ref,
|
||
|
|
|
||
|
|
journal => $ju,
|
||
|
|
poster => $pu,
|
||
|
|
|
||
|
|
extra_args => undef
|
||
|
|
);
|
||
|
|
|
||
|
|
ok( !$c, "No comment created: missing ditemid, no entry to reply to" );
|
||
|
|
is( $err_ref->{code}, "no_entry" );
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
my $err_ref;
|
||
|
|
my $c = LJ::Comment->create(
|
||
|
|
err_ref => \$err_ref,
|
||
|
|
|
||
|
|
journal => $ju,
|
||
|
|
poster => $pu,
|
||
|
|
|
||
|
|
ditemid => '111', # < 256, guaranteed premium fake but never mind that
|
||
|
|
|
||
|
|
extra_args => undef
|
||
|
|
);
|
||
|
|
|
||
|
|
# Fails before ever calling prepare-and-validate
|
||
|
|
ok( !$c, "No comment created: invalid args" );
|
||
|
|
is( $err_ref->{code}, "bad_args" );
|
||
|
|
}
|
||
|
|
|
||
|
|
# LJ::Talk::prepare_and_validate_comment has its own tests, so don't test for
|
||
|
|
# anything that would fail during that in here.
|