[MOBY-guts] biomoby commit

[Frank Gibbons]

fgibbons
Tue Sep  6 16:43:22 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv4306/t

Modified Files:
	Client-OntologyServer.t 
Log Message:
 - Augment a little, and move tests on relationshipExists() to TODO, since it doesn't appear to work.

moby-live/Perl/t Client-OntologyServer.t,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t	2005/09/01 16:09:39	1.2
+++ /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t	2005/09/06 20:43:21	1.3
@@ -43,32 +43,40 @@
 # and check them all here? Ditto for Objects, Service-types
 #
 my ($success, $msg, $existingURI);
-my @check_ns = qw/SGD NCBI_gi/;
+my @check_ns = qw/SGD NCBI_gi GO FB PMID/; # These seem pretty solid
 foreach (@check_ns) {
  ($success, $msg, $existingURI) = $os->namespaceExists( term => $_);
   is($success, 1)
     or diag("Namespace '$_' reported erroneously as non-existent.");
 }
 
-my @check_obj = qw/ Object String Integer Float/;
+# Could get these allowed datatypes from MOBY::Config,
+# except that module only works when you've got a local registry set up.
+my @check_obj = qw/ Object String Integer Float DateTime/; # At least we can be confident that primitive types will always be valid
 foreach (@check_obj) {
   ($success, $msg, $existingURI) = $os->objectExists(term => $_);
   is($success, 1)
     or diag("Object '$_' reported erroneously as non-existent.");
 }
 
-my @check_servicetype = qw/Retrieval/;
+my @check_servicetype = qw/Alignment Analysis Conversion Edit
+NCBI_Blast Parsing SetIntersection SetOperation SetUnion 
+Retrieval Registration Resolution
+StructuralPrediction/; # Service types don't change much, but who knows....
 foreach (@check_servicetype) {
   ($success, $msg, $existingURI) = $os->serviceExists(term => $_);
   is($success, 1)
     or diag("Service type '$_' reported erroneously as non-existent.");
 }
 
-my @check_rel = qw/ISA HASA HAS/;
-foreach (@check_rel) {
-  ($success, $msg, $existingURI) = $os->relationshipExists(term => $_);
-  is($success, 1)
-    or diag("Relationship '$_' reported erroneously as non-existent.");
+TODO: {
+  local $TODO = "Fix whatever is broken with these relationship types - or else fix this test.";
+  my @check_rel = qw/ISA HASA HAS/; # There should only be very few valid relationship types.
+  foreach (@check_rel) {
+    ($success, $msg, $existingURI) = $os->relationshipExists(term => $_);
+    is($success, 1)
+      or diag("Relationship '$_' reported erroneously as non-existent.");
+  }
 }