[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Fri Jul 29 16:00:18 UTC 2005


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

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

moby-live/Perl/t Client-Central.t,1.17,1.18
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 15:55:17	1.17
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/07/29 16:00:18	1.18
@@ -369,10 +369,10 @@
 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}};
-$hasa = shift@{$rel{HASA}};
+isa_ok($rel{'urn:lsid:biomoby.org:objectrelation:isa'}, "ARRAY", "Object reporting correct ISA as arrayref") or diag("Object definition did not report ISA arrayref");
+isa_ok($rel{'urn:lsid:biomoby.org:objectrelation:hasa'}, "ARRAY", "Object reporting correct HASA as arrayref") or diag("Object definition did not report HASA arrayref");
+$isa = shift@{$rel{'urn:lsid:biomoby.org:objectrelation:isa'}};
+$hasa = shift@{$rel{'urn:lsid:biomoby.org:objectrelation:hasa'}};
 isa_ok($isa, "ARRAY","") or diag("Object didn't return an array of arrays for its ISA relationships");
 isa_ok($hasa, "ARRAY","") or diag("Object didn't return an array of arrays for its HASA relationships");
 is(${$isa}[0], 'Object') or diag("ISA reporting wrong object type");




More information about the MOBY-guts mailing list