Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

73 lines (61 sloc) 2.418 kb
# -*-Perl-*-
# $id$
## Bioperl Test Harness Script for Modules
use strict;
BEGIN {
use Bio::Root::Test;
# The EMBL-EBI Soaplab server has been decommissioned on 1st February 2013
# (https://www.ebi.ac.uk/Tools/webservices/about/news).
# Website "http://www.ebi.ac.uk/soaplab/services" dont exists anymore,
# so tests will fail with "404 Not Found" if executed
test_begin(-tests => 0,
-requires_networking => 1);
use_ok('Bio::Tools::Run::Analysis');
use_ok('File::Spec');
}
SKIP: {
test_skip(-tests => 15, -requires_module => 'SOAP::Lite');
use_ok('SOAP::Lite');
my $seqret = Bio::Tools::Run::Analysis->new(-name=>'edit.seqret');
my $seq = 'tatacga';
SKIP: {
# condition used to skip this block of tests
#skip($why, $how_many_in_block);
skip("Failed to create the analysis object", 1)
unless isa_ok( $seqret, 'Bio::Tools::Run::Analysis::soap');
# test seqret service with some testing data
# TODO: use BIOPERLDEBUG to skip these tests
my %input = (
'sequence_direct_data' => $seq,
'osformat' => 'raw',
);
is( $seqret->analysis_name, 'seqret', 'analysis_name returned seqret' );
isa_ok( $seqret->analysis_spec, 'HASH');
my $input_spec = $seqret->input_spec;
isa_ok( $input_spec, 'ARRAY' );
ok( @$input_spec > 0, 'input_spec returned an array with something in it' );
isa_ok( $input_spec->[0], 'HASH' );
my $result_spec = $seqret->result_spec;
isa_ok( $result_spec, 'ARRAY' );
ok( @$result_spec > 0, 'result_spec returned an array with something in it' );
like( $seqret->describe, '/^<\?xml /', 'describe seems to have returned the correct thing' );
my $job = $seqret->create_job (\%input);
SKIP: {
skip("Object not created correctly", 6) unless isa_ok( $job, 'Bio::Tools::Run::Analysis::Job' );
is( $job->status, 'CREATED', 'Job status correct' );
# TODO: not goot to use private methods
my $cloned_job = $seqret->create_job ($job->{'_id'});
SKIP: {
skip( "Couldn't clone the job", 2 )
unless isa_ok( $cloned_job, 'Bio::Tools::Run::Analysis::Job',
'Job cloned successfully' );
like( $cloned_job->last_event, '/^<\?xml /',
'last_event seems to have returned the correct thing' );
$cloned_job->remove;
# TODO: not good to use private methods
is( $cloned_job->{'_destroy_on_exit'}, 1,
'Cloned job removed successfully' );
}
}
}
}
Jump to Line
Something went wrong with that request. Please try again.