[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 31 18:31:55 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv1775/t

Modified Files:
	Client-Central.t 
Log Message:
garbage collection on test suite

moby-live/Perl/t Client-Central.t,1.39,1.40
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/31 22:11:26	1.39
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/31 22:31:55	1.40
@@ -37,6 +37,8 @@
 			      authURI      => 'test.suite.com' );
   $r = $C->deregisterService( serviceName  => 'my]firstservice',
 			      authURI      => 'test.suite.com' );
+  $r = $C->deregisterService( serviceName  => 'myf_irstservice',
+			      authURI      => 'test.suite.com' );
   $r = $C->deregisterService( serviceName  => 'mysecondservice',
 			      authURI      => 'test.suite.com' );
   $r = $C->deregisterNamespace( namespaceType => 'RubbishNamespace' );
@@ -187,7 +189,10 @@
 $RegSmpl{serviceName} = "myf_irstservice";
 $r = $C->registerService(%RegSmpl);
 ok($r->success, "Service registration correctly succeeded with a '_' as character in serviceName")
-  or diag("Service registration failed on an underscore in the service name (underscore is valid)" . $r->message) ;
+or diag("Service registration failed on an underscore in the service name (underscore is valid)" . $r->message) ;
+# now get rid of it
+$r = $C->deregisterService( serviceName  => 'myf_irstservice',
+			    authURI      => 'test.suite.com' );
 
 
 $RegSmpl{serviceName} = "myfirstservice"; # Fix serviceName