[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 18 19:06:03 EDT 2004
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv29714/t

Modified Files:
	Client-Central.t 
Log Message:
RDF is still not quite right.  Seems to sometimes generate an extra empty input.  This might fix it.  Also updated test suite so that all tests pass with new tighter rules on ontology registrations

moby-live/Perl/t Client-Central.t,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2004/06/16 19:08:05	1.5
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2004/08/18 23:06:03	1.6
@@ -5,7 +5,7 @@
 
 # change 'tests => 1' to 'tests => last_test_to_print';
 
-use Test::More tests => 12; # perldoc Test::More for details
+use Test::More tests => 13; # perldoc Test::More for details
 
 # Test 1
 BEGIN { use_ok('MOBY::Client::Central') };
@@ -37,24 +37,37 @@
 					HASA => [
 						['Object', 'articleName3']]}
                        );
+( ok(!$r->success,"Object registration correctly failed")
+ or diag("Object registration failure: ".$r->message));
+
+# Test 4
+$r = $C->registerObjectClass(objectType => "TotalCrap",
+                description => "a human-readable description of the object",
+				contactEmail => 'your at email.address',
+                authURI => "test.suite.com",
+			    Relationships => {
+					ISA => [
+						['Object', 'article1']],
+					HASA => [
+						['Object', 'articleName3']]}
+                       );
 ( ok($r->success,"Object registration successful")
  or diag("Object registration failure: ".$r->message));
 
 
-# Test 4
+# Test 5
 $r = $C->deregisterObjectClass(objectType => "TotalCrap");
 ( ok($r->success,"Object deregistration successful"))
 or diag("Object deregistration failure: ".$r->message) ;
 
-# Test 5 (identical to #3
+# Test 6 (identical to #4
 $r = $C->registerObjectClass(objectType => "TotalCrap",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
                 authURI => "test.suite.com",
 			    Relationships => {
 					ISA => [
-						['Object', 'article1'],
-						['Object', 'articleName2']],
+						['Object', 'article1']],
 					HASA => [
 						['Object', 'articleName3']]}
                        );