X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=t%2Fpost-cryptssleay.t;h=2bf52ffc8690ec0aea189fa9da30b82fa98ab112;hb=11c117de3d421d0b9843f6fdfeea3933c3d47fe5;hp=2ddda1bd647c663d460e123a444f809dd9f45e0c;hpb=97e89d11919d233afc4bbe3a2c7f14a4d116584b;p=Net-HTTPS-Any.git diff --git a/t/post-cryptssleay.t b/t/post-cryptssleay.t index 2ddda1b..2bf52ff 100644 --- a/t/post-cryptssleay.t +++ b/t/post-cryptssleay.t @@ -5,17 +5,15 @@ use warnings; use Test::More; BEGIN { + plan( tests=>4 ); $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; -} - -plan( tests=>4 ); - -use_ok 'Net::HTTPS::Any'; + use_ok 'Net::HTTPS::Any', 'https_post'; +}; #200 -my($content, $response, %headers) = Net::HTTPS::Any::https_post( +my($content, $response, %headers) = https_post( { 'host' => 'secure.sisd.com', 'port' => 443, 'path' => '/freeside/index.html', @@ -29,7 +27,7 @@ ok( length($content), 'Received content' ); #404 -my($content2, $response2, %headers2) = Net::HTTPS::Any::https_get( +my($content2, $response2, %headers2) = https_post( { 'host' => 'secure.sisd.com', 'port' => 443, 'path' => '/freeside/notfound.html',