[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Client-Central.t 
Log Message:
adding test for underscores in service names

moby-live/Perl/t Client-Central.t,1.37,1.38
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/30 15:11:16	1.37
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/31 22:09:20	1.38
@@ -183,6 +183,12 @@
 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) ;
 
+# Service name can include an underscore
+$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) ;
+
 
 $RegSmpl{serviceName} = "myfirstservice"; # Fix serviceName
 $RegSmpl{secondary} = { parametername1 => { datatype => 'INTEGER',# Break parameter datatype