3 # ## Bioperl Test Harness Script for Modules
8 test_begin
(-tests
=> 8);
9 use_ok
('Bio::Tools::Run::Seg');
14 my $factory = Bio
::Tools
::Run
::Seg
->new();
15 isa_ok
$factory, 'Bio::Tools::Run::Seg';
16 my $prot_file= test_input_file
('test_prot.FastA');
18 my $seq1 = Bio
::Seq
->new();
19 my $seqstream = Bio
::SeqIO
->new(-file
=>$prot_file, -fmt
=>'Fasta');
20 $seq1 = $seqstream->next_seq();
23 test_skip
(-requires_executable
=> $factory,
26 my @feat = $factory->predict_protein_features($seq1);
28 isa_ok
$feat[0],'Bio::SeqFeatureI';
29 is
($feat[0]->start, 214);
30 is
($feat[0]->end, 226);
31 is
($feat[0]->score, 2.26);