# -*-Perl-*-
# $Id: exp.t,v 1.3 2005/09/17 02:11:21 bosborne 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($error $NUMTESTS);
BEGIN {
        $NUMTESTS = 3;
        $error = 0;
        # 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';
        }
        # SeqIO modules abi.pm, ctf.pm, exp.pm, pln.pm, ztr.pm
        # all require Bio::SeqIO::staden::read, part of bioperl-ext
        eval {
                require Bio::SeqIO::staden::read;
        };
        if ( $@ ) {
                $error = 1;
                warn "Bio::SeqIO::staden::read of bioperl-ext is not installed or is installed incorrectly - skipping exp.t tests\n";
   }
        use Test;
        plan tests => $NUMTESTS;
}
END { 
        foreach ( $Test::ntest..$NUMTESTS) {
                skip('Unable to run all of the exp tests',1);
   }
}
exit(0) if ( $error == 1 );
use Bio::SeqIO::exp;
use Bio::Root::IO;
my $verbose = $ENV{'BIOPERLDEBUG'};
ok(1);
my $io = Bio::SeqIO->new(-format => 'exp',
                         -verbose => $verbose,
                         -file => Bio::Root::IO->catfile
                         (qw(t data readtest.exp) ));
ok(my $seq = $io->next_seq);
ok($seq->seq, "GATGATTCCGGCTTCGGACGACTCTAGAGGATCCCCATTTTTATAGTTTTTATCTTGTAATAGATGTTTAGATTTTTCGTTGTAATTATTTTCTTTATTGTTGAAATTAGTATCTCTGGGTAATTTATCATATTCTCTGGAAAATGATTTACTATCACTAGATACTTCATAAGATTTATAATCTTTATTATGAAAATCATCTCTATTTTTCAAATTATTATTATATCTATCAAAGTTTCTGTCTTCATTATATCTATTAGCATATCTATCTTTATCTTTATCCCTATCACTATATCTATCATATGGTTCATCTTGTTCAACCGATCAGACTCGATTCGCCATCGCCTCTAACGGATGGCCGCTCCCCCTCTCATACCTCGCTCCCCTCGACATCCCCCGTCTCGCCACCCTATCCGCCCCCTTCATCACCCCCCCTTATCCACACCCTCACCCCCCGCATCGCGCACCCACGACCACCCGAAGAACCGCCCTTACTCCCAAGTACGCCCCGACCTCCATCACCCTATGCGGTACCACTCCCACCACACCCAGTCCTACTTTCGCCCGCACATCGGCCCCGCTTCAGACAGCTCCCAACTACGCAACCCACGCTTGTTCTTGTTCACACTCGAATACTCGAATCTCTCATTACTCCGCGGACTCCGCCGCACCTGTGCACCATTAACTGTGTAGCGCCTGAACCGGCACCTCTGATTACCACTTCCTCCACCAGCACAGTCCTATTACCGCATGTCGCTCTGCTAAGACAGTGCAAGACTCTGCGGTCGCTCTGACCCGCATCCGCCAGGGCACCTCTCACCCTCGCTGGCCACCCCGCCCCCCTCTCCCTGCCCCTTCATTCCCCCAAACCGCTTTCAACGGGACACACCCCTCCGCGGCGGACCACAACTCGCCGTCGGCCACCACTCACACCTTCCCTCCTCCTTCCCCCACATCACGCCAACCCCGTGGGACGGCTCTCCCGCGGCTACGACGCGCAACCCCCCCTCGCCGCTTCCCCCCCAACTTCCCACGGGCTCCCCTCCGCCCCTTACCCGCGAGGAGCTTCACCCGCGAACCACCTCCCCCCTTTCCCAACAGCACCG");