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-cryptssleay.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 't/post-cryptssleay.t') diff --git a/t/post-cryptssleay.t b/t/post-cryptssleay.t index 2bf52ff..c9f13ab 100644 --- a/t/post-cryptssleay.t +++ b/t/post-cryptssleay.t @@ -21,7 +21,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 (Not Found) response'); +like($response, qr/^200/i, 'Received 200 (Not Found) response'); ok( length($content), 'Received content' ); @@ -35,5 +36,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 (OK) response'); +like($response2, qr/^404/i, 'Received 404 (OK) response'); -- cgit v1.2.1