# -*-Perl-*-
# $Id: asciitree.t,v 1.1.6.1 2006/10/16 17:08:15 sendu Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
use vars qw($NUMTESTS $out_file);
BEGIN {
        $NUMTESTS = 2;
        use File::Spec;
        $out_file = File::Spec->catfile(qw(t data tmp-asciitree));
        # to handle systems with no installed Test module
        # we include the t dir (where a copy of Test.pm is located)
        # as a fallback
        eval { require Test; };
        if ( $@ ) {
                use lib 't';
        }
        use Test;
        plan tests => $NUMTESTS;
}
use Bio::SeqIO::asciitree;
use Bio::Root::IO;
my $verbose = $ENV{'BIOPERLDEBUG'};
ok(1);
# asciitree is a write-only format
my $in = Bio::SeqIO->new(-format => 'genbank',
                                                                 -verbose => $verbose,
                                                                 -file => Bio::Root::IO->catfile
                                                                 qw(t data AE003644_Adh-genomic.gb) );
my $seq = $in->next_seq;
my $out = Bio::SeqIO->new(-file => ">$out_file",
                                                                  -verbose => $verbose,
                                                                  -format => 'asciitree');
$out->write_seq($seq);
ok (-e $out_file);
END {
        unlink $out_file if -e $out_file;
}