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

diff --git a/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/15_altnames.t b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/15_altnames.t
new file mode 100644
index 0000000..9548aa6
--- /dev/null
+++ b/dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/15_altnames.t
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+use Net::SSLeay;
+
+my @sites = qw(
+        signin.ebay.de
+);
+
+@sites = split(/:/, $ENV{SSLEAY_ALTNAME_SITES})
+    if exists $ENV{SSLEAY_ALTNAME_SITES};
+
+if (@sites) {
+    plan tests => scalar @sites * 3;
+}
+else {
+    plan skip_all => 'No external hosts specified for SSL testing';
+}
+
+for my $site (@sites) {
+    SKIP: {
+        my ($p, $r, $c) =  Net::SSLeay::sslcat($site, 443, 'GET / HTTP/1.0');
+        skip 'could not connect', 3 unless defined $c;
+        pass('connection');
+
+        my @altnames = Net::SSLeay::X509_get_subjectAltNames($c);
+        ok(scalar @altnames, 'get_subjectAltNames works');
+        ok(scalar @altnames % 2 == 0, 'get_subjectAltNames returns pairs');
+    }
+}