[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Client-Central.t 
Log Message:
forgot to save my changes before committing :-)

moby-live/Perl/t Client-Central.t,1.38,1.39
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/31 22:09:20	1.38
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/31 22:11:26	1.39
@@ -184,10 +184,10 @@
   or diag("Service registration shuld have failed with invalid character in serviceName: " . $r->message) ;
 
 # Service name can include an underscore
-$RegSmpl{serviceName} = "myf]irstservice";
+$RegSmpl{serviceName} = "myf_irstservice";
 $r = $C->registerService(%RegSmpl);
-ok(!$r->success, "Service registration correctly failed with ']' as character in serviceName")
-  or diag("Service registration shuld have failed with invalid character in serviceName: " . $r->message) ;
+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) ;
 
 
 $RegSmpl{serviceName} = "myfirstservice"; # Fix serviceName