r58571 - in /trunk/libnet-https-any-perl: debian/changelog debian/control debian/rules t/get-cryptssleay.t t/get-netssleay.t t/post-cryptssleay.t t/post-netssleay.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu May 27 20:52:14 UTC 2010
Author: gregoa
Date: Thu May 27 20:51:50 2010
New Revision: 58571
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58571
Log:
Explicitly run only the non-network tests (closes: #583462).
Added:
trunk/libnet-https-any-perl/t/get-cryptssleay.t
trunk/libnet-https-any-perl/t/get-netssleay.t
trunk/libnet-https-any-perl/t/post-cryptssleay.t
trunk/libnet-https-any-perl/t/post-netssleay.t
Modified:
trunk/libnet-https-any-perl/debian/changelog
trunk/libnet-https-any-perl/debian/control
trunk/libnet-https-any-perl/debian/rules
Modified: trunk/libnet-https-any-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/debian/changelog?rev=58571&op=diff
==============================================================================
--- trunk/libnet-https-any-perl/debian/changelog (original)
+++ trunk/libnet-https-any-perl/debian/changelog Thu May 27 20:51:50 2010
@@ -1,3 +1,9 @@
+libnet-https-any-perl (0.10-3) UNRELEASED; urgency=low
+
+ * Explicitly run only the non-network tests (closes: #583462).
+
+ -- gregor herrmann <gregoa at debian.org> Thu, 27 May 2010 22:49:23 +0200
+
libnet-https-any-perl (0.10-2) unstable; urgency=low
* Remove network tests.
Modified: trunk/libnet-https-any-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/debian/control?rev=58571&op=diff
==============================================================================
--- trunk/libnet-https-any-perl/debian/control (original)
+++ trunk/libnet-https-any-perl/debian/control Thu May 27 20:51:50 2010
@@ -1,7 +1,7 @@
Source: libnet-https-any-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7)
+Build-Depends: debhelper (>= 7.0.50~)
Build-Depends-Indep: libnet-ssleay-perl, libcrypt-ssleay-perl, libwww-perl, libtie-ixhash-perl, liburi-perl, perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ivan Kohler <ivan-debian at 420.am>
Modified: trunk/libnet-https-any-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/debian/rules?rev=58571&op=diff
==============================================================================
--- trunk/libnet-https-any-perl/debian/rules (original)
+++ trunk/libnet-https-any-perl/debian/rules Thu May 27 20:51:50 2010
@@ -2,3 +2,6 @@
%:
dh $@
+
+override_dh_auto_test:
+ dh_auto_test -- TEST_FILES="t/00-load.t t/pod-coverage.t t/pod.t"
Added: trunk/libnet-https-any-perl/t/get-cryptssleay.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/t/get-cryptssleay.t?rev=58571&op=file
==============================================================================
--- trunk/libnet-https-any-perl/t/get-cryptssleay.t (added)
+++ trunk/libnet-https-any-perl/t/get-cryptssleay.t Thu May 27 20:51:50 2010
@@ -1,0 +1,41 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+ plan( tests=>4 );
+ $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' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/sslcheck.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#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_get(
+ { 'host' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/notfound.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (Not found) response');
+like($response2, qr/^404/i, 'Received 404 (Not found) response');
+
Added: trunk/libnet-https-any-perl/t/get-netssleay.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/t/get-netssleay.t?rev=58571&op=file
==============================================================================
--- trunk/libnet-https-any-perl/t/get-netssleay.t (added)
+++ trunk/libnet-https-any-perl/t/get-netssleay.t Thu May 27 20:51:50 2010
@@ -1,0 +1,39 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+ plan( tests=>4 );
+ use_ok( 'Net::HTTPS::Any', qw( https_get ) );
+}
+
+#200
+
+my($content, $response, %headers) = https_get(
+ { 'host' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/sslcheck.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#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_get(
+ { 'host' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/notfound.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (Not Found) response');
+like($response2, qr/^404/i, 'Received 404 (Not Found) response');
+
Added: trunk/libnet-https-any-perl/t/post-cryptssleay.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/t/post-cryptssleay.t?rev=58571&op=file
==============================================================================
--- trunk/libnet-https-any-perl/t/post-cryptssleay.t (added)
+++ trunk/libnet-https-any-perl/t/post-cryptssleay.t Thu May 27 20:51:50 2010
@@ -1,0 +1,42 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+ plan( tests=>4 );
+ $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' => 'www.google.com',
+ 'port' => 443,
+ 'path' => '/accounts/ServiceLoginAuth',
+ 'args' => { 'posted' => 'data' },
+ },
+ 'net_https_any_test' => 1,
+);
+
+#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' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/notfound.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (Not FOund) response');
+like($response2, qr/^404/i, 'Received 404 (Not Found) response');
+
Added: trunk/libnet-https-any-perl/t/post-netssleay.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-https-any-perl/t/post-netssleay.t?rev=58571&op=file
==============================================================================
--- trunk/libnet-https-any-perl/t/post-netssleay.t (added)
+++ trunk/libnet-https-any-perl/t/post-netssleay.t Thu May 27 20:51:50 2010
@@ -1,0 +1,39 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+
+BEGIN {
+ plan( tests=>4 );
+ use_ok 'Net::HTTPS::Any', 'https_post';
+};
+
+#200
+my($content, $response, %headers) = https_post(
+ { 'host' => 'www.google.com',
+ 'port' => 443,
+ 'path' => '/accounts/ServiceLoginAuth',
+ 'args' => { 'posted' => 'data' },
+ },
+ 'net_https_any_test' => 1,
+);
+
+#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' => 'www.fortify.net',
+ 'port' => 443,
+ 'path' => '/notfound.html',
+ },
+ 'net_https_any_test' => 1,
+);
+
+#like($response2, qr/^HTTP\/[\d\.]+\s+404/i, 'Received 404 (Not Found) response');
+like($response2, qr/^404/i, 'Received 404 (Not Found) response');
+
More information about the Pkg-perl-cvs-commits
mailing list