WSx3DEM_getVersion_test
This is a test of the WSx3DEM service.
Test filesDownload the files for this test
Test runRun test now
Support reference#1842-1864
###################################################
### Testing script for WSx3DEM services
### registered at http://www.embraceregistry.net/
###
### author: jrmacias@cnb.csic.es
### date: 20090511
###
### Simply make a getVersion query to the Web Service and
### wait for proper response. It evaluates success
### just if the name of the services are found in
### the response
###################################################
Show/hide recent test logs
view log 6 days agoPASSED
Test began: 2012-05-13 11:18:56 Test ended: 2012-05-13 11:19:56 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 3 weeks agoPASSED
Test began: 2012-05-01 01:16:06 Test ended: 2012-05-01 01:17:07 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 3 weeks agoPASSED
Test began: 2012-04-29 19:17:23 Test ended: 2012-04-29 19:18:23 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-18 03:09:23 Test ended: 2012-04-18 03:10:24 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-13 07:55:32 Test ended: 2012-04-13 07:56:33 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-07 20:34:34 Test ended: 2012-04-07 20:35:35 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 1 month agoPASSED
Test began: 2012-04-06 14:58:20 Test ended: 2012-04-06 14:59:20 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 2 months agoPASSED
Test began: 2012-04-02 18:00:12 Test ended: 2012-04-02 18:01:12 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 2 months agoPASSED
Test began: 2012-03-18 02:23:49 Test ended: 2012-03-18 02:24:49 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
view log 2 months agoPASSED
Test began: 2012-03-14 07:42:43 Test ended: 2012-03-14 07:43:43 Result : Test passed ------ stderr and stdout follow ------ Operation in progress at /Library/Perl/5.8.8/darwin-thread-multi-2level/XML/LibXML.pm line 587. PassedDownload this log...
This test consists of the following files:
WSx3DEM_getVersion_test.pl
#!/usr/bin/perl
###################################################
### Testing script for WSx3DEM services
### registered at http://www.embraceregistry.net/
###
### author: jrmacias@cnb.csic.es
### date: 20090511
###
### Simply make a getVersion query to the Web Service and
### wait for proper response. It evaluates success
### just if the name of the services are found in
### the response
###################################################
use strict;
# import the modules we need for this test; XML::Compile is included on the server
# by default.
use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;
eval
{
# Retriving and processing the WSDL
my $wsdl = XML::LibXML->new->parse_file('http://biocomp.cnb.csic.es:8092/axis2/services/WSx3DEM?wsdl');
my $proxy = XML::Compile::WSDL11->new($wsdl);
# Generating a request message based on the WSDL
# All the services implement a getVersion function
my $getVersion = $proxy->compileClient('getVersion');
# Calling the service and getting the response
my $answer = $getVersion->();
# If the response arrived,..
# look for a specific value that is supposed to be equal to 1.04.20070413
# If the value is 1.04.20070413, 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 ) {
if (@{@{ $answer->{parameters}{Matrix} }[0]->{A}->{col}}[3] == "1.04.20070413"){
print "Passed\n";
exit 0;
} else {
print "Unexpected data\n";
exit 2;
}
} else {
print "Failed\n";
exit 1;
}
};
if ($@)
{
###print $@;
if ($@[0] == "WSx3DEMSOAP11port_http"){
print "Passed\n";
exit 0;
} else {
print "Caught an exception\n";
exit 2;
}
{
exit 0;
}
### print "Caught an exception\n";
### exit 1;
}»
- Login to post comments