[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 11:11:16 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv22601/t

Modified Files:
	Client-Central.t 
Log Message:
updating test suite since Relationships now returns both the term and its LSID a per the API.  Test suite assumed it returned only the LSID.

moby-live/Perl/t Client-Central.t,1.36,1.37
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/29 19:51:35	1.36
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/30 15:11:16	1.37
@@ -126,11 +126,11 @@
 $r = $C->Relationships(objectType => $Obj{objectType});
 isa_ok($r, "HASH", "Relationship types hash") 
   or diag("Relationships didn't return a hashref for object types") ;
-isa_ok( $r->{'urn:lsid:biomoby.org:objectrelation:isa'}, 'ARRAY') 
+isa_ok( $r->{'isa'}, 'ARRAY') 
   or diag("Relationships didn't return a hash of arrayrefs");
 TODO: {
   local $TODO = "Objects don't correctly prepend LSID";
-  is(shift @{$r->{'urn:lsid:biomoby.org:objectrelation:isa'}}, "Object") 
+  is(shift @{$r->{'isa'}}, "Object") 
     or diag("Relationships(objectType) doesn't have the right parentage.");
 }
 
@@ -138,11 +138,11 @@
 isa_ok($r, "HASH", "Relationship types hash") 
   or diag("Relationships didn't return a hashref for service types") ;
 #print STDERR "\n\n\nkeys ",(keys %rel), "\n\n\n";
-isa_ok($r->{'urn:lsid:biomoby.org:servicerelation:isa'}, 'ARRAY') 
+isa_ok($r->{'isa'}, 'ARRAY') 
   or diag("Relationships didn't return a hash of arrayrefs for services");
 TODO: {
   local $TODO = "Objects don't correctly prepend LSID";
-  is(shift @{$r->{'urn:lsid:biomoby.org:servicerelation:isa'}}, 
+  is(shift @{$r->{'isa'}}, 
      $ServiceType{Relationships}->{ISA}->[0])
     or diag("Relationships (serviceType) doesn't have the right parentage.");
 }