1 ##############################################
3 ##############################################
11 test_begin(-tests => 3,
12 -requires_networking => 1);
13 use_ok 'Bio::Root::IO';
16 my $TESTURL = 'http://www.google.com/index.html';
20 ok $rio = Bio::Root::IO->new(-url=>$TESTURL), 'default -url method';
21 lives_ok {$rio = Bio::Root::IO->new(-url=>$TESTURL)};