- Updated servers used for testing in examples and tests

- Supress uninitialized value warnings from Net::SSLeay

diff --git a/Changes b/Changes
index de27f8b..b3e013b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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,
 );