diff options
Diffstat (limited to 'rt/t/customfields/sort_order.t')
-rw-r--r-- | rt/t/customfields/sort_order.t | 92 |
1 files changed, 0 insertions, 92 deletions
diff --git a/rt/t/customfields/sort_order.t b/rt/t/customfields/sort_order.t deleted file mode 100644 index c5c808ceb..000000000 --- a/rt/t/customfields/sort_order.t +++ /dev/null @@ -1,92 +0,0 @@ -#!/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']); -} - |