1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: chaosxml.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 2,
11
-requires_module => 'Data::Stag');
16
my $verbose = test_debug();
18
# currently chaosxml is write-only
19
my $in = Bio::SeqIO->new(-format => 'genbank',
21
-file => test_input_file('AE003644_Adh-genomic.gb'));
23
my $seq = $in->next_seq;
25
my $out_file = test_output_file();
26
my $out = Bio::SeqIO->new(-file => ">$out_file",
28
-format => 'chaosxml');
29
$out->write_seq($seq);