mprap test

This is a test of the mprap service.

Test filesDownload the files for this test

Test runRun test now

Support reference#2803-2804

Predicts the relative surface accessibility of a test sequence.

Show/hide recent test logs

This test consists of the following files:

test.mprap.soap.pl

#!/usr/bin/perl -w

use SOAP::Lite;

my $soap_mprapService = SOAP::Lite
    ->uri('mprap')
    ->proxy('http://wsdl.sbc.su.se/cgi-bin/mprap.cgi');

my $seq =">foo\nMSKSKMIVRTKFIDRACHWTVVICFFLVALSGISFFFPTLQWLTQTFGTPQMGRILHP
FFGIAIFVALMFMFVRFVHHNIPDKKDIPWLLNIVEVLKGNEHKVADVGKYNAGQKMMFW
SIMSMIFVLLVTGVIIWRPYFAQYFPMQVVRYSLLIHAAAGIILIHAILIHMYMAFW
VKGSIKGMIEGKVSRRWAKKHHPRWYREIEKAEAKKESEEGI\n";

#print "runmprapSOAPDefault:\n";

my $result = $soap_mprapService -> runmprapDefault($seq);

# check for error
unless ($result->fault)
{
    # Success! print the result
    
    # check for error
    
    my $output_str = $result->result();
    if ( 
	 ($output_str =~ /^\>mpRAP\_bin/) and
	 ($output_str =~ /\>mpRAP\_real/) and
	 ($output_str =~ /X\_X\_X\_X\_44/)){ #44 is specific for test sequence
	print "0\n"; #output OK\n";
    }
    else{
	print "1\n"; #output not OK\n";
    }	    
    #print $result->result();
    #print "\n";
} 
else 
{
    # report error code
    print join ', ',
    $result->faultcode,
    $result->faultstring,
    $result->faultdetail;
}

Submitted by stockholm_dbb on Tue, 04/20/2010 - 15:24