1# -*-Perl-*- Test Harness script for Bioperl
2# $Id$
3
4use strict;
5
6BEGIN {
7	use Bio::Root::Test;
8
9	test_begin(-tests => 15,
10			   -requires_modules => [qw(XML::SAX
11									    XML::SAX::Writer
12										XML::SAX::Base)]);
13
14	use_ok('Bio::SeqIO');
15}
16
17my $verbose = test_debug();
18
19my $str = Bio::SeqIO->new(-format => 'bsml_sax',
20			  -verbose => $verbose,
21			  -file => test_input_file('U83300.bsml'));
22my $seq = $str->next_seq;
23isa_ok($seq, 'Bio::Seq::RichSeqI');
24my @refs = $seq->annotation->get_Annotations('reference');
25is(@refs, 2);
26is($seq->display_id,'MIVN83300');
27is($seq->molecule ,'dna');
28ok(! $seq->is_circular);
29is($seq->get_dates,2);
30is($seq->accession_number, 'U83300');
31is($seq->seq_version,1);
32my @feats = $seq->get_SeqFeatures;
33is(@feats, 2);
34is($feats[1]->start, 1);
35is($feats[1]->end, 946);
36is($feats[1]->get_tag_values('db_xref'), 3);
37is($seq->annotation->get_Annotations('reference'),2);
38is($seq->annotation->get_Annotations('dblink'),2);
39