From 706bd8752a575c6877c15530d9241e1983f13d8e Mon Sep 17 00:00:00 2001 From: cjfields Date: Wed, 3 Dec 2008 02:49:52 +0000 Subject: [PATCH] Add a couple of tests for seq_id (small but significant inconsistency btwn blast and blast_pull). Should rectify this prior to 1.6. svn path=/bioperl-live/trunk/; revision=15069 --- t/SearchIO/blast.t | 4 +++- t/SearchIO/blast_pull.t | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/t/SearchIO/blast.t b/t/SearchIO/blast.t index c03bb35e4..eca536ab2 100644 --- a/t/SearchIO/blast.t +++ b/t/SearchIO/blast.t @@ -7,7 +7,7 @@ BEGIN { use lib 't/lib'; use BioperlTest; - test_begin(-tests => 1089); + test_begin(-tests => 1091); use_ok('Bio::SearchIO'); } @@ -408,6 +408,8 @@ while( my $hit = $result->next_hit ) { is(sprintf("%.4f",$hsp->frac_identical('hit')), 0.9831); is($hsp->query->frame(), 0); is($hsp->hit->frame(), 0); + is($hsp->query->seq_id, ''); + is($hsp->hit->seq_id, 'gb|AY052359.1|'); is($hsp->gaps('query'), 0); is($hsp->gaps('hit'), 1); is($hsp->gaps, 1); diff --git a/t/SearchIO/blast_pull.t b/t/SearchIO/blast_pull.t index 55d1b58cf..da24e8f3e 100644 --- a/t/SearchIO/blast_pull.t +++ b/t/SearchIO/blast_pull.t @@ -228,9 +228,11 @@ while( my $hit = $result->next_hit ) { is(sprintf("%.4f",$hsp->frac_identical('hit')), 0.9831); is($hsp->query->frame(), 0); is($hsp->hit->frame(), 0); + is($hsp->query->seq_id, ''); + is($hsp->hit->seq_id, 'gb|AY052359.1|'); is($hsp->gaps('query'), 0); is($hsp->gaps('hit'), 1); - is($hsp->gaps, 1); + is($hsp->gaps, 1); is($hsp->query_string, 'aggaatgctgtttaattggaatcgtacaatggagaatttgacggaaatagaatcaacgat'); is($hsp->hit_string, 'aggaatgctgtttaattggaatca-acaatggagaatttgacggaaatagaatcaacgat'); is($hsp->homology_string, '||||||||||||||||||||||| |||||||||||||||||||||||||||||||||||'); -- 2.11.4.GIT