[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 11:55:17 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv9458/t

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

moby-live/Perl/t Client-Central.t,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 15:54:13	1.16
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 15:55:17	1.17
@@ -363,12 +363,12 @@
 
 $r = $C->retrieveObjectDefinition(objectType => "Rubbish");
 isa_ok($r , "HASH", "Object definition returns hashref") or diag("Object definition did not return as a hashref") ;
-is($r->objectType, "Rubbish", "Object reporting correct name") or diag("Object definition did not report correct name");
-is($r->description, "a human-readable description of the object", "Object reporting correct desc") or diag("Object definition did not report correct desc");
-is($r->contactEmail, 'your at email.address', "Object reporting correct email") or diag("Object definition did not report correct email");
-is($r->authURI, "test.suite.com", "Object reporting correct auth") or diag("Object definition did not report correct auth");
-isa_ok($r->Relationships, "HASH", "Object reporting correct Relationships hash") or diag("Object definition did not report hash on relationships");
-%rel = %{$r->Relationships};
+is($r->{objectType}, "Rubbish", "Object reporting correct name") or diag("Object definition did not report correct name");
+is($r->{description}, "a human-readable description of the object", "Object reporting correct desc") or diag("Object definition did not report correct desc");
+is($r->{contactEmail}, 'your at email.address', "Object reporting correct email") or diag("Object definition did not report correct email");
+is($r->{authURI}, "test.suite.com", "Object reporting correct auth") or diag("Object definition did not report correct auth");
+isa_ok($r->{Relationships}, "HASH", "Object reporting correct Relationships hash") or diag("Object definition did not report hash on relationships");
+%rel = %{$r->{Relationships}};
 isa_ok($rel{ISA}, "ARRAY", "Object reporting correct ISA as arrayref") or diag("Object definition did not report ISA arrayref");
 isa_ok($rel{HASA}, "ARRAY", "Object reporting correct ISA as arrayref") or diag("Object definition did not report ISA arrayref");
 $isa = shift@{$rel{ISA}};