1 files changed, 92 insertions, 0 deletions
diff --git a/rt/t/customfields/sort_order.t b/rt/t/customfields/sort_order.t
new file mode 100644
index 0000000..c5c808c
--- /dev/null
+++ b/rt/t/customfields/sort_order.t
@@ -0,0 +1,92 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use RT::Test tests => 18;
+use RT::Ticket;
+use RT::CustomField;
+
+my $queue_name = "CFSortQueue-$$";
+my $queue = RT::Test->load_or_create_queue( Name => $queue_name );
+ok($queue && $queue->id, "$queue_name - test queue creation");
+
+diag "create multiple CFs: B, A and C" if $ENV{TEST_VERBOSE};
+my @cfs = ();
+{
+    my $cf = RT::CustomField->new( $RT::SystemUser );
+    my ($ret, $msg) = $cf->Create(
+        Name  => "CF B",
+        Queue => $queue->id,
+        Type  => 'FreeformSingle',
+    );
+    ok($ret, "Custom Field Order created");
+    push @cfs, $cf;
+}
+{
+    my $cf = RT::CustomField->new( $RT::SystemUser );
+    my ($ret, $msg) = $cf->Create(
+        Name  => "CF A",
+        Queue => $queue->id,
+        Type  => 'FreeformSingle',
+    );
+    ok($ret, "Custom Field Order created");
+    push @cfs, $cf;
+}
+{
+    my $cf = RT::CustomField->new( $RT::SystemUser );
+    my ($ret, $msg) = $cf->Create(
+        Name  => "CF C",
+        Queue => $queue->id,
+        Type  => 'FreeformSingle',
+    );
+    ok($ret, "Custom Field Order created");
+    push @cfs, $cf;
+}
+
+my ($baseurl, $m) = RT::Test->started_ok;
+ok $m->login( root => 'password' ), 'logged in';
+
+diag "reorder CFs: C, A and B" if $ENV{TEST_VERBOSE};
+{
+    $m->get( '/Admin/Queues/' );
+    $m->follow_link_ok( {text => $queue->id} );
+    $m->follow_link_ok( {text => 'Ticket Custom Fields'} );
+
+    my @tmp = ($m->content =~ /(CF [ABC])/g);
+    is_deeply(\@tmp, ['CF B', 'CF A', 'CF C']);
+
+    $m->follow_link_ok( {text => '[Up]', n => 3} );
+    $m->follow_link_ok( {text => '[Up]', n => 2} );
+    $m->follow_link_ok( {text => '[Up]', n => 3} );
+
+    @tmp = ($m->content =~ /(CF [ABC])/g);
+    is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']);
+}
+
+diag "check ticket create, display and edit pages" if $ENV{TEST_VERBOSE};
+{
+    $m->submit_form(
+        form_name => "CreateTicketInQueue",
+        fields => { Queue => $queue->Name },
+    );
+
+    my @tmp = ($m->content =~ /(CF [ABC])/g);
+    is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']);
+
+    $m->submit_form(
+        form_name => "TicketCreate",
+        fields => { Subject => 'test' },
+    );
+    my ($tid) = ($m->content =~ /Ticket (\d+) created/i);
+    ok $tid, "created a ticket succesfully";
+    
+    @tmp = ($m->content =~ /(CF [ABC])/g);
+    is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']);
+
+    $m->follow_link_ok( {text => 'Custom Fields'} );
+
+    @tmp = ($m->content =~ /(CF [ABC])/g);
+    is_deeply(\@tmp, ['CF C', 'CF A', 'CF B']);
+}
+