Hogenom_evoscenTest
This is a test of the Hogenom_evoscen service.
Test filesDownload the files for this test
Test runRun test now
Support reference#1867-1868
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)
- GetPresentFamiliesHogenom : output must be 520 elements long (the query is taxID 160232)
- GetInheritedFamiliesHogenom : output must be 251 elements long (the query is taxID 160232)
- GetInnovatedFamiliesHogenom : output must be 258 elements long (the query is taxID 160232)
- GetLostFamiliesHogenom : output must be 911 elements long (the query is taxID 160232)
- GetRegainedFamiliesHogenom : output must be 0 elements long (the query is taxID 160232)
- GetTransferedFamiliesHogenom : output must be 9 elements long (the query is taxID 160232)
Show/hide recent test logs
view log 7 days agoPASSED
Test began: 2012-05-12 18:52:05 Test ended: 2012-05-12 18:52:09 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 3 weeks agoPASSED
Test began: 2012-04-29 14:00:10 Test ended: 2012-04-29 14:00:20 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 3 weeks agoPASSED
Test began: 2012-04-28 03:32:54 Test ended: 2012-04-28 03:32:59 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 4 weeks agoPASSED
Test began: 2012-04-20 20:41:02 Test ended: 2012-04-20 20:41:07 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-14 20:19:04 Test ended: 2012-04-14 20:19:09 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-08 15:27:35 Test ended: 2012-04-08 15:27:40 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2012-04-01 03:59:01 Test ended: 2012-04-01 03:59:06 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2012-03-29 06:45:00 Test ended: 2012-03-29 06:45:05 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2012-03-22 14:44:19 Test ended: 2012-03-22 14:44:24 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
view log 2 months agoPASSED
Test began: 2012-03-20 12:00:21 Test ended: 2012-03-20 12:00:26 Result : Test passed ------ stderr and stdout follow ------ GetScenarioHogenom OK Present : 520 GetPresentFamiliesHogenom OK Inherited : 251 GetInheritedFamiliesHogenom OK Innovated : 258 GetInnovatedFamiliesHogenom OK Lost : 911 GetLostFamiliesHogenom OK Regained : 0 GetRegainedFamiliesHogenom OK Transfered : 9 GetTransferedFamiliesHogenom OK Everything worked fineDownload this log...
This test consists of the following files:
hogenom_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/hogenom_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 GetScenario :
# - output must be of a given length
$method = "GetScenarioHogenom";
$arg = "HBG000014";
$result = $service->$method($arg);
chomp($result);
if ( defined $result ) {
if ( length($result) != 391 ){
print "Unexpected data for GetScenarioHogenom output\n";
$error = 2;
} else {
print "GetScenarioHogenom OK\n";
}
} else {
print "GetScenarioHogenom Failed\n";
exit 1;
}
# Testing GetPresentFamiliesHogenom :
# - output must be 520 elements long (the query is taxID 160232)
$method = "GetPresentFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Present : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 520 ){
print "Unexpected data for GetPresentFamiliesHogenom output\n";
$error = 3;
} else {
print "GetPresentFamiliesHogenom OK\n";
}
} else {
print "GetPresentFamiliesHogenom Failed\n";
exit 1;
}
# Testing GetInheritedFamiliesHogenom :
# - output must be 251 elements long (the query is taxID 160232)
$method = "GetInheritedFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Inherited : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 251 ){
print "Unexpected data for GetInheritedFamiliesHogenom output\n";
$error = 4;
} else {
print "GetInheritedFamiliesHogenom OK\n";
}
} else {
print "GetInheritedFamiliesHogenom Failed\n";
exit 1;
}
# Testing GetInnovatedFamiliesHogenom :
# - output must be 258 elements long (the query is taxID 160232)
$method = "GetInnovatedFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Innovated : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 258 ){
print "Unexpected data for GetInnovatedFamiliesHogenom output\n";
$error = 5;
} else {
print "GetInnovatedFamiliesHogenom OK\n";
}
} else {
print "GetInnovatedFamiliesHogenom Failed\n";
exit 1;
}
# Testing GetLostFamiliesHogenom :
# - output must be 911 elements long (the query is taxID 160232)
$method = "GetLostFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Lost : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 911 ){
print "Unexpected data for GetLostFamiliesHogenom output\n";
$error = 6;
} else {
print "GetLostFamiliesHogenom OK\n";
}
} else {
print "GetLostFamiliesHogenom Failed\n";
exit 1;
}
# Testing GetRegainedFamiliesHogenom :
# - output must be 0 elements long (the query is taxID 160232)
$method = "GetRegainedFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Regained : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 0 ){
print "Unexpected data for GetRegainedFamiliesHogenom output\n";
$error = 7;
} else {
print "GetRegainedFamiliesHogenom OK\n";
}
} else {
print "GetRegainedFamiliesHogenom Failed\n";
exit 1;
}
# Testing GetTransferedFamiliesHogenom :
# - output must be 9 elements long (the query is taxID 160232)
$method = "GetTransferedFamiliesHogenom";
$arg = "160232";
@resultat = $service->$method($arg);
print "Transfered : $#resultat\n";
if ( $#resultat >= 0 ) {
if ( $#resultat != 9 ){
print "Unexpected data for GetTransferedFamiliesHogenom output\n";
$error = 8;
} else {
print "GetTransferedFamiliesHogenom OK\n";
}
} else {
print "GetTransferedFamiliesHogenom 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