[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 12:01:34 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv9597/t

Modified Files:
	Client-Central.t 
Log Message:
more tests

moby-live/Perl/t Client-Central.t,1.18,1.19
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 16:00:18	1.18
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 16:01:34	1.19
@@ -379,17 +379,8 @@
 is(${$isa}[1], 'article1') or diag("ISA reporting wrong object type");
 is(${$hasa}[0], 'Object') or diag("ISA reporting wrong object type");
 is(${$hasa}[1], 'articleName3') or diag("ISA reporting wrong object type");
+is($r->{objectLSID}, "urn:lsid:biomoby.org:objectclass:Rubbish") or diag("Object class LSID reported incorrectly");
 
-#objectType => "Rubbish",
-#                description => "a human-readable description of the object",
-#				contactEmail => 'your at email.address',
-#                authURI => "test.suite.com",
-#			    Relationships => {
-#					ISA => [
-#						['Object', 'article1']],
-#					HASA => [
-#						['Object', 'articleName3']]}
-#                       );
 
 $r = $C->deregisterObjectClass(objectType => "Rubbish");
 ( ok($r->success,"Object deregistration successful")