ProDomCG_evoscenTest

This is a test of the ProDomCG_evoscen service.
Test filesDownload the files for this test
Test runRun test now
Support reference#1871-1872
This is a test for Hogenom_evoscen set of webservices. It uses perl and SOAPlite. It includes tests for the following webservices :
- GetScenario : output must be of a given length (number of nodes)
- GetPresentFamiliesProdom : output must be 1160 elements long (the query is taxID 55529)
Show/hide recent test logs
view log 4 days agoPASSED

Test began: 2012-02-02 17:18:30 Test ended: 2012-02-02 17:18:34 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 6 days agoPASSED

Test began: 2012-01-31 20:00:38 Test ended: 2012-01-31 20:00:42 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 1 week agoPASSED

Test began: 2012-01-27 16:00:05 Test ended: 2012-01-27 16:00:10 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 3 weeks agoPASSED

Test began: 2012-01-16 15:53:08 Test ended: 2012-01-16 15:53:13 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 3 weeks agoPASSED

Test began: 2012-01-16 00:33:31 Test ended: 2012-01-16 00:33:35 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-01-11 06:20:48 Test ended: 2012-01-11 06:20:56 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-01-10 18:35:46 Test ended: 2012-01-10 18:35:51 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-01-10 00:12:53 Test ended: 2012-01-10 00:12:58 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 1 month agoPASSED

Test began: 2011-12-27 00:28:35 Test ended: 2011-12-27 00:28:40 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
view log 1 month agoPASSED

Test began: 2011-12-23 20:29:23 Test ended: 2011-12-23 20:29:27 Result : Test passed ------ stderr and stdout follow ------ GetPresentFamiliesProdom OK GetScenarioProdom OK Everything worked fineDownload this log...
This test consists of the following files:
prodomCG_evoscenTest.perl
#!/usr/bin/perl -w
use SOAP::Lite;
# Connecting to the webservice
my $service = SOAP::Lite
-> service("http://prodom.prabi.fr/prodom/2006.1/wsdl/prodomCG_evoscen.wsdl")
-> on_fault(
sub { my($self, $res) = @_;
print STDOUT "Error while establishing connexion with the service\n";
exit 1;
}
);
my $error;
my $method;
my $arg;
my $result;
my @resultat;
$error = 0;
# Testing GetPresentFamiliesProdom :
# - output must be long (the query is taxID 3702)
$method = "GetPresentFamiliesProdom";
$arg = "55529";
@resultat = $service->$method($arg);
if ( $#resultat >= 0 ) {
if ( $#resultat != 1160 ){
print "Unexpected data for GetPresentFamiliesProdom output\n";
$error = 2;
} else {
print "GetPresentFamiliesProdom OK\n";
}
} else {
print "GetPresentFamiliesProdom Failed\n";
exit 1;
}
# Testing GetScenarioProdom :
# - output must be a certain line (the query is CG000005)
$method = "GetScenarioProdom";
$arg = "CG000005";
$result = $service->$method($arg);
chomp($result);
if ( defined $result ) {
if ( length($result) != 394 ){
print "Unexpected data for GetScenarioProdom output\n";
$error = 3;
} else {
print "GetScenarioProdom OK\n";
}
} else {
print "GetScenarioProdom Failed\n";
exit 1;
}
if ( $error == 0 ) {
print "Everything worked fine\n";
exit $error;
}
else {
print "Last error code : $error\n";
exit $error;
}
»
- Login to post comments