[Rt-commit] r8890 - rtfm/branches/2.1-TESTING/lib/RT/URI

[ruz at bestpractical.com]

Author: ruz
Date: Tue Sep  4 10:58:29 2007
New Revision: 8890

Modified:
   rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm

Log:
* delete inline tests

Modified: rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm
==============================================================================
--- rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm	(original)
+++ rtfm/branches/2.1-TESTING/lib/RT/URI/a.pm	Tue Sep  4 10:58:29 2007
@@ -35,29 +35,6 @@
 
 When handed an a: URI, figures out if it is an RTFM article.
 
-=begin testing
-
-use_ok("RT::URI::a");
-my $uri = RT::URI::a->new($RT::SystemUser);
-ok(ref($uri), "URI object exists");
-
-my $class = RT::FM::Class->new($RT::SystemUser);
-$class->Create(Name => 'URItest');
-my $article = RT::FM::Article->new($RT::SystemUser);
-$article->Create(Name => 'Testing URI parsing',
-		 Summary => 'In which this should load',
-		 Class => $class->Id);
-
-
-my $uristr = "a:" . $article->Id;
-$uri->ParseURI($uristr);
-is(ref($uri->Object), "RT::FM::Article", "Object loaded is an article");
-is($uri->Object->Id, $article->Id, "Object loaded has correct ID");
-is($uri->URI, 'fsck.com-rtfm://example.com/article/'.$article->Id, 
-   "URI object has correct URI string");
-
-=end testing
-
 =cut
 
 sub ParseURI {