HTTP-Server-Brick
view release on metacpan or search on metacpan
t/serving.t view on Meta::CPAN
diag( '' );
diag( "Using port: $port and host: $host for test server.");
diag( 'If these are not suitable settings on your machine, set the environment' );
diag( 'variables HSB_TEST_PORT and HSB_TEST_HOST to something suitable.');
diag( '' );
run_tests( ssl => 0, fork => 0 );
run_tests( ssl => 0, fork => 1 );
SKIP: {
skip "can't run SSL tests without HTTP::Daemon::SSL and IO::Socket::SSL",
TEST_GROUP * 2
unless eval "require HTTP::Daemon::SSL; require IO::Socket::SSL; 1";
run_tests( ssl => 1, fork => 0 );
run_tests( ssl => 1, fork => 1 );
}
sub test_url {
my ($scheme, $method, $uri, $code, $regex, $test_name, $mime_type) = @_;
my $url = "$scheme://$host:$port$uri";
my $ua = LWP::UserAgent->new();
Certificate:
Data:
Version: 1 (0x0)
Serial Number: 2 (0x2)
Signature Algorithm: md5WithRSAEncryption
Issuer: C=US, ST=Some-State, O=Dummy IO::Socket::SSL Certificate Authority, CN=Dummy IO::Socket::SSL Certificate Authority
Validity
Not Before: Jul 20 16:06:37 2002 GMT
Not After : Dec 5 16:06:37 2029 GMT
Subject: C=US, ST=Some-State, O=IO::Socket::SSL Dummy Server Certificate, CN=IO::Socket::SSL Dummy Server Certificate
Subject Public Key Info:
Public Key Algorithm: rsaEncryption
RSA Public Key: (512 bit)
Modulus (512 bit):
00:9f:27:5f:4a:8a:35:4a:7f:3f:d1:80:25:96:26:
0a:da:af:9a:6d:bc:23:ba:71:91:5b:40:d1:2d:2b:
c8:60:2a:ef:e9:54:e5:a2:64:0a:57:90:35:bf:cd:
b6:36:f3:25:53:68:65:2c:d8:d0:f9:b7:f3:7f:2e:
f8:e2:3d:e0:dd
Exponent: 65537 (0x10001)
( run in 0.312 second using v1.01-cache-2.11-cpan-fd5d4e115d8 )