[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan  8 14:05:58 EST 2004
Update of /home/repository/moby/moby-live/Perl/t
In directory pub.open-bio.org:/tmp/cvs-serv23953/t

Modified Files:
	Client-Central.t 
Log Message:
fixing errors in test suite prior to release

moby-live/Perl/t Client-Central.t,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/t/Client-Central.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/t/Client-Central.t	2003/11/12 17:31:42	1.2
+++ /home/repository/moby/moby-live/Perl/t/Client-Central.t	2004/01/08 19:05:58	1.3
@@ -27,7 +27,7 @@
 $r = $C->registerObjectClass(objectType => "TotalCrap",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
-                authURI => "URI of the registrar of this object",
+                authURI => "test.suite.com",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1'],
@@ -48,7 +48,7 @@
 $r = $C->registerObjectClass(objectType => "TotalCrap",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
-                authURI => "URI of the registrar of this object",
+                authURI => "test.suite.com",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1'],
@@ -74,7 +74,7 @@
 $r = $C->registerServiceType(serviceType => "CrappyService",
                 description => "a human-readable description of the service",
 				contactEmail => 'your at email.address',
-                authURI => "URI of the registrar of this object",
+                authURI => "test.suite.com",
 			    Relationships => {
 					ISA => ['Retrieval']}
                        );
@@ -85,7 +85,7 @@
 $r = $C->registerService(
     serviceName  => "myfirstservice",  
     serviceType  => "Retrieval",  
-    authURI      => "www.illuminae.com",      
+    authURI      => "test.suite.com",      
     contactEmail => 'your at mail.address',      
     description => "this is my first service", 
     category  =>  "moby",
@@ -112,7 +112,7 @@
 
 $r = $C->deregisterService(
     serviceName  => "myfirstservice",  
-    authURI      => "www.illuminae.com",      
+    authURI      => "test.suite.com",      
     );
 ( ok($r->success,"Service deregistration successful")
 ) or diag("Service deregistration failure: ".$r->message) ;