-#!/usr/bin/perl
use strict;
use warnings;
-use RT::Test tests => 19;
+use RT::Test tests => 22;
my $user_a = RT::Test->load_or_create_user(
Name => 'user_a', Password => 'password',
ok $m->login('user_a', 'password'), 'logged in as user A';
# get to the templates screen
-$m->follow_link( text => 'Configuration' );
+$m->follow_link( text => 'Admin' );
$m->title_is(q{RT Administration}, 'admin screen');
$m->follow_link( text => 'Global' );
$m->form_name('ModifyTemplate');
is($m->value('Type'), 'Perl', 'now that we have ExecuteCode we can update Type to Perl');
+{ # 21152: Each time you save a Template a newline is chopped off the front
+ $m->form_name('ModifyTemplate');
+ my $content;
+
+
+ TODO: {
+
+ local $TODO = "WWW::Mechanize doesn't strip newline following <textarea> tag like browsers do";
+ # this test fails because earlier tests add newlines when using Mech
+ like($content = $m->value('Content'), qr/^Subject: Resolved/, 'got expected Content');
+
+ }
+
+ $content = "\n\n\n" . $content;
+ $m->field(Content => $content);
+ $m->submit;
+
+ $m->content_contains('Template Resolved: Content updated');
+
+ # next submit should not result in an update
+ $m->form_name('ModifyTemplate');
+ $m->submit;
+
+ TODO: {
+
+ local $TODO = "WWW::Mechanize doesn't strip newline following <textarea> tag like browsers do";
+ # this test fails because the template change makes Mech continuously add newlines where browsers dont
+ $m->content_lacks('Template Resolved: Content updated');
+
+ }
+}
+