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