[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Jan 28 09:37:02 EST 2009
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv15987/Perl/MOBY-Server/lib/MOBY/Client

Modified Files:
	ServiceInstance.pm 
Log Message:
updated unit tests to reflect that there can be 0 or more of them per service instance.
moby-live/Perl/MOBY-Server/lib/MOBY/Client ServiceInstance.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm	2008/11/20 17:01:05	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm	2009/01/28 14:37:02	1.4
@@ -249,7 +249,7 @@
 		URL           => [ undef,          'read/write' ],
 		contactEmail  => [ undef,          'read/write' ],
 		LSID		  => [ undef, 		   'read/write'],
-		unitTest      => [ undef, 		   'read/write'], # a reference to a MobyUnitTest object
+		unitTests      => [ undef, 		   'read/write'], # listref to a MobyUnitTest objects
 	  );
 
 	#_____________________________________________________________
@@ -291,7 +291,7 @@
 	$self->input(     [] ) unless $self->input;
 	$self->output(    [] ) unless $self->output;
 	$self->secondary( [] ) unless $self->secondary;
-	$self->unitTest( new MOBY::Client::MobyUnitTest ) unless $self->unitTest;
+	$self->unitTests ( [] ) unless $self->unitTests;
 	return $self;
 }