view release on metacpan or  search on metacpan

t/EMBL.t  view on Meta::CPAN

use strict;

BEGIN {
    use Test::Most tests => 16;
    use Test::RequiresInternet;

    # test_begin(-tests => 16,
    #            -requires_modules    => [qw(IO::String
    #                                        LWP::UserAgent
    #                                        HTTP::Request::Common)],
    #            -requires_networking => 1);
    use_ok('Bio::DB::EMBL');
}

my $verbose = $ENV{'BIOPERLDEBUG'};

my ($db,$seq,$seqio);
# get a single seq

$seq = $seqio = undef;