3 use RT::Test tests => 25;
5 my ($baseurl, $m) = RT::Test->started_ok;
7 RT::Test->create_tickets(
11 { Subject => 'tres' },
14 ok($m->login, 'logged in');
16 sorted_tickets_ok('Subject', ['2: dos', '3: tres', '1: uno']);
17 sorted_tickets_ok('+Subject', ['2: dos', '3: tres', '1: uno']);
18 sorted_tickets_ok('-Subject', ['1: uno', '3: tres', '2: dos']);
20 sorted_tickets_ok('id', ['1: uno', '2: dos', '3: tres']);
21 sorted_tickets_ok('+id', ['1: uno', '2: dos', '3: tres']);
22 sorted_tickets_ok('-id', ['3: tres', '2: dos', '1: uno']);
26 sub sorted_tickets_ok {
27 local $Test::Builder::Level = $Test::Builder::Level + 1;
33 my $uri = URI->new("$baseurl/REST/1.0/search/ticket");
40 my @lines = split /\n/, $m->content;
41 shift @lines; # header
42 shift @lines; # empty line
44 is_deeply(\@lines, $expected, "sorted results by '$order'");