From 90eca2090a47dd4755de4fa707597ff2c025ecaa Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 1 May 2010 20:05:57 +0000 Subject: - Pull in changes from Business::OnlinePayment::HTTPS 0.09 from Business::OnlinePayment 3.00 - Default Content-Type to application/x-www-form-urlencoded - Added WHY THIS MODULE section to POD - Updated tests for new world of not returning HTTP as part of the response code - Removed meaningless Content-Type handling from https_get - Added/documented debugging option --- t/post-netssleay.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 't/post-netssleay.t') diff --git a/t/post-netssleay.t b/t/post-netssleay.t index 14fc98b..307bdb3 100644 --- a/t/post-netssleay.t +++ b/t/post-netssleay.t @@ -19,7 +19,8 @@ my($content, $response, %headers) = https_post( 'net_https_any_test' => 1, ); -like($response, qr/^HTTP\/[\d\.]+\s+200/i, 'Received 200 (OK) 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' ); @@ -33,5 +34,6 @@ my($content2, $response2, %headers2) = https_post( 'net_https_any_test' => 1, ); -like($response2, qr/^HTTP\/[\d\.]+\s+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'); -- cgit v1.2.1