File: 03https.pm

package info (click to toggle)
libapache-ssllookup-perl 2.00-04-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 216 kB
  • sloc: perl: 209; makefile: 11; ansic: 10; sh: 5
file content (34 lines) | stat: -rwxr-xr-x 459 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
package TestSSL::03https;

use strict;
use warnings FATAL => qw(all);

use Apache::Test qw(-withtestmore);

use Apache2::Const -compile => qw(OK);

sub handler {

  my $r = shift;

  plan $r, tests => 3;

  {
    use_ok('Apache::SSLLookup');
  }

  {
    can_ok('Apache::SSLLookup', 'is_https');
  }

  {
    $r = Apache::SSLLookup->new($r);

    ok(defined $r->is_https,
       'is_https() returned a defined value');
  }

  return Apache2::Const::OK;
}

1;