# testing Bio::DB::HIVAnnotProcessor.pm
# $Id: HIVAnnotProcessor.t 231 2008-12-11 14:32:00Z maj $
use strict;
use warnings;
BEGIN {
use Bio::Root::Test;
test_begin(
-tests => 11,
);
use_ok('Bio::Seq');
use_ok('Bio::SeqIO');
use_ok('Bio::DB::HIV::HIVAnnotProcessor');
}
my $tobj = new Bio::DB::HIV::HIVAnnotProcessor();
#object tests
isa_ok($tobj, 'Bio::DB::HIV::HIVAnnotProcessor');
#compliance tests
isa_ok($tobj, 'Bio::Root::Root');
can_ok($tobj, qw( source_stream next_seq write_seq ));
#methods
can_ok($tobj, qw( hiv_query ));
#exception tests
throws_ok {$tobj->hiv_query(bless({},"narb"))} qr/BadParameter/, "bad type set exception";
#stream tests
my $fas = test_output_file();
open my $FAS, '>', $fas or die "Could not write file '$fas': $!\n";
print $FAS ">goob\natcg\n";
close $FAS;
ok( $tobj->source_stream(new Bio::SeqIO(-file=>$fas, -format=>'fasta')), "attach stream");
throws_ok {$tobj->write_seq(new Bio::Seq(-sequence=>"atcg"))} qr/IOException/, "write exception";
ok( $tobj->next_seq, "access stream");