diff options
author | ivan <ivan> | 2009-12-31 13:16:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-12-31 13:16:41 +0000 |
commit | b4b0c7e72d7eaee2fbfc7022022c9698323203dd (patch) | |
tree | ba4cd21399e412c32fe3737eaa8478e3271509f9 /rt/t/api/uri-t.t | |
parent | 2dfda73eeb3eae2d4f894099754794ef07d060dd (diff) |
import rt 3.8.7
Diffstat (limited to 'rt/t/api/uri-t.t')
-rw-r--r-- | rt/t/api/uri-t.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/rt/t/api/uri-t.t b/rt/t/api/uri-t.t new file mode 100644 index 000000000..4695629bb --- /dev/null +++ b/rt/t/api/uri-t.t @@ -0,0 +1,21 @@ +use strict; +use warnings; +use RT; +use RT::Test tests => 6; + +my $t1 = RT::Ticket->new($RT::SystemUser); +my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', ); +ok ($id, $msg); + +use_ok("RT::URI::t"); +my $uri = RT::URI::t->new($RT::SystemUser); +ok(ref($uri), "URI object exists"); + +my $uristr = "t:1"; +$uri->ParseURI($uristr); +is(ref($uri->Object), "RT::Ticket", "Object loaded is a ticket"); +is($uri->Object->Id, 1, "Object loaded has correct ID"); +is($uri->URI, 'fsck.com-rt://'.RT->Config->Get('Organization').'/ticket/1', + "URI object has correct URI string"); + +1; |