rt/t/web/rest-sort.t

   1 use strict;
   2 use warnings;
   3 use RT::Test tests => 25;
   4
   5 my ($baseurl, $m) = RT::Test->started_ok;
   6
   7 RT::Test->create_tickets(
   8     { },
   9     { Subject => 'uno'  },
  10     { Subject => 'dos'  },
  11     { Subject => 'tres' },
  12 );
  13
  14 ok($m->login, 'logged in');
  15
  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']);
  19
  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']);
  23
  24 undef $m;
  25
  26 sub sorted_tickets_ok {
  27     local $Test::Builder::Level = $Test::Builder::Level + 1;
  28     my $order    = shift;
  29     my $expected = shift;
  30
  31     my $query = 'id > 0';
  32
  33     my $uri = URI->new("$baseurl/REST/1.0/search/ticket");
  34     $uri->query_form(
  35         query   => $query,
  36         orderby => $order,
  37     );
  38     $m->get_ok($uri);
  39
  40     my @lines = split /\n/, $m->content;
  41     shift @lines; # header
  42     shift @lines; # empty line
  43
  44     is_deeply(\@lines, $expected, "sorted results by '$order'");
  45 }