[Rt-commit] rt branch, 4.0/context-on-custom-fields, updated. rt-4.0.4-45-g2b3265a

[Ruslan Zakirov]

The branch, 4.0/context-on-custom-fields has been updated
       via  2b3265a91a4e5e8cdf724ea218ea30fa501f73b2 (commit)
      from  57a267130bae9c8d77ce6415598b69444ccbb84c (commit)

Summary of changes:
 t/customfields/date_via_queue.t |   62 +++++++++++++++++++++++++++++++++++++++
 1 files changed, 62 insertions(+), 0 deletions(-)
 create mode 100644 t/customfields/date_via_queue.t

- Log -----------------------------------------------------------------
commit 2b3265a91a4e5e8cdf724ea218ea30fa501f73b2
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Fri Feb 3 03:02:40 2012 +0400

    test CF's context via UI
    
    covers one bug report, fix and test case described in
    31ecb9d5852632d09c0a9506e0c36ff3bd04806c

diff --git a/t/customfields/date_via_queue.t b/t/customfields/date_via_queue.t
new file mode 100644
index 0000000..83148bd
--- /dev/null
+++ b/t/customfields/date_via_queue.t
@@ -0,0 +1,62 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use RT::Test tests => 17;
+
+my $queue = RT::Test->load_or_create_queue( Name => 'General' );
+ok($queue && $queue->id, "loaded or created queue");
+
+diag "create a CF";
+my $cf_name = "Test";
+my $cf;
+{
+    $cf = RT::CustomField->new( RT->SystemUser );
+    my ($ret, $msg) = $cf->Create(
+        Name  => $cf_name,
+        Queue => $queue->id,
+        Type  => 'DateSingle',
+    );
+    ok($ret, "Custom Field Order created");
+}
+
+my $tester = RT::Test->load_or_create_user(
+    Name => 'tester', Password => 'password',
+);
+ok $tester && $tester->id, 'loaded or created user';
+
+ok( RT::Test->set_rights(
+    { Principal => $tester, Right => [qw(SeeQueue ShowTicket CreateTicket ReplyToTicket)] },
+    { Principal => $tester, Object => $queue, Right => [qw(SeeCustomField ModifyCustomField)] },
+), 'set rights');
+
+
+my ( $url, $m ) = RT::Test->started_ok;
+ok( $m->login(tester => 'password'), 'logged in' );
+
+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',
+    );
+    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 .'-Values'
+    );
+    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';
+}
+

-----------------------------------------------------------------------