ProDomCG_treeTest
This is a test of the ProDomCG_tree service.
Test filesDownload the files for this test
Test runRun test now
Support reference#1869-1870
This is a test for ProdomCG_evoscen set of webservices. It uses perl and SOAPlite. It includes tests for the following webservices :
- NearestNodeProdom : output must be 2284 (the query is taxID 2284)
- GetParentProdom : output must be 2284 (the query is taxID 2287)
- GetChildProdom : output must contain 2287 (the query is taxID 2284)
- GetDFStreeProdom : output must contain "Arabidopsis thaliana" (last line of the file)
Show/hide recent test logs
view log 2 weeks agoPASSED
Test began: 2012-01-25 06:35:46 Test ended: 2012-01-25 06:35:48 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 2 weeks agoPASSED
Test began: 2012-01-25 02:36:59 Test ended: 2012-01-25 02:37:01 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED
Test began: 2012-01-09 12:47:17 Test ended: 2012-01-09 12:47:20 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED
Test began: 2012-01-08 01:06:23 Test ended: 2012-01-08 01:06:25 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 1 month agoPASSED
Test began: 2011-12-25 03:28:50 Test ended: 2011-12-25 03:28:52 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2011-12-16 11:15:12 Test ended: 2011-12-16 11:15:14 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2011-12-02 11:15:04 Test ended: 2011-12-02 11:15:06 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2011-12-02 04:07:55 Test ended: 2011-12-02 04:07:57 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 3 months agoPASSED
Test began: 2011-11-22 03:06:20 Test ended: 2011-11-22 03:06:22 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
view log 3 months agoPASSED
Test began: 2011-11-16 08:19:41 Test ended: 2011-11-16 08:19:44 Result : Test passed ------ stderr and stdout follow ------ NearestNodeProdom OK GetParentProdom OK GetChildProdom OK GetDFStreeProdom OK Everything worked fineDownload this log...
This test consists of the following files:
prodomCG_treeTest.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_tree.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 NearestNodeProdom :
# - output must be 2284 (the query is taxID 2284)
$method = "NearestNodeProdom";
$arg = "2284";
$result = $service->$method($arg);
if ( defined $result ) {
if ( $result ne "2284" ){
print "Unexpected data for NearestNodeProdom output\n";
$error = 2;
} else {
print "NearestNodeProdom OK\n";
}
} else {
print "NearestNodeProdom Failed\n";
exit 1;
}
# Testing GetParentProdom :
# - output must be 2284 (the query is taxID 2287)
$method = "GetParentProdom";
$arg = "2287";
$result = $service->$method($arg);
if ( defined $result ) {
if ( $result ne "2284" ){
print "Unexpected data for GetParentProdom output\n";
$error = 3;
} else {
print "GetParentProdom OK\n";
}
} else {
print "GetParentProdom Failed\n";
exit 1;
}
# Testing GetChildProdom :
# - output must contain 2287 (the query is taxID 2284)
$method = "GetChildProdom";
$arg = "2284";
@result = $service->$method($arg);
if ( $#result >= 0 ) {
if ( $result[0] ne "2287" and $result[1] ne "2287" and $result[2] ne "2287" ){
print "Unexpected data for GetChildProdom output\n";
$error = 4;
} else {
print "GetChildProdom OK\n";
}
} else {
print "GetChildProdom Failed\n";
exit 1;
}
# Testing GetDFStreeProdom :
# - output must contain "Arabidopsis thaliana" (last line of the file)
$method = "GetDFStreeProdom";
@result = $service->$method();
if ( $#result == 393 ) {
if ( $result[393] !~ "3702" ){
print "Unexpected data for GetDFStreeProdom output\n";
$error = 5;
} else {
print "GetDFStreeProdom OK\n";
}
} else {
print "GetDFStreeProdom 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