Bio::DB::Fasta and writing out rich format

# would be additional tests in t/LocalDB/DBFasta.t
# test out writing the Bio::PrimarySeq::Fasta objects with SeqIO

$db = Bio::DB::Fasta->new($test_dbdir, -reindex => 1);
my $out = Bio::SeqIO->new(-format => 'genbank');
# works
$primary_seq = Bio::Seq->new(-primary_seq => $db->get_Seq_by_acc('AW057119'));
# fails
#$primary_seq = $db->get_Seq_by_acc('AW057119');

eval {
    warn(ref($primary_seq),"\n");
    $out->write_seq($primary_seq) 
};
ok(!$@);

$out = Bio::SeqIO->new(-format => 'embl');

eval {
    $out->write_seq($primary_seq) 
};
ok(!$@);