[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 29 21:14:44 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv22099/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
last tweaks to provide protection to services that have a signatureURL.

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.21,1.22
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/30 00:40:09	1.21
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/30 01:14:44	1.22
@@ -159,7 +159,6 @@
     serviceName  => "myfirstservice",  
     serviceType  => "Retrieval",  
     authURI      => "www.illuminae.com",      
-    signatureURL      => "http://www.illuminae.com/somewhere",      
     contactEmail => 'your at mail.address',      
     description => "this is my first service", 
     category  =>  "moby",
@@ -183,7 +182,6 @@
     serviceType  => "Retrieval",  
     authURI      => "www.illuminae.com",      
     contactEmail => 'your at mail.address',      
-    signatureURL      => "http://www.illuminae.com/somewhere",      
     description => "this is my first service", 
     category  =>  "moby",
     URL    =>  "http://illuminae/cgi-bin/service.pl",
@@ -200,7 +198,6 @@
     serviceType  => "Retrieval",  
     authURI      => "www.illuminae.com",      
     contactEmail => 'your at mail.address',      
-    signatureURL      => "http://www.illuminae.com/somewhere",      
     description => "this is my first service", 
     category  =>  "moby",
     URL    =>  "http://illuminae/cgi-bin/service.pl",
@@ -266,10 +263,14 @@
     serviceName  => "myfirstservice",  
     authURI      => "www.illuminae.com",      
     ), 28, 1);
-
-TEST($C->deregisterObjectClass(objectType => "HypotheticalObject2"), 28, 1);
-TEST($C->deregisterObjectClass(objectType => "HypotheticalObject1"), 29, 1);
-TEST($C->deregisterNamespace(namespaceType =>'HypotheticalNamespace1'), 30, 1);
+#TEST($C->deregisterService(
+#    serviceName  => "getDragonSimpleAnnotatedImages",  
+#    authURI      => "www.illuminae.com",      
+#    ), 29, 0);  # cant deregister a service with a signatureURL
+
+TEST($C->deregisterObjectClass(objectType => "HypotheticalObject2"), 30, 1);
+TEST($C->deregisterObjectClass(objectType => "HypotheticalObject1"), 31, 1);
+TEST($C->deregisterNamespace(namespaceType =>'HypotheticalNamespace1'), 32, 1);
 
 exit 0;