[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jan  2 15:39:23 EST 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv26289/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
Client was not passing auth nor email correctly for service type registration.  

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.12,1.13
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2003/12/02 00:23:23	1.12
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/01/02 20:39:23	1.13
@@ -34,8 +34,8 @@
 #reg first object class 
 TEST($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",
+		contactEmail => 'your at email.address',
+                authURI => "blah.blah.blah",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1'],
@@ -48,7 +48,7 @@
 TEST($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 => "blah.blah.blah",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1'],
@@ -61,7 +61,7 @@
 TEST($C->registerObjectClass(objectType => "YetMoreCrap",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
-                authURI => "URI of the registrar of this object",
+                authURI => "blah.blah.blah",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1'],
@@ -73,7 +73,7 @@
 TEST($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 => "blah.blah.blah",
 			    Relationships => {
 					ISA => ['Retrieval','Analysis']}
                        ), 4, 1);
@@ -81,7 +81,7 @@
 TEST($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 => "blah.blah.blah",
 			    Relationships => {
 					ISA => ['Retrieval','Analysis']}
                        ), 5, 0);
@@ -108,7 +108,7 @@
 TEST($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 => "blah.blah.blah",
 			    Relationships => {
 					ISA => [
 						['Object', 'article1']]}
@@ -118,7 +118,7 @@
 TEST($C->registerObjectClass(objectType => "YetMoreCrap",
                 description => "a human-readable description of the object",
 				contactEmail => 'your at email.address',
-                authURI => "URI of the registrar of this object",
+                authURI => "blah.blah.blah",
 			    Relationships => {
 					ISA => [
 						['TotalCrap', 'article1']]}