Test if WHAT-IF is alive

This is a test of the WHAT IF Web Services service.
Test filesDownload the files for this test
Test runRun test now
Support reference#2777-2789
Very simple test.
Show/hide recent test logs
view log 2 hours agoPASSED

Test began: 2012-02-09 06:53:25 Test ended: 2012-02-09 06:53:26 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 6 days agoPASSED

Test began: 2012-02-03 05:58:42 Test ended: 2012-02-03 05:58:44 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 weeks agoPASSED

Test began: 2012-01-27 05:46:05 Test ended: 2012-01-27 05:46:07 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 3 weeks agoPASSED

Test began: 2012-01-21 01:49:16 Test ended: 2012-01-21 01:49:18 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-01-14 08:46:02 Test ended: 2012-01-14 08:46:03 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 4 weeks agoPASSED

Test began: 2012-01-10 12:34:45 Test ended: 2012-01-10 12:34:47 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 month agoPASSED

Test began: 2012-01-08 17:27:06 Test ended: 2012-01-08 17:27:08 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 month agoPASSED

Test began: 2012-01-05 22:22:36 Test ended: 2012-01-05 22:22:38 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 1 month agoPASSED

Test began: 2011-12-29 07:23:10 Test ended: 2011-12-29 07:23:12 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
view log 2 months agoPASSED

Test began: 2011-12-11 02:51:44 Test ended: 2011-12-11 02:51:45 Result : Test passed ------ stderr and stdout follow ------ PassedDownload this log...
This test consists of the following files:
test-wiwsd.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;
use warnings;
use Data::Dumper;
# import the modules we need for this test; XML::Compile is included on the server
# by default.
use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;
eval
{
# Retrieving and processing the WSDL
my $wsdl = XML::LibXML->new->parse_file('http://wiws.cmbi.ru.nl/wsdl');
my $proxy = XML::Compile::WSDL11->new($wsdl);
# Generating a request message based on the WSDL
my $count = $proxy->compileClient('PDB_sequence');
# Calling the service and getting the response
my ($answer, $trace) = $count->( id => '1crn' );
# If the response arrived, look for a specific value that is supposed to be larger than 0
# If the value is larger than zero, return 0 because the test passed.
# If the value is something else, return 2 to indicate a warning.
# If no answer has arrived, return 1 to indicate the test failed.
if ( defined $answer ) {
# the response for this webservice should be an array of residue's:
if (ref($answer->{parameters}->{response}) eq 'ARRAY' and
defined (@{$answer->{parameters}->{response}}[0]->{residue})) {
print "Passed\n";
exit 0;
} else {
print "Unexpected data\n";
exit 2;
}
} else {
print "Failed\n";
exit 1;
}
};
if ($@)
{
print "Caught an exception: $@\n";
exit 1;
}
»
- Login to post comments