diff options
| author | ivan <ivan> | 2008-06-16 18:32:54 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-06-16 18:32:54 +0000 |
| commit | 11c117de3d421d0b9843f6fdfeea3933c3d47fe5 (patch) | |
| tree | 824d09ddcdb82070b224ac85d191cf610dc2ad58 /t/post-cryptssleay.t | |
| parent | 97e89d11919d233afc4bbe3a2c7f14a4d116584b (diff) | |
add debugging, properly export subs
Diffstat (limited to 't/post-cryptssleay.t')
| -rw-r--r-- | t/post-cryptssleay.t | 12 |
1 files changed, 5 insertions, 7 deletions
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', |