vcs.maemo.org Git - pkg-perl/blob - deb-src/libnet-ssleay-perl/libnet-ssleay-perl-1.35/t/external/15_altnames.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Net::SSLeay;
   7
   8 my @sites = qw(
   9         signin.ebay.de
  10 );
  11
  12 @sites = split(/:/, $ENV{SSLEAY_ALTNAME_SITES})
  13     if exists $ENV{SSLEAY_ALTNAME_SITES};
  14
  15 if (@sites) {
  16     plan tests => scalar @sites * 3;
  17 }
  18 else {
  19     plan skip_all => 'No external hosts specified for SSL testing';
  20 }
  21
  22 for my $site (@sites) {
  23     SKIP: {
  24         my ($p, $r, $c) =  Net::SSLeay::sslcat($site, 443, 'GET / HTTP/1.0');
  25         skip 'could not connect', 3 unless defined $c;
  26         pass('connection');
  27
  28         my @altnames = Net::SSLeay::X509_get_subjectAltNames($c);
  29         ok(scalar @altnames, 'get_subjectAltNames works');
  30         ok(scalar @altnames % 2 == 0, 'get_subjectAltNames returns pairs');
  31     }
  32 }