t/Root/RootIO.t

   1 ##############################################
   2 # tests http retrieval
   3 ##############################################
   4
   5 use strict;
   6 use warnings;
   7
   8 BEGIN {
   9     use Bio::Root::Test;
  10     test_begin(-tests => 3,
  11                -requires_modules => ["LWP::Protocol::https"],
  12                -requires_networking => 1);
  13     use_ok 'Bio::Root::IO';
  14 }
  15
  16 my $TESTURL = 'https://bioperl.org';
  17
  18 my $rio;
  19
  20 ok $rio = Bio::Root::IO->new(-url=>$TESTURL), 'default -url method';
  21 lives_ok {$rio = Bio::Root::IO->new(-url=>$TESTURL)};