[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 15:38:07 EDT 2005
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv23062/t

Modified Files:
	Client-Central.t 
Log Message:
can't get out of checking the inheritence in order ISA, HAS, HASA, otherwise it will fail in some cases. Order of addition of relationships is now ISA HASA HAS

moby-live/Perl/t Client-Central.t,1.32,1.33
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -r1.32 -r1.33
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/23 19:07:30	1.32
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2005/08/23 19:38:07	1.33
@@ -96,7 +96,7 @@
 
 
 # Test  Should end up with identical articleName at same level and therefore fail (by double identical HASAs)
-$r = $C->registerObjectClass(objectType => "Rubbish2",
+$r = $C->registerObjectClass(objectType => "Rubbish3",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
                 authURI => "test.suite.com",
@@ -111,7 +111,7 @@
  or diag("Object registration should have failed with identical articleName at same XML level by identical hasas, but didn't: ".$r->message));
 
 # Test  Should end up with identical articleName at same level and therefore fail (by double non-identical HASAs)
-$r = $C->registerObjectClass(objectType => "Rubbish2",
+$r = $C->registerObjectClass(objectType => "Rubbish4",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
                 authURI => "test.suite.com",
@@ -127,7 +127,7 @@
 
 
 # Test  Should end up with identical articleName at same level and therefore fail (by double non-identical HASs)
-$r = $C->registerObjectClass(objectType => "Rubbish2",
+$r = $C->registerObjectClass(objectType => "Rubbish5",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
                 authURI => "test.suite.com",
@@ -142,7 +142,7 @@
  or diag("Object registration should have failed with identical articleName at same XML level by identical hass, but didn't: ".$r->message));
 
 # Test  Should end up with identical articleName at same level and therefore fail (by identical HAS/HASA)
-$r = $C->registerObjectClass(objectType => "Rubbish2",
+$r = $C->registerObjectClass(objectType => "Rubbish6",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
                 authURI => "test.suite.com",