1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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 => 'Move up', n => 2} );
$m->follow_link_ok( {text => 'Move up', n => 1} );
$m->follow_link_ok( {text => 'Move up', n => 2} );
@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']);
}
|
