fetchProDom Test (perl XML::Compile::WSDL11)

This is a test of the fetchProDom service.
Test filesDownload the files for this test
Test runRun test now
Support reference#113-116
Perl script testing simply each of the five services composing fetchProDom : fetchDom, fetchFasta, fetchProt, fetchAlign and fetchKW.
Uses XML::Compile::WSDL11.
Show/hide recent test logs
view log 13 hours agoWARNING

Test began: 2012-02-08 20:30:31 Test ended: 2012-02-08 20:31:00 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 2 days agoWARNING

Test began: 2012-02-07 04:46:25 Test ended: 2012-02-07 04:46:54 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 1 week agoWARNING

Test began: 2012-01-31 14:23:43 Test ended: 2012-01-31 14:24:13 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 2 weeks agoWARNING

Test began: 2012-01-27 14:28:39 Test ended: 2012-01-27 14:29:09 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 4 weeks agoWARNING

Test began: 2012-01-13 23:56:39 Test ended: 2012-01-13 23:57:08 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 4 weeks agoWARNING

Test began: 2012-01-12 00:41:31 Test ended: 2012-01-12 00:41:59 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 1 month agoWARNING

Test began: 2012-01-09 16:19:09 Test ended: 2012-01-09 16:19:38 Result : Test warning ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK Unexpected data for fetchProt fetchAlign OK Unexpected data for fetchKW Last error code : 5Download this log...
view log 2 months agoPASSED

Test began: 2011-12-18 06:47:11 Test ended: 2011-12-18 06:47:19 Result : Test passed ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK fetchProt OK fetchAlign OK fetchKW OK Everything worked fineDownload this log...
view log 2 months agoPASSED

Test began: 2011-12-14 17:10:04 Test ended: 2011-12-14 17:10:12 Result : Test passed ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK fetchProt OK fetchAlign OK fetchKW OK Everything worked fineDownload this log...
view log 2 months agoPASSED

Test began: 2011-11-26 19:58:21 Test ended: 2011-11-26 19:58:31 Result : Test passed ------ stderr and stdout follow ------ fetchDom OK fetchFasta OK fetchProt OK fetchAlign OK fetchKW OK Everything worked fineDownload this log...
This test consists of the following files:
fetchprodomTest2.perl
#!/usr/bin/perl
use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;
my $wsdl = XML::LibXML->new->parse_file('http://prodom.prabi.fr/prodom/current/wsdl/fetchProDom.wsdl');
my $proxy = XML::Compile::WSDL11->new($wsdl);
my $error;
my $method;
my $arg;
my $argname;
my $request;
$error = 0;
# Testing runFetchDom : must contain AC followed by PD000039
$method = "runFetchDom";
$arg = "PD000039";
$argname = "ProdomAC";
$request = $proxy->compileClient($method);
my $result = $request->( $argname => $arg );
if ( defined $result ) {
if ( $result->{outputWrapper}{output_in_fetchdom_format} !~ /AC\s+PD000039/ ){
print "Unexpected data for fetchDom\n";
$error = 2;
} else {
print "fetchDom OK\n";
}
} else {
print "fetchDom Failed\n";
exit 1;
}
# Testing runFetchFasta :
# - must contain PD000039 somewhere
# - must begin with ">"
$method = "runFetchFasta";
$arg = "PD000039";
$argname = "ProdomAC";
$request = $proxy->compileClient($method);
my $result = $request->( $argname => $arg );
if ( defined $result ) {
if ( $result->{outputWrapper}{output_in_fasta_format} !~ "PD000039" || $result->{outputWrapper}{output_in_fasta_format} !~ /^>/ ){
print "Unexpected data for fetchFasta\n";
$error = 3;
} else {
print "fetchFasta OK\n";
}
} else {
print "fetchFasta Failed\n";
exit 1;
}
# Testing runFetchProt :
# - must begin with ">"
# - must contain the other name of Q52913
$method = "runFetchProt";
$arg = "Q52913";
$argname = "Protein_ID";
$request = $proxy->compileClient($method);
my $result = $request->( $argname => $arg );
if ( defined $result ) {
if ( $result->{outputWrapper}{protein_domains} !~ /^>/ || $result->{outputWrapper}{protein_domains} !~ "ACTR_RHIME" ) {
print "Unexpected data for fetchProt\n";
$error = 4;
} else {
print "fetchProt OK\n";
}
} else {
print "fetchProt failed\n";
exit 1;
}
# Testing runFetchAlign : must begin with something of the shape Q52913|ACTR_RHIME
$method = "runFetchAlign";
$arg = "PD000039";
$argname = "ProdomAC";
$request = $proxy->compileClient($method);
my $result = $request->( $argname => $arg );
if ( defined $result ) {
if ( $result->{outputWrapper}{output_as_alignment} !~ /^[A-Z0-9]{6}\|[A-Z0-9]+\_[A-Z0-9]{5}/ ) {
print "Unextected data for fetchAlign\n";
$error = 5;
} else {
print "fetchAlign OK\n";
}
} else {
print "fetchAlign failed\n";
exit 1;
}
# Testing runFetchKW : must contain at least one ProDom AC
$method = "runFetchKW";
$arg = "SENSORY TRANSDUCTION PHOSPHORYLATION";
$argname = "keyword";
$request = $proxy->compileClient($method);
my $result = $request->( boolean => 1, $argname => $arg );
if ( defined $result ) {
if ( $result->{outputWrapper}{output_ids} !~ /PD[A-Z0-9]{6}/ ) {
print "Unexpected data for fetchKW\n";
$error = 5;
} else {
print "fetchKW OK\n";
}
} else {
print "fetchKW 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