X-Git-Url: http://vcs.maemo.org/git/?a=blobdiff_plain;f=dev%2Farm%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Ft%2Fexternal%2F08_external.t;fp=dev%2Farm%2Flibnet-ssleay-perl%2Flibnet-ssleay-perl-1.35%2Ft%2Fexternal%2F08_external.t;h=db187ddc01500cd2f115d0f708f31ff36e7e6089;hb=f477fa73365d491991707e7ed9217b48d6994551;hp=0000000000000000000000000000000000000000;hpb=da95c414033799c3a62606f299c3c00b5c77ca11;p=dh-make-perl

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/08_external.t b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/08_external.t
new file mode 100644
index 0000000..db187dd
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/08_external.t
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+# Test complete connection a number of external SSL web servers
+
+use strict;
+use warnings;
+use Test::More;
+use Net::SSLeay;
+
+my @sites = qw(
+        www.cdw.com
+        banking.wellsfargo.com
+        perldition.org
+        alioth.debian.org
+);
+@sites = split(/:/, $ENV{SSLEAY_SITES}) if exists $ENV{SSLEAY_SITES};
+if (@sites) {
+    plan tests => scalar @sites * 2;
+}
+else {
+    plan skip_all => 'No external hosts specified for SSL testing';
+}
+
+my $site;
+for $site (@sites) {
+    SKIP: {
+        my ($p, $r, %h) =  Net::SSLeay::get_https($site, 443, '/');
+        skip 'could not connect', 2 unless defined $h{'CONTENT-TYPE'};
+        pass('connection');
+        ok($r =~ /^HTTP\/1/s, 'correct response');
+    }
+}