forked from github/kensanata.oddmuse
9fbf8a6f39
This also requires a change in gravatar.pl because we can no longer test for MailNewGetCommentForm. Instead, we test @MyFormChanges as variables are being initialized and if MailCommentAdditions is already on it, we don't add GravatarFormAddition.
79 lines
2.6 KiB
Perl
79 lines
2.6 KiB
Perl
# Copyright (C) 2010 Alex Schroeder <alex@gnu.org>
|
|
#
|
|
# This program is free software: you can redistribute it and/or modify it under
|
|
# the terms of the GNU General Public License as published by the Free Software
|
|
# Foundation, either version 3 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful, but WITHOUT
|
|
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
|
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
require 't/test.pl';
|
|
package OddMuse;
|
|
use Test::More tests => 16;
|
|
|
|
add_module('gravatar.pl');
|
|
|
|
AppendStringToFile($ConfigFile, "\$CommentsPrefix = 'Comments on ';\n");
|
|
|
|
# with homepage
|
|
|
|
test_page(get_page(join(' ',
|
|
'title=Comments_on_Test1',
|
|
'aftertext="This is my comment"',
|
|
'username=Alex%20Schroeder',
|
|
'homepage=http://oddmuse.org/',
|
|
'mail=alex@gnu.org')),
|
|
'Status: 302 Found');
|
|
my $gravatar = md5_hex('alex@gnu.org');
|
|
my $page = get_page('Comments_on_Test1');
|
|
xpath_test($page,
|
|
'//span[@class="portrait gravatar"]',
|
|
'//p[contains(text(),"This is my comment")]',
|
|
'//a[@href="http://oddmuse.org/"][text()="Alex Schroeder"]',
|
|
'//img[@src="https://secure.gravatar.com/avatar/' . $gravatar . '"]');
|
|
|
|
# without homepage
|
|
|
|
test_page(get_page(join(' ',
|
|
'title=Comments_on_Test2',
|
|
'aftertext="This is my comment"',
|
|
'username=Alex%20Schroeder',
|
|
'mail=alex@gnu.org')),
|
|
'Status: 302 Found');
|
|
my $gravatar = md5_hex('alex@gnu.org');
|
|
my $page = get_page('Comments_on_Test2');
|
|
xpath_test($page,
|
|
'//span[@class="portrait gravatar"]',
|
|
'//p[contains(text(),"This is my comment")]',
|
|
'//a[@href="http://localhost/wiki.pl/Alex_Schroeder"][text()="Alex Schroeder"]',
|
|
'//img[@src="https://secure.gravatar.com/avatar/' . $gravatar . '"]');
|
|
|
|
# with homepage an no email
|
|
|
|
test_page(get_page(join(' ',
|
|
'title=Comments_on_Test3',
|
|
'aftertext="This is my comment"',
|
|
'username=Alex%20Schroeder',
|
|
'homepage=http://oddmuse.org/')),
|
|
'Status: 302 Found');
|
|
my $gravatar = md5_hex('alex@gnu.org');
|
|
my $page = get_page('Comments_on_Test3');
|
|
xpath_test($page,
|
|
'//p[text()="This is my comment"]',
|
|
'//a[@href="http://oddmuse.org/"][text()="Alex Schroeder"]');
|
|
negative_xpath_test($page,
|
|
'//span[@class="portrait gravatar"]',
|
|
'//img[@src="https://secure.gravatar.com/avatar/' . $gravatar . '"]');
|
|
|
|
# testing interactions with mail.pl
|
|
|
|
add_module('mail.pl');
|
|
|
|
test_page_negative(get_page('Comments_on_Test'),
|
|
'Email:.*Email:');
|