[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Feb  5 16:17:47 EST 2007
Update of /home/repository/moby/moby-live/Perl/t
In directory dev.open-bio.org:/tmp/cvs-serv15511/t

Modified Files:
	Client-Central.t 
Log Message:
test suite didn't always clean up after itself
moby-live/Perl/t Client-Central.t,1.55,1.56
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2006/11/06 22:47:45	1.55
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2007/02/05 21:17:47	1.56
@@ -54,8 +54,7 @@
 
   # Also can't use %Obj, 
   my $C = MOBY::Client::Central->new();
-  my $r = $C->deregisterObjectClass( objectType => "Rubbish" );
-  $r = $C->deregisterService( serviceName  => 'myfirstservice',
+  my $r = $C->deregisterService( serviceName  => 'myfirstservice',
 			      authURI      => 'test.suite.com' );
   $r = $C->deregisterService( serviceName  => '1myfirstservice',
 			      authURI      => 'test.suite.com' );
@@ -65,6 +64,11 @@
 			      authURI      => 'test.suite.com' );
   $r = $C->deregisterService( serviceName  => 'mysecondservice',
 			      authURI      => 'test.suite.com' );
+  $r = $C->deregisterService( serviceName  => 'mySecondaryTestservice',
+                            authURI      => 'test.suite.com' );
+  $r = $C->deregisterService( serviceName  => 'myfirstservicemultiplesimples',
+                            authURI      => 'test.suite.com' );
+  $r = $C->deregisterObjectClass( objectType => "Rubbish" );
   $r = $C->deregisterNamespace( namespaceType => 'RubbishNamespace' );
   $r = $C->deregisterServiceType( serviceType => 'RubbishyService' );
 };