3 # ## Bioperl Test Harness Script for Modules
7 eval { require Test
; };
14 plan tests => $NTESTS;
18 foreach ( $Test::ntest..$NTESTS ) {
19 skip('Unable to run Seg tests, exe may not be installed',1);
23 use Bio::Tools::Run::Seg;
28 my $factory = Bio::Tools::Run::Seg->new();
29 ok $factory->isa('Bio::Tools::Run::Seg');
30 my $prot_file= Bio::Root::IO->catfile("t","data","test_prot.FastA");
32 my $seq1 = Bio::Seq->new();
33 my $seqstream = Bio::SeqIO->new(-file =>$prot_file, -fmt =>'Fasta');
34 $seq1 = $seqstream->next_seq();
36 my $seg_present = $factory->executable();
38 unless ($seg_present) {
39 warn("seg program not found. Skipping tests $Test::ntest to $NTESTS.\n");
43 my @feat = $factory->predict_protein_features($seq1);
45 ok $feat[0]->isa('Bio::SeqFeatureI');
46 ok ($feat[0]->start, 214);
47 ok ($feat[0]->end, 226);
48 ok ($feat[0]->score, 2.26);