[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Sep  1 16:20:13 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv7439/t

Modified Files:
	Client-Service.t 
Log Message:
updating test for ClientService

moby-live/Perl/t Client-Service.t,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Service.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/09/01 13:50:46	1.2
+++ /home/repository/moby/moby-live/Perl/t/Client-Service.t	2005/09/01 20:20:13	1.3
@@ -33,14 +33,9 @@
 
 my $opinion = <<OPINION;
 This object can't do much, but it should do what it's supposed to.
-Documentation says it should supply these three methods - the third is missing.
-Should it be called 'ServiceName', 'getServiceName', or just 'name'.
-Either way, we should pick one, and change the docs to reflect that.
-If necessary, we could provide wrappers with alternative names.
-Even if we do that, we should clearly specify which is the preferred name.
 OPINION
 
-my @API = qw/new execute ServiceName/;
+my @API = qw/new execute serviceName/;
 can_ok("MOBY::Client::Service", @API) or diag($opinion);
 
 is(MOBY::Client::Service->new(), undef)