rt/t/api/system.t

   1
   2 use strict;
   3 use warnings;
   4 use RT;
   5 use RT::Test nodata => 1, tests => 7;
   6
   7
   8 {
   9
  10 my $s = RT::System->new(RT->SystemUser);
  11 my $rights = $s->AvailableRights;
  12 ok ($rights, "Rights defined");
  13 ok ($rights->{'AdminUsers'},"AdminUsers right found");
  14 ok ($rights->{'CreateTicket'},"CreateTicket right found");
  15 ok ($rights->{'AdminGroupMembership'},"ModifyGroupMembers right found");
  16 ok (!$rights->{'CasdasdsreateTicket'},"bogus right not found");
  17
  18
  19
  20
  21 }
  22
  23 {
  24
  25 use RT::System;
  26 my $sys = RT::System->new();
  27 is( $sys->Id, 1);
  28 is ($sys->id, 1);
  29
  30
  31 }
  32