Pathfinder test

This is a test of the pathfinding service.
Test filesDownload the files for this test
Test runRun test now
Support reference#2810-2811
This test enumerates the k lightest paths in the weighted KEGG RPAIR network.
Show/hide recent test logs
view log 1 week agoPASSED

Test began: 2012-05-10 06:01:29 Test ended: 2012-05-10 06:01:38 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 week agoPASSED

Test began: 2012-05-10 03:07:36 Test ended: 2012-05-10 03:07:46 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 weeks agoPASSED

Test began: 2012-05-06 16:02:47 Test ended: 2012-05-06 16:02:56 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 weeks agoPASSED

Test began: 2012-05-05 12:15:41 Test ended: 2012-05-05 12:15:51 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-04-19 08:08:42 Test ended: 2012-04-19 08:08:51 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-04-19 06:16:27 Test ended: 2012-04-19 06:16:35 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 month agoPASSED

Test began: 2012-04-11 13:28:37 Test ended: 2012-04-11 13:28:46 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 month agoPASSED

Test began: 2012-04-08 18:53:42 Test ended: 2012-04-08 18:53:52 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 months agoPASSED

Test began: 2012-03-31 03:10:40 Test ended: 2012-03-31 03:10:54 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 months agoPASSED

Test began: 2012-03-24 04:37:12 Test ended: 2012-03-24 04:37:21 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
This test consists of the following files:
__MACOSX/
._pathfinder_test.pl (binary file)
pathfinder_test.pl
#!/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 $pathfinding = $proxy->compileClient('pathfinding');
# Calling the service and getting the response
my $source = "C00049";
my $target = "C00047";
my $graphId = "Pathfinder_tmpGraph_c4b592c7-23f7-4080-851a-e6d870cc7cf9.tab";
my $exclusionAttr = "ExclusionAttribute";
my $answer = $pathfinding->( request => {source => $source, target => $target, nodesPresent => "", nodesAbsent => "", graphString => $graphId, tmpInGraphFile => "", inFormat => "tab", outFormat => "tab", directed => 0, metabolic => 1, weight => "con", exclusionAttr => $exclusionAttr, algorithm => "rea", rank => 1, maxWeight => 10000, maxLength => 10000, minLength => 1, attribs => "", outputType => "pathsTable", storeInputGraph => 0, returnType => "client"});
my $expected = "C00049->RP00932->C03082->RP02107->C00441->RP02109->C03340->RP00740->C03972->RP03970->C03871->RP02474->C00680->RP00907->C00047";
# 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;
}