rt/t/web/rest-search-group.t

   1 use strict;
   2 use warnings;
   3 use RT::Test tests => undef;
   4
   5 my $group_foo = RT::Group->new($RT::SystemUser);
   6 $group_foo->CreateUserDefinedGroup( Name => 'foo' );
   7
   8 my $group_bar = RT::Group->new($RT::SystemUser);
   9 $group_bar->CreateUserDefinedGroup( Name => 'bar' );
  10
  11 my $group_baz = RT::Group->new($RT::SystemUser);
  12 $group_baz->CreateUserDefinedGroup( Name => 'baz' );
  13 $group_baz->SetDisabled(1);
  14
  15 my ( $baseurl, $m ) = RT::Test->started_ok;
  16
  17 ok( $m->login, 'logged in' );
  18
  19 search_groups_ok(
  20     { query => 'id = ' . $group_foo->id },
  21     [ $group_foo->id . ': foo' ],
  22     'search by id'
  23 );
  24
  25 search_groups_ok(
  26     {
  27         query  => 'Name = ' . $group_foo->Name,
  28         format => 's',
  29         fields => 'id,name',
  30     },
  31     [ "id\tName", $group_foo->id . "\tfoo" ],
  32     'search by name with customized fields'
  33 );
  34
  35 search_groups_ok(
  36     { query => 'foo = 3' },
  37     ['Invalid field specification: foo'],
  38     'invalid field'
  39 );
  40
  41 search_groups_ok(
  42     { query => 'id foo 3' },
  43     ['Invalid operator specification: foo'],
  44     'invalid op'
  45 );
  46
  47 search_groups_ok(
  48     { query => '', orderby => 'id' },
  49     [ $group_foo->id . ': foo', $group_bar->id . ': bar', ],
  50     'order by id'
  51 );
  52
  53 search_groups_ok(
  54     { query => '', orderby => 'name' },
  55     [ $group_bar->id . ': bar', $group_foo->id . ': foo' ],
  56     'order by name'
  57 );
  58
  59 search_groups_ok(
  60     { query => '', orderby => '+name' },
  61     [ $group_bar->id . ': bar', $group_foo->id . ': foo' ],
  62     'order by +name'
  63 );
  64
  65 search_groups_ok(
  66     { query => '', orderby => '-name' },
  67     [ $group_foo->id . ': foo', $group_bar->id . ': bar' ],
  68     'order by -name'
  69 );
  70
  71 search_groups_ok(
  72     { query => 'Disabled = 0', orderby => 'id' },
  73     [ $group_foo->id . ': foo', $group_bar->id . ': bar' ],
  74     'enabled groups'
  75 );
  76
  77 search_groups_ok(
  78     { query => 'Disabled = 1', orderby => 'id' },
  79     [ $group_baz->id . ': baz' ],
  80     'disabled groups'
  81 );
  82
  83 sub search_groups_ok {
  84     local $Test::Builder::Level = $Test::Builder::Level + 1;
  85     my $query    = shift;
  86     my $expected = shift;
  87     my $name     = shift || 'search groups';
  88
  89     my $uri = URI->new("$baseurl/REST/1.0/search/group");
  90     $uri->query_form(%$query);
  91     $m->get_ok($uri);
  92
  93     my @lines = split /\n/, $m->content;
  94     shift @lines;    # header
  95     shift @lines;    # empty line
  96
  97     is_deeply( \@lines, $expected, $name );
  98
  99 }
 100
 101 undef $m;
 102 done_testing();