rt/t/api/uri-t.t

   1 use strict;
   2 use warnings;
   3 use RT;
   4 use RT::Test tests => 6;
   5
   6 my $t1 = RT::Ticket->new(RT->SystemUser);
   7 my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', );
   8 ok ($id, $msg);
   9
  10 use_ok("RT::URI::t");
  11 my $uri = RT::URI::t->new(RT->SystemUser);
  12 ok(ref($uri), "URI object exists");
  13
  14 my $uristr = "t:1";
  15 $uri->ParseURI($uristr);
  16 is(ref($uri->Object), "RT::Ticket", "Object loaded is a ticket");
  17 is($uri->Object->Id, 1, "Object loaded has correct ID");
  18 is($uri->URI, 'fsck.com-rt://'.RT->Config->Get('Organization').'/ticket/1',
  19    "URI object has correct URI string");
  20