[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul  8 20:21:54 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv5633/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
more refactoring of code to get SQL out of mobycentral.  Also created two new subroutines for Martin and Ben to add their XSD-generating code such that the WSDL from MOBY Central will be valid

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.17,1.18
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/06/16 19:07:34	1.17
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/09 00:21:53	1.18
@@ -213,19 +213,33 @@
               ["Object", ['UglyNamespace']], # Simple
               ]), 24, 1);
 
+my ($si, $reg) = $C->findService(
+     serviceName => "myfirstservice2"
+);
+
+$si = $si->[0];
+my $wsdl = $C->retrieveService($si);
+print $wsdl;
+if ($wsdl && ($wsdl =~ /\<definitions/)){
+        print "test 25\t\t[PASS]\n";
+} else {
+        print "test 25\t\t[FAIL]\tWSDL was not retrieved\n\n";
+}
+
+
 
 TEST($C->deregisterService(
     serviceName  => "myfirstservice2",  
     authURI      => "www.illuminae.com",      
-    ), 25, 1);
+    ), 26, 1);
 TEST($C->deregisterService(
     serviceName  => "myfirstservice2",  
     authURI      => "www.illuminae.com",      
-    ), 26, 0);
+    ), 27, 0);
 TEST($C->deregisterService(
     serviceName  => "myfirstservice",  
     authURI      => "www.illuminae.com",      
-    ), 27, 1);
+    ), 28, 1);
 
 TEST($C->deregisterObjectClass(objectType => "YetMoreCrap"), 28, 1);
 TEST($C->deregisterObjectClass(objectType => "TotalCrap"), 29, 1);