[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 12:12:02 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv9682/t

Modified Files:
	Client-Central.t 
Log Message:
more tests

moby-live/Perl/t Client-Central.t,1.19,1.20
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 16:01:34	1.19
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 16:12:02	1.20
@@ -335,6 +335,18 @@
 is($ns, 'RubbishNamespace') or diag("simple output reporting wrong namespace (collections test)");
 
 
+
+#$names{$AuthURI} = [serviceName_1, serviceName_2, serviceName3...]
+$r = $C->retrieveServiceNames();
+isa_ok($r, "HASH", "Service Names Hash") or diag("retrieveServiceNames didn't return a hashref") ;
+%sn = %{$r};
+isa_ok($sn{'test.suite.com'}, "ARRAY") or diag("retrieveServiceNames didn't return a hasref of arrayrefs");
+$s1 = shift@{$sn{'test.suite.com'}};
+$s2 = shift@{$sn{'test.suite.com'}};
+ok((($s1 =~ /myfirstservice/) || ($s1 =~ /mysecondservice/))) or diag("retrieveServiceNames didn't return myfirstservice");
+ok((($s2 =~ /myfirstservice/) || ($s2 =~ /mysecondservice/))) or diag("retrieveServiceNames didn't return mysecondservice");
+
+
 $r = $C->deregisterService(
     serviceName  => "myfirstservice",  
     authURI      => "test.suite.com",      
@@ -382,6 +394,13 @@
 is($r->{objectLSID}, "urn:lsid:biomoby.org:objectclass:Rubbish") or diag("Object class LSID reported incorrectly");
 
 
+$r = $C->retrieveNamespaces();
+isa_ok($r, "HASH", "Namespace hash") or diag("retrieveNamespaces didn't return a hashref") ;
+%ns = %{$r};
+is($ns{RubbishNamespace}, "human readable description of the namespace") or diag("namespace definition not returned correctly");
+
+
+
 $r = $C->deregisterObjectClass(objectType => "Rubbish");
 ( ok($r->success,"Object deregistration successful")
 ) or diag("Object deregistration failure: ".$r->message) ;