fix ticketing system error on bootstrap of new install

[freeside.git] / rt / t / web / template.t

diff --git a/rt/t/web/template.t b/rt/t/web/template.t
index 40a5366..1a02dc9 100644 (file)
--- a/rt/t/web/template.t
+++ b/rt/t/web/template.t
@@ -1,8 +1,7 @@
-#!/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',
@@ -18,7 +17,7 @@ ok( RT::Test->set_rights(
 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' );
@@ -60,3 +59,35 @@ $m->title_is(q{Modify template Resolved}, 'modifying the Resolved template');
 $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');
+
+  }
+}
+