[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Nov 20 12:01:06 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv13021/Perl/MOBY-Server/lib/MOBY/Client

Modified Files:
	ServiceInstance.pm 
Log Message:
added method to get/set unit test info
moby-live/Perl/MOBY-Server/lib/MOBY/Client ServiceInstance.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm	2008/09/02 13:11:40	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/ServiceInstance.pm	2008/11/20 17:01:05	1.3
@@ -2,6 +2,7 @@
 use strict;
 use Carp;
 use vars qw($AUTOLOAD @ISA);
+use MOBY::Client::MobyUnitTest;
 
 use vars qw /$VERSION/;
 $VERSION = sprintf "%d.%02d", q$Revision$ =~ /: (\d+)\.(\d+)/;
@@ -216,6 +217,15 @@
 
 =cut
 
+=head2 unitTest
+
+ Title     :	unitTest
+ Usage     :	$test = $Service->unitTest()
+ Function  :	get/set the MobyUnitTest for this service
+ Returns   :	a MOBY::Client::MobyUnitTest object for this service 
+
+=cut
+
 {
 
 	# Encapsulated:
@@ -224,23 +234,22 @@
 	#ATTRIBUTES
 	my %_attr_data =    #     				DEFAULT    	ACCESSIBILITY
 	  (
-		authority => [ undef, 'read/write' ],
-		signatureURL => [ undef, 'read/write' ],
-		name      => [ undef, 'read/write' ],
-		type      => [ undef, 'read/write' ],
-		input     => [ undef, 'read/write' ]
-		,               # listref of Simple and Collection articles
-		output => [ undef, 'read/write' ]
-		,               # listref of Simple and Collection articles
-		secondary   => [ undef, 'read/write' ],   # listref of SecondaryArticles
-		category    => [ undef, 'read/write' ],
-		description => [ undef, 'read/write' ],
+		authority     => [ undef, 'read/write' ],
+		signatureURL  => [ undef, 'read/write' ],
+		name          => [ undef, 'read/write' ],
+		type          => [ undef, 'read/write' ],
+		input         => [ undef, 'read/write' ],               # listref of Simple and Collection articles
+		output        => [ undef, 'read/write' ],               # listref of Simple and Collection articles
+		secondary     => [ undef, 'read/write' ],   # listref of SecondaryArticles
+		category      => [ undef, 'read/write' ],
+		description   => [ undef, 'read/write' ],
 		registry      => [ 'MOBY_Central', 'read/write' ],
 		XML           => [ undef,          'read/write' ],
 		authoritative => [ undef,          'read/write' ],
 		URL           => [ undef,          'read/write' ],
 		contactEmail  => [ undef,          'read/write' ],
-		LSID		  => [ undef, 			'read/write']
+		LSID		  => [ undef, 		   'read/write'],
+		unitTest      => [ undef, 		   'read/write'], # a reference to a MobyUnitTest object
 	  );
 
 	#_____________________________________________________________
@@ -282,6 +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;
 	return $self;
 }