RT 4.0.13

[freeside.git] / rt / t / customfields / access_via_queue.t

diff --git a/rt/t/customfields/access_via_queue.t b/rt/t/customfields/access_via_queue.t
index 690e177..a059d69 100644 (file)
--- a/rt/t/customfields/access_via_queue.t
+++ b/rt/t/customfields/access_via_queue.t
@@ -1,9 +1,8 @@
-#!/usr/bin/perl -w
 
 use strict;
 use warnings;
 
-use RT::Test nodata => 1, tests => 37;
+use RT::Test nodata => 1, tests => 47;
 use RT::Ticket;
 use RT::CustomField;
 
@@ -158,3 +157,30 @@ diag "check that owner can see and edit CF";
     $m->content_contains($cf_name, "changed cf");
 }
 
+note 'make sure CF is not reset to no value';
+{
+    my $t = RT::Test->create_ticket(
+        Queue => $queue->id,
+        Subject => 'test',
+        'CustomField-'.$cf->id => '2012-02-12',
+        Cc => $tester->id,
+        Owner => $tester->id,
+    );
+    ok $t && $t->id, 'created ticket';
+    is $t->FirstCustomFieldValue($cf_name), '2012-02-12';
+
+    $m->goto_ticket($t->id);
+    $m->follow_link_ok({id => 'page-basics'});
+    my $form = $m->form_name('TicketModify');
+    my $input = $form->find_input(
+        'Object-RT::Ticket-'. $t->id .'-CustomField-'. $cf->id .'-Value'
+    );
+    ok $input, 'found input';
+    $m->click('SubmitTicket');
+
+    my $tid = $t->id;
+    $t = RT::Ticket->new( $RT::SystemUser );
+    $t->Load( $tid );
+    is $t->FirstCustomFieldValue($cf_name), '2012-02-12';
+}
+