1# -*-Perl-*- Test Harness script for Bioperl 2# $Id$ 3 4use strict; 5 6BEGIN { 7 use Bio::Root::Test; 8 9 test_begin(-tests => 12); 10 11 use_ok('Bio::SearchIO'); 12 use_ok('Bio::SeqIO'); 13} 14 15# test SimilarityPair 16 17ok my $seq = (Bio::SeqIO->new('-format' => 'fasta', 18 '-file' => test_input_file('AAC12660.fa')))->next_seq(); 19isa_ok $seq, 'Bio::SeqI'; 20ok my $blast = Bio::SearchIO->new('-file'=>test_input_file('blast.report'), '-format' => 'blast'); 21isa_ok $blast, 'Bio::SearchIO'; 22my $r = $blast->next_result; 23ok my $hit = $r->next_hit; 24isa_ok $hit, 'Bio::Search::Hit::HitI'; 25ok my $sim_pair = $hit->next_hsp; 26isa_ok $sim_pair, 'Bio::SeqFeatureI'; 27ok $seq->add_SeqFeature($sim_pair); 28is $seq->all_SeqFeatures(), 1; 29