diff options
| -rw-r--r-- | Changes | 2 | ||||
| -rw-r--r-- | lib/Net/HTTPS/Any.pm | 20 | ||||
| -rw-r--r-- | t/get-cryptssleay.t | 12 | ||||
| -rw-r--r-- | t/get-netssleay.t | 8 | ||||
| -rw-r--r-- | t/post-cryptssleay.t | 21 | ||||
| -rw-r--r-- | t/post-netssleay.t | 10 |
6 files changed, 38 insertions, 35 deletions
@@ -9,6 +9,8 @@ Revision history for Net-HTTPS-Any response code - Removed meaningless Content-Type handling from https_get - Added/documented debugging option + - Updated servers used for testing in examples and tests + - Supress uninitialized value warnings from Net::SSLeay 0.09 unrelesed - First version numbered 0.09 (based on diff --git a/lib/Net/HTTPS/Any.pm b/lib/Net/HTTPS/Any.pm index e03c5d7..f431fa8 100644 --- a/lib/Net/HTTPS/Any.pm +++ b/lib/Net/HTTPS/Any.pm @@ -55,19 +55,17 @@ our $VERSION = '0.10'; ( $page, $response, %reply_headers ) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/index.html', - 'args' => { 'field' => 'value' }, - #'args' => [ 'field'=>'value' ], #order preserved + 'path' => '/sslcheck.html', }, ); ( $page, $response, %reply_headers ) = https_post( - 'host' => 'secure.sisd.com', + 'host' => 'www.google.com', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/accounts/ServiceLoginAuth', 'args' => { 'field' => 'value' }, #'args' => [ 'field'=>'value' ], #order preserved ); @@ -168,6 +166,8 @@ sub https_get { if ( $ssl_module eq 'Net::SSLeay' ) { + no warnings 'uninitialized'; + import Net::SSLeay qw(get_https make_headers); my $headers = make_headers(%headers); @@ -284,13 +284,13 @@ sub https_post { if ( $ssl_module eq 'Net::SSLeay' ) { + no warnings 'uninitialized'; + import Net::SSLeay qw(post_https make_headers make_form); my $headers = make_headers(%headers); - if ($opts->{debug}) { - no warnings 'uninitialized'; - $Net::SSLeay::trace = $opts->{debug}; - } + $Net::SSLeay::trace = $opts->{'debug'} + if exists $opts->{'debug'} && $opts->{'debug'}; my $raw_data = ref($post_data) ? make_form(%$post_data) : $post_data; diff --git a/t/get-cryptssleay.t b/t/get-cryptssleay.t index 43ac5f4..53f1cdb 100644 --- a/t/get-cryptssleay.t +++ b/t/get-cryptssleay.t @@ -6,17 +6,17 @@ use Test::More; BEGIN { plan( tests=>4 ); - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Net::HTTPS::Any::skip_NetSSLeay=1; + $Net::HTTPS::Any::skip_NetSSLeay=1; use_ok 'Net::HTTPS::Any', 'https_get'; }; #200 my($content, $response, %headers) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/sslcheck.html', }, 'net_https_any_test' => 1, ); @@ -29,9 +29,9 @@ ok( length($content), 'Received content' ); #404 my($content2, $response2, %headers2) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/notfound.html', + 'path' => '/notfound.html', }, 'net_https_any_test' => 1, ); diff --git a/t/get-netssleay.t b/t/get-netssleay.t index 22a7e23..9ca788f 100644 --- a/t/get-netssleay.t +++ b/t/get-netssleay.t @@ -12,9 +12,9 @@ BEGIN { #200 my($content, $response, %headers) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/sslcheck.html', }, 'net_https_any_test' => 1, ); @@ -27,9 +27,9 @@ ok( length($content), 'Received content' ); #404 my($content2, $response2, %headers2) = https_get( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/notfound.html', + 'path' => '/notfound.html', }, 'net_https_any_test' => 1, ); diff --git a/t/post-cryptssleay.t b/t/post-cryptssleay.t index c9f13ab..168f1ea 100644 --- a/t/post-cryptssleay.t +++ b/t/post-cryptssleay.t @@ -6,36 +6,37 @@ use Test::More; BEGIN { plan( tests=>4 ); - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; - $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Net::HTTPS::Any::skip_NetSSLeay=1; + $Net::HTTPS::Any::skip_NetSSLeay=1; use_ok 'Net::HTTPS::Any', 'https_post'; }; #200 my($content, $response, %headers) = https_post( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.google.com', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/accounts/ServiceLoginAuth', + 'args' => { 'posted' => 'data' }, }, 'net_https_any_test' => 1, ); -#like($response, qr/^HTTP\/[\d\.]+\s+200/i, 'Received 200 (Not Found) response'); -like($response, qr/^200/i, 'Received 200 (Not Found) response'); +#like($response, qr/^HTTP\/[\d\.]+\s+200/i, 'Received 200 (OK) response'); +like($response, qr/^200/i, 'Received 200 (OK) response'); ok( length($content), 'Received content' ); #404 my($content2, $response2, %headers2) = https_post( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/notfound.html', + 'path' => '/notfound.html', }, 'net_https_any_test' => 1, ); -#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (OK) response'); -like($response2, qr/^404/i, 'Received 404 (OK) response'); +#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (Not FOund) response'); +like($response2, qr/^404/i, 'Received 404 (Not Found) response'); diff --git a/t/post-netssleay.t b/t/post-netssleay.t index 307bdb3..d5065b9 100644 --- a/t/post-netssleay.t +++ b/t/post-netssleay.t @@ -10,11 +10,11 @@ BEGIN { }; #200 - my($content, $response, %headers) = https_post( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.google.com', 'port' => 443, - 'path' => '/freeside/index.html', + 'path' => '/accounts/ServiceLoginAuth', + 'args' => { 'posted' => 'data' }, }, 'net_https_any_test' => 1, ); @@ -27,9 +27,9 @@ ok( length($content), 'Received content' ); #404 my($content2, $response2, %headers2) = https_post( - { 'host' => 'secure.sisd.com', + { 'host' => 'www.fortify.net', 'port' => 443, - 'path' => '/freeside/notfound.html', + 'path' => '/notfound.html', }, 'net_https_any_test' => 1, ); |