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

#!/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;
}