[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at pub.open-bio.org
Mon Jun 23 17:51:16 UTC 2003
mwilkinson
Mon Jun 23 13:51:16 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv4737/scripts
Modified Files:
testMOBYClientCentral_v05.pl
Log Message:
cleaning up the test code to keep it clear.
moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl 2003/06/23 17:49:35 1.6
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl 2003/06/23 17:51:16 1.7
@@ -226,181 +226,3 @@
exit 0;
-TEST2($C->findService(
- serviceName => "myfirstservice2",
- serviceType => "Retrieval",
- authURI => "www.illuminae.com",
- authoritative => 0,
- category => "moby",
- input =>[
- ["Object"], # Simple
- ]), 21, 1);
-
-
-$m = "<findService>
- <inputObjects>
- <Input>
- <Simple>
- <objectType>TotalCrap</objectType>
- </Simple>
- </Input>
- </inputObjects>
- <outputObjects>
- <Output>
- </Output>
- </outputObjects>
- <serviceType></serviceType>
- <Category></Category>
- <authURI>your.URI.here</authURI>;
- <expandObjects></expandObjects>
- <expandServices></expandServices>
- <authoritative></authoritative>
- <keywords>
- </keywords>
-</findService>";
-# find service based on Authority and Objecttag
-$reg = MOBY::Central->findService($m);
-$n = grep /authURI\s*\=/, split "<", $reg;
-if ($n == 1){
- print "test 28\t\t[PASS]\n";
-} else {
- print "test 28\n\n[FAIL]\n$reg\n\n";
-}
-
-
-$m = "<findService>
- <inputObjects>
- <Input>
- <Simple>
- <objectType>TotalCrapFAIL</objectType>
- </Simple>
- </Input>
- </inputObjects>
- <outputObjects>
- <Output>
- </Output>
- </outputObjects>
- <serviceType></serviceType>
- <Category></Category>
- <authURI>your.URI.here</authURI>;
- <expandObjects></expandObjects>
- <expandServices></expandServices>
- <authoritative></authoritative>
- <keywords>
- </keywords>
-</findService>";
-# find service based on Authority and INVALID Object
-$reg = MOBY::Central->findService($m);
-$n = grep /authURI\s*\=/, split "<", $reg;
-if ($n == 0){
- print "test 29\t\t[PASS]\n";
-} else {
- print "test 29\n\n[FAIL]\n$reg\n\n";
-}
-
-
-
-
-
-$m = q{<deregisterService>
- <authURI>your.URI.here</authURI>
- <serviceName>MyCrappyService</serviceName>
- </deregisterService>};
-# deregister service
-TEST(MOBY::Central->deregisterService($m), 30, 1);
-
-
-
-
-$m = q{<deregisterService>
- <authURI>your.URI.here</authURI>
- <serviceName>MyCrappyService2</serviceName>
- </deregisterService>};
-# deregister service
-TEST(MOBY::Central->deregisterService($m), 31, 1);
-
-
-
-$m=q{<deregisterNamespace>
- <namespaceType>Genbank:Crap</namespaceType>
- </deregisterNamespace>};
-# deregister unused namespace
-TEST(MOBY::Central->deregisterNamespace($m), 32, 1);
-
-
-
-
-$m=q{<deregisterObjectClass>
- <objectType>TotalCrap</objectType>
-</deregisterObjectClass>
-};
-# deregister unused object class
-TEST(MOBY::Central->deregisterObjectClass($m), 33, 1);
-
-
-
-$m=q{ <deregisterServiceType>
- <serviceType>RetrieveCrap</serviceType>
- </deregisterServiceType>
-};
-# deregister unused service type
-TEST(MOBY::Central->deregisterServiceType($m), 34, 1);
-
-
-$m=q{<deregisterObjectClass>
- <objectType>YetMoreCrap</objectType>
-</deregisterObjectClass>
-};
-# deregister unused object class
-TEST(MOBY::Central->deregisterObjectClass($m), 35, 1);
-
-
-#
-#
-#
-#my %params = (serviceName => 'retrievePBAByName',
-# serviceType => 'Retrieval',
-# category => 'moby',
-# description => 'Given a PhysicalBioAssay name, retrieve the MAGE object',
-# contactEmail => 'jason at openinformatics.com',
-# authURI => 'openinformatics.com',
-# URL => 'http://18.157.12.73/genex/G2G/retrievePBAByName',
-# input=>{'name' => ['String'=> ['openinformatics.com/Genex/PhysicalBioAssay']]},
-# output=>{'output'=> ['String'=> ['openinformatics.com/Genex/PhysicalBioAssay']]},
-# secondary=>{},
-# );
-#my %params = (serviceName => "MYserviceName",
-# serviceType => "MyserviceType",
-# authURI => "MYauthURI",
-# contactEmail => "your\@mail.address",
-# description => "human_readable_description",
-# category => "moby",
-# URL => 'URL_TO_SERVICE',
-# input =>{
-# articleName1 => [objType1 => ['ns1', 'ns2']], # Simple
-# articleName2 => [[objType2 => ['ns3', 'ns4']]], # collection of one object type
-# articleName3 => [[objType3 => ['ns3', 'ns6']], [objType4 => ['ns9', 'ns0']]], # collection of multiple object types
-# },
-# output =>{
-# articleName1 => [objType1 => ['ns1', 'ns2']], # Simple
-# articleName2 => [[objType2 => ['ns3', 'ns4']]], # collection of one object type
-# articleName3 => [[objType3 => ['ns3', 'ns4']], [objType4 => ['ns5', 'ns6']]], # collection of multiple object types
-# },
-# secondary => {parametername1 => {datatype => 'TYPE',
-# default => 'DEFAULT',
-# max => 'MAX',
-# min => 'MIN',
-# enum => ['one', 'two']},
-# parametername2 => {datatype => 'TYPE',
-# default => 'DEFAULT',
-# max => 'MAX',
-# min => 'MIN',
-# enum => ['tone', 'ftwo']}
-# }
-#
-#
-#);
-
-#my $reg = $C->registerService(%params);
-#print "SUCCESS: ",$reg->success,"\n";
-#print "SUCCESS: ",$reg->error_message,"\n";
More information about the MOBY-guts
mailing list