Hogenom_treeTest

#!/usr/bin/perl -w

use SOAP::Lite;

# Connecting to the webservice
my $service = SOAP::Lite
	-> service("http://prodom.prabi.fr/prodom/2006.1/wsdl/hogenom_tree.wsdl")
	-> on_fault(
			sub { my($self, $res) = @_;
			      print STDOUT "Error while establishing connexion with the service\n";
			      exit 1;
			     }
                    );

my $error;
my $method;
my $arg;
my $result;
my @resultat;

$error = 0;

# Testing NearestNodeHogenom : 
# - output must be 2284 (the query is taxID 2284)

$method = "NearestNodeHogenom";
$arg = "2284";

$result = $service->$method($arg);
if ( defined $result ) {
	if ( $result ne "2284" ){
		print "Unexpected data for NearestNodeHogenom output\n";
		$error = 2;
	} else {
		print "NearestNodeHogenom OK\n";
	}

} else {    
	print "NearestNodeHogenom Failed\n";
	exit 1;
}


# Testing GetParentHogenom : 
# - output must be 2284 (the query is taxID 2287)

$method = "GetParentHogenom";
$arg = "2287";

$result = $service->$method($arg);
if ( defined $result ) {
	if ( $result ne "2284" ){
		print "Unexpected data for GetParentHogenom output\n";
		$error = 3;
	} else {
		print "GetParentHogenom OK\n";
	}

} else {    
	print "GetParentHogenom Failed\n";
	exit 1;
}


# Testing GetChildHogenom : 
# - output must contain 2287 (the query is taxID 2284)

$method = "GetChildHogenom";
$arg = "2284";

@result = $service->$method($arg);

if (  $#result >= 0 ) {
	if ( $result[0] ne "2287" and $result[1] ne "2287" and $result[2] ne "2287" ){
		print "Unexpected data for GetChildHogenom output\n";
		$error = 4;
	} else {
		print "GetChildHogenom OK\n";
	}

} else {    
	print "GetChildHogenom Failed\n";
	exit 1;
}


# Testing GetDFStreeHogenom : 
# - output must contain "36329" (Plasmodium falciparum, last line of the file)

$method = "GetDFStreeHogenom";

@result = $service->$method();
if ( $#result == 390 ) {
	if ( $result[390] !~ "36329" ){
		print "Unexpected data for GetDFStreeHogenom output\n";
		$error = 5;
	} else {
		print "GetDFStreeHogenom OK\n";
	}

} else {    
	print "GetDFStreeHogenom Failed\n";
	exit 1;
}




if ( $error == 0 ) {
	print "Everything worked fine\n";
	exit $error;
}
else {
	print "Last error code : $error\n";
	exit $error;
}