rt/t/api/uri-fsck_com_rt.t

   1 use strict;
   2 use warnings;
   3 use RT;
   4 use RT::Test tests => 8;
   5
   6 use_ok("RT::URI::fsck_com_rt");
   7 my $uri = RT::URI::fsck_com_rt->new(RT->SystemUser);
   8
   9 my $t1 = RT::Ticket->new(RT->SystemUser);
  10 my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', );
  11 ok ($id, $msg);
  12
  13 ok(ref($uri));
  14
  15 ok (UNIVERSAL::isa($uri,"RT::URI::fsck_com_rt"), "It's an RT::URI::fsck_com_rt");
  16
  17 ok ($uri->isa('RT::URI::base'), "It's an RT::URI::base");
  18 ok ($uri->isa('RT::Base'), "It's an RT::Base");
  19
  20 is ($uri->LocalURIPrefix , 'fsck.com-rt://'.RT->Config->Get('Organization'));
  21
  22
  23 my $ticket = RT::Ticket->new(RT->SystemUser);
  24 $ticket->Load(1);
  25 $uri = RT::URI::fsck_com_rt->new($ticket->CurrentUser);
  26 is($uri->LocalURIPrefix. "/ticket/1" , $uri->URIForObject($ticket));
  27