X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fapi%2Furi-t.t;fp=rt%2Ft%2Fapi%2Furi-t.t;h=4695629bbeb3359a26899753b9def097c98a5290;hb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;hp=0000000000000000000000000000000000000000;hpb=2dfda73eeb3eae2d4f894099754794ef07d060dd;p=freeside.git

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;