[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jan 24 17:56:55 EST 2007
Update of /home/repository/moby/moby-live/Perl/t
In directory dev.open-bio.org:/tmp/cvs-serv29279/t

Modified Files:
	Client-Service.t 
Log Message:
silencing error on runnign test suite
moby-live/Perl/t Client-Service.t,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Service.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/11/22 20:05:00	1.8
+++ /home/repository/moby/moby-live/Perl/t/Client-Service.t	2007/01/24 22:56:55	1.9
@@ -62,7 +62,7 @@
 my ($s, $err) = $C->findService( authURI => 'test.suite.com',
 			       name => 'myfirstservice' );
 ok($s) or diag("Couldn't retrieve service details from MOBY Central");
-ok($$s[0]) or diag("no service instance found for getDragonLocusAlleles");
+ok($$s[0]) or diag("Just registered service, but not found on findService");
 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);
@@ -76,6 +76,6 @@
 # Empty WSDL should cause 'undef' to be returned, rather than empty Service object.
 my $emptyWSDL = "";
 is(MOBY::Client::Service->new ( service => $emptyWSDL), undef)
-  or diag("Expected new to return MOBY::Client::Service");
+  or diag("Expected new to return undef when passed empty WSDL file");