Permalink
Browse files

From Paul Cantalupo (IRC: virushunter). Fixes bug #3298, adds 3 tests.

  • Loading branch information...
1 parent c4aaee1 commit 4e947ea831537a1212cbdb3e494ded9669b7c2a9 @jhannah jhannah committed Oct 30, 2012
Showing with 596 additions and 2 deletions.
  1. +1 −1 Bio/SearchIO/blast.pm
  2. +11 −1 t/SearchIO/blast.t
  3. +584 −0 t/data/multiresult_blastn+.bls
@@ -1272,8 +1272,8 @@ sub next_result {
last;
}
elsif (/^Query=/) {
- $self->_pushback($reportline) if $reportline;
$self->_pushback($_);
+ $self->_pushback($reportline) if $reportline;
last PARSER;
}
View
@@ -8,7 +8,7 @@ BEGIN {
use lib '.';
use Bio::Root::Test;
- test_begin(-tests => 1354);
+ test_begin(-tests => 1357);
use_ok('Bio::SearchIO');
}
@@ -2201,3 +2201,13 @@ is( $hsp->start('query'), 3255 );
is( $hsp->start('sbjct'), 128516 );
is( $hsp->end('query'), 5720 );
is( $hsp->end('sbjct'), 131000 );
+
+# testing for Bug #3298
+$searchio = Bio::SearchIO->new(
+ '-format' => 'blast',
+ '-file' => test_input_file('multiresult_blastn+.bls')
+);
+
+is ($searchio->next_result->algorithm_version, '2.2.25+', "testing Bug 3298");
+is ($searchio->next_result->algorithm_version, '2.2.25+', "testing Bug 3298");
+is ($searchio->next_result->algorithm_version, '2.2.25+', "testing Bug 3298");
Oops, something went wrong.

0 comments on commit 4e947ea

Please sign in to comment.