Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Update test suite to use Net::Curl

  • Loading branch information...
commit 12736fb52a13f388acc80d7509cc1c8397350452 1 parent b578577
@mrallen1 mrallen1 authored
Showing with 1 addition and 5 deletions.
  1. +0 −1  t/default_values.t
  2. +0 −1  t/error.t
  3. +1 −2  t/get.t
  4. +0 −1  t/set_values.t
View
1  t/default_values.t
@@ -2,7 +2,6 @@
use Test::More tests => 5;
use URI::file;
-use WWW::Curl;
BEGIN {
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
View
1  t/error.t
@@ -3,7 +3,6 @@
use Test::More tests => 2;
use URI::file;
use Test::Exception;
-use WWW::Curl;
BEGIN {
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
View
3  t/get.t
@@ -3,7 +3,6 @@
use Test::More tests => 5;
use Test::Exception;
use URI::file;
-use WWW::Curl;
BEGIN {
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
@@ -17,4 +16,4 @@ my $uri = URI::file->new_abs( 't/get.html' )->as_string;
ok( $lwpcurl->get( $uri ) , "Fetched: $uri" ) or die q{Can't get test page};
ok( $lwpcurl->get( $uri, "http://some.refer" ) , "Fetched: $uri" ) or die q{Can't get test page};
-throws_ok { $lwpcurl->get( "http://127.0.0.1/fooquuxbar.xhtml" ) } qr/error happened/;
+throws_ok { $lwpcurl->get( "http://127.0.0.1/fooquuxbar.xhtml" ) } 'Net::Curl::Easy::Code';
View
1  t/set_values.t
@@ -2,7 +2,6 @@
use Test::More tests => 4;
use URI::file;
-use WWW::Curl;
BEGIN {
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Placates taint-unsafe Cwd.pm in 5.6.1
Please sign in to comment.
Something went wrong with that request. Please try again.