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_networking => 1);
  12     use_ok 'Bio::Root::IO';
  13 }
  14
  15 my $TESTURL = 'http://www.google.com/index.html';
  16
  17 my $rio;
  18
  19 ok $rio = Bio::Root::IO->new(-url=>$TESTURL), 'default -url method';
  20 lives_ok {$rio = Bio::Root::IO->new(-url=>$TESTURL)};