[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 13:40:58 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv10978/t

Modified Files:
	Client-Central.t 
Log Message:
cleaning comments out of the test suite.  Now have 122 tests and all pass on the new codebase

moby-live/Perl/t Client-Central.t,1.24,1.25
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 17:28:26	1.24
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 17:40:58	1.25
@@ -127,7 +127,7 @@
 $r = $C->Relationships(serviceType => "RubbishyService");
 isa_ok($r, "HASH", "Relationship types hash") or diag("Relationships didn't return a hashref for service types") ;
 %rel= %{$r};
-print STDERR "\n\n\nkeys ",(keys %rel),"\n\n\n";
+#print STDERR "\n\n\nkeys ",(keys %rel),"\n\n\n";
 isa_ok($rel{'urn:lsid:biomoby.org:servicerelation:isa'}, "ARRAY") or diag("Relationships didn't return a hash of arrayrefs for servies");
 is(shift(@{$rel{'urn:lsid:biomoby.org:servicerelation:isa'}}), "Retrieval") or diag("Relationships arrayref didn't return the right parentage for service types.");