1# -*-Perl-*- Test Harness script for Bioperl 2# $Id: SearchIO_wise.t 11733 2007-10-26 18:22:10Z jason $ 3 4use strict; 5 6BEGIN { 7 use Bio::Root::Test; 8 9 test_begin(-tests => 20); 10 11 use_ok('Bio::SearchIO'); 12} 13 14my $parser = Bio::SearchIO->new(-file => test_input_file('genewise.out'), 15 -format => 'wise', 16 -wisetype => 'genewise'); 17my $result = $parser->next_result; 18my $hit = $result->next_hit; 19is($result->query_name, 'SINFRUP00000067802'); 20is($hit->name, 'Scaffold_2042.1'); 21 22is($hit->score, 2054.68); 23my $hsp = $hit->next_hsp; 24 25is($hsp->query->start,22265); 26is($hsp->query->end,22396); 27is($hsp->query->strand,1); 28is($hsp->query->score, 2054.68); 29 30is($hsp->hit->start,1); 31is($hsp->hit->end,44); 32is($hsp->hit->strand,0); 33is($hsp->hit->score, 2054.68); 34 35$hsp = $hit->next_hsp; 36 37is($hsp->query->start,24224); 38is($hsp->query->end,24328); 39 40is($hsp->hit->start,45); 41is($hsp->hit->end,79); 42 43$hsp = $hit->next_hsp; 44 45is($hsp->query->start,24471); 46is($hsp->query->end,24513); 47 48is($hsp->hit->start,80); 49is($hsp->hit->end,93); 50