[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Nov 20 11:05:05 EST 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv5966/t

Modified Files:
	Client-Central.t Client-Service.t 
Log Message:
added lsid retrieval test for getServiceNames to teh test harness, also trying to figure out why client::service is failing tests

moby-live/Perl/t Client-Central.t,1.42,1.43 Client-Service.t,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/09/16 16:36:39	1.42
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/11/20 16:05:05	1.43
@@ -475,6 +475,13 @@
 ok(grep(/mysecondservice/, @serviceNames), "'mysecondservice' not found")
   or diag("retrieveServiceNames didn't return mysecondservice");
 
+$r = $C->retrieveServiceNames(as_lsid=>1);
+isa_ok($r, "HASH", "Service Names Hash") or diag("retrieveServiceNames as lsid didn't return a hashref") ;
+isa_ok($r->{$RegSmpl{authURI}}, 'ARRAY') or diag("retrieveServiceNames as lsid didn't return a hasref of arrayrefs");
+my @serviceNamesLSID = @{$r->{$RegSmpl{authURI}}};
+ok(grep(/urn\:lsid/, @serviceNamesLSID), "'myfirstservice' lsid not found")
+  or diag("retrieveServiceNames as LSID didn't return LSIDs");
+
 
 $r = $C->deregisterService( serviceName  => $RegSmpl{serviceName},
 			    authURI      => $RegSmpl{authURI} );

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Service.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/09/16 16:38:47	1.5
+++ /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/11/20 16:05:05	1.6
@@ -37,7 +37,9 @@
 my ($s, $r) = $C->findService( authURI => 'www.illuminae.com',
 			       name => 'getDragonLocusAlleles' );
 ok($s) or diag("Couldn't retrieve service details from MOBY Central");
+ok($$s[0]) or diag("no service instance found for getDragonLocusAlleles");
 my $wsdl = $C->retrieveService($$s[0]);
+ok($wsdl =~ /WSDL/) or diag("retrieveService didn't return a WSDL file");
 $service = MOBY::Client::Service->new (service => $wsdl);
 isa_ok($service, "MOBY::Client::Service")
   or diag("Expected new to return MOBY::Client::Service");