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