1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: Promoterwise.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 7);
12
use_ok('Bio::Tools::Promoterwise');
15
my $file = test_input_file('promoterwise.out');
16
my $parser = Bio::Tools::Promoterwise->new(-file=>$file);
17
isa_ok $parser,'Bio::Tools::Promoterwise';
19
while (my $fp = $parser->next_result){
22
my $first = $fp[0]->feature1;
23
my $second = $fp[0]->feature2;
25
my @sub = $first->sub_SeqFeature;
26
my @sub2 = $second->sub_SeqFeature;
29
is $sub2[0]->start,29;
32
is $sub[0]->score,1596.49