[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Aug 19 11:35:33 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/t
In directory dev.open-bio.org:/tmp/cvs-serv5503/t

Modified Files:
	Client-Central.t 
Log Message:
added a test for datatype registration with a '%' in the name
moby-live/Perl/MOBY-Server/t Client-Central.t,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/t/Client-Central.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/t/Client-Central.t	2009/04/08 16:16:48	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/t/Client-Central.t	2009/08/19 15:35:33	1.5
@@ -278,6 +278,35 @@
 
 # confirm that we cannot register a datatype with odd characters in its name
 $r = $C->registerObjectClass(
+        (
+           objectType    => "Rubbish_\%Art",
+           description   => "a human-readable description of the object",
+           contactEmail  => 'your at email.address',
+           authURI       => "test.suite.com",
+           Relationships => {
+                                                  ISA => [
+                                                                   {
+                                                                         object      => 'Object',
+                                                                         articleName => 'article1'
+                                                                   }
+                                                  ],
+                                                  HASA => [
+                                                                        {
+                                                                          object      => 'Object',
+                                                                          articleName => 'articleName3'
+                                                                        },
+                                                  ]
+           }
+        )
+);
+ok( !$r->success, "Object registration correctly failed" )
+  or diag(
+        "Shouldn't be possible to register Object with an invalid character in its name!"
+          . $r->message );
+$r = $C->deregisterObjectClass( objectType => "Rubbish_\%Art" );
+
+# confirm that we cannot register a datatype with odd characters in its name
+$r = $C->registerObjectClass(
 	(
 	   objectType    => "Rubbish_/Art",
 	   description   => "a human-readable description of the object",