Permalink
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (29 sloc) 856 Bytes
#!/usr/local/bin/perl
#-*-Perl-*-
# ## Bioperl Test Harness Script for Modules
# #
use strict;
BEGIN {
use Bio::Root::Test;
test_begin(-tests => 7);
use_ok('Bio::Tools::Run::Profile');
use_ok('Bio::SeqIO');
use_ok('Bio::Seq');
}
my @params;
my $db = test_input_file('prosite.dat');
push @params, ('DB',$db);
my $factory = Bio::Tools::Run::Profile->new(@params);
isa_ok $factory,'Bio::Tools::Run::Profile';
my $prot_file= test_input_file('profile_prot.FastA');
my $seq1 = Bio::Seq->new();
my $seqstream = Bio::SeqIO->new(-file =>$prot_file, -fmt =>'Fasta');
$seq1 = $seqstream->next_seq();
SKIP: {
test_skip(-requires_executable => $factory,
-tests => 3);
my @feat = $factory->predict_protein_features($seq1);
isa_ok $feat[0],'Bio::SeqFeatureI';
ok ($feat[0]->start, 15);
ok ($feat[0]->end, 340);
}