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