[MOBY-guts] biomoby commit

[Frank Gibbons]

fgibbons
Fri Sep 16 12:38:47 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv23747/t

Modified Files:
	Client-Service.t 
Log Message:
 - Update to reflect new API.

moby-live/Perl/t Client-Service.t,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Service.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/09/02 14:29:30	1.4
+++ /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/09/16 16:38:47	1.5
@@ -26,16 +26,12 @@
 };
 
 
-my @autoload = qw/serviceName/;
+my @autoload = qw/serviceName service uri smessageVersion _soapService/;
 my @API = (@autoload, qw/new execute/);
 my $service = MOBY::Client::Service->new();
 is($service, undef)
   or diag("Created a new service without supplying any WSDL - it ain't right, I tell you!"); # Can't do nothing without WSDL
 
-foreach (@autoload) { eval{$service->$_()}; } # Call all autoloads, to create them.
-can_ok("MOBY::Client::Service", @API) 
-  or diag("MOBY::Client::Service doesn't implement full API.");
-
 # Find a service at MOBY Central, try to create a local instance.
 my $C = MOBY::Client::Central->new();
 my ($s, $r) = $C->findService( authURI => 'www.illuminae.com',
@@ -46,6 +42,10 @@
 isa_ok($service, "MOBY::Client::Service")
   or diag("Expected new to return MOBY::Client::Service");
 
+foreach (@autoload) { eval{$service->$_()}; } # Call all autoloads, to create them.
+can_ok("MOBY::Client::Service", @API) 
+  or diag("MOBY::Client::Service doesn't implement full API.");
+
 # Empty WSDL should cause 'undef' to be returned, rather than empty Service object.
 my $emptyWSDL = "";
 is(MOBY::Client::Service->new ( service => $emptyWSDL), undef)