Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (43 sloc) 1.975 kB
# -*-Perl-*-
# $id$
## Bioperl Test Harness Script for Modules
use strict;
use Bio::Root::Test;
# The EMBL-EBI Soaplab server has been decommissioned on 1st February 2013
# (
# Website "" dont exists anymore,
# so tests will fail with "404 Not Found" if executed
test_begin(-tests => 0,
-requires_networking => 1);
# setup global objects that are to be used in more than one test
# Also test they were initialised correctly
# test new with default access
my $factory = Bio::Tools::Run::AnalysisFactory->new();
isa_ok( $factory, 'Bio::Tools::Run::AnalysisFactory');
# test new with explicit access
$factory = Bio::Tools::Run::AnalysisFactory->new(-access=>'soap');
isa_ok( $factory, 'Bio::Tools::Run::AnalysisFactory');
# test new with non-existing access
throws_ok { Bio::Tools::Run::AnalysisFactory->new(-access=>'non_existing') } qr/cannot be found or loaded/, 'Non existant access method threw an error';
# test default factory values
# Now onto the nitty gritty tests of the modules methods
test_skip(-tests => 9, -requires_module => 'SOAP::Lite');
my $array_ref = $factory->available_categories;
isa_ok( $array_ref, 'ARRAY' );
ok( grep(/protein/i, @$array_ref), 'available_categories returned category with protein' );
$array_ref = $factory->available_analyses;
isa_ok( $array_ref, 'ARRAY' );
ok( grep(/seqret/i, @$array_ref), 'available_analyses returned category with seqret' );
$array_ref = $factory->available_analyses('edit');
isa_ok( $array_ref, 'ARRAY' );
ok( grep(/seqret/i, @$array_ref), 'available_analyses("edit") returned something' );
my $service;
lives_ok {$service = $factory->create_analysis('edit.seqret')};
skip ("create_analysis failed :$@", 1) if $@;
isa_ok( $service, 'Bio::Tools::Run::Analysis::soap' );
Jump to Line
Something went wrong with that request. Please try again.