Pathway extraction test

#!/usr/bin/perl
# the first line of the script must tell us which language interpreter to use,
# in this case its perl

use strict;

# import the modules we need for this test; XML::Compile is included on the server
# by default.
use XML::Compile::SOAP11;
use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;

eval
{
    # Retrieving and processing the WSDL
    my $wsdl  = XML::LibXML->new->parse_file('http://wwwsup.scmbb.ulb.ac.be/be.ac.ulb.bigre.graphtools.server/wsdl/GraphAlgorithmsNeAT.wsdl');
    my $proxy = XML::Compile::WSDL11->new($wsdl);
    
    # Generating a request message based on the WSDL
    my $pathwayinference = $proxy->compileClient('pathwayinference');
    
    # Calling the service and getting the response
    my $seeds = "HISTIDPHOS-RXN>/HISTIDPHOS-RXN<#IMIDPHOSDEHYD-RXN>/IMIDPHOSDEHYD-RXN<#ATPPHOSPHORIBOSYLTRANS-RXN>/ATPPHOSPHORIBOSYLTRANS-RXN<#HISTAMINOTRANS-RXN>/HISTAMINOTRANS-RXN<#HISTALDEHYD-RXN>/HISTALDEHYD-RXN</HISTOLDEHYD-RXN>/HISTOLDEHYD-RXN<";
    my $graphId = "Pathwayinference_tmpGraph_e2063b35-8dcf-468b-9e16-178fb30ed19c.tab";
    my $exclusionAttr = "ExclusionAttribute";

    my $answer = $pathwayinference->( request => {seeds => $seeds, batch => "", graphString => $graphId, tmpInGraphFile => "", inFormat => "tab", outFormat => "tab", directed => 1, keepIrreversible => 0, asymmetric => 0, metabolic => 1, exclusionAttr => $exclusionAttr, weight => "con", algorithm => "takahashi", preproc => 0, postproc => 0, prune => 0, reuseWeights => 0, iter => 1, percentage => 0.05, attribs => "", outputType => "pathsGraphs", storeInputGraph => 0, returnType => "client" });

    my $expected = "L-HISTIDINOL-P	#FFD700	gold";

    # If the response arrived, look for a specific sequence
    # If the sequence is correct, return 0 because the test passed.
    # If the result is something else, return 2 to indicate a warning.
    # If no answer has arrived, return 1 to indicate the test failed.
    if ( defined $answer ) {
	# print "Result : ".$answer->{output}->{response}->{client}."\n";
	if ($answer->{output}->{response}->{client} =~ m/$expected/){
	    print "Passed\n";
	    exit 0;
	} else {
	    print "Unexpected data\n";
	    exit 2;
	}
    } else {    
	print "Failed\n";
	exit 1;
    }
};

if ($@)
{
    print "Caught an exception\n";
    print $@."\n";
    exit 1;
}