[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Sep 26 20:06:25 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv19782/t

Modified Files:
	Client-OntologyServer.t 
Log Message:
fixing ontology server relationshipExists test

moby-live/Perl/t Client-OntologyServer.t,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t	2005/09/16 16:38:15	1.4
+++ /home/repository/moby/moby-live/Perl/t/Client-OntologyServer.t	2005/09/27 00:06:24	1.5
@@ -88,13 +88,22 @@
     or diag("OntologyServer should be able to tell whether a relationship exists");
   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 => $_);
+    ($success, $msg, $existingURI) = $os->relationshipExists(term => $_, ontology => 'object');
+    is($success, 1)
+      or diag("Relationship '$_' reported erroneously as non-existent.");
+  }
+  my @check_rel2 = qw/ISA/; # There should only be very few valid relationship types.
+  foreach (@check_rel2) {
+    ($success, $msg, $existingURI) = $os->relationshipExists(term => $_, ontology => 'service');
     is($success, 1)
       or diag("Relationship '$_' reported erroneously as non-existent.");
   }
   
   my $invalid_rel = "HA";
-  ($success, $msg, $existingURI) = $os->relationshipExists(term => $invalid_rel);
+  ($success, $msg, $existingURI) = $os->relationshipExists(term => $invalid_rel, ontology => 'service');
+  is($success, 0)
+    or diag("Relationship '$invalid_rel' reported erroneously as existent.");
+  ($success, $msg, $existingURI) = $os->relationshipExists(term => $invalid_rel, ontology => 'object');
   is($success, 0)
     or diag("Relationship '$invalid_rel' reported erroneously as existent.");
 }