← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to t/response/TestModperl/perl_options.pm

  • Committer: Bazaar Package Importer
  • Author(s): Andres Salomon
  • Date: 2005-08-12 01:40:38 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050812014038-gjigefs55pqx4qc8
Tags: 2.0.1-3
Grr.  Really include perl.conf file; it got lost due to diff not
wanting to add an empty file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/response/TestModperl/perl_options.pm
5
5
use strict;
6
6
use warnings FATAL => 'all';
7
7
 
8
 
use Apache::RequestRec ();
9
 
use Apache::RequestIO ();
10
 
use Apache::RequestUtil ();
11
 
use Apache::ServerUtil ();
 
8
use Apache2::RequestRec ();
 
9
use Apache2::RequestIO ();
 
10
use Apache2::RequestUtil ();
 
11
use Apache2::ServerUtil ();
12
12
 
13
13
use Apache::Test;
14
14
use Apache::TestUtil;
15
15
 
16
 
use Apache::Const -compile => qw(OK);
 
16
use Apache2::Const -compile => qw(OK);
17
17
 
18
18
my @srv_plus  = qw(ChildInit ChildExit Fixup);
19
19
my @srv_minus = qw(PreConnection ProcessConnection Autoload
27
27
    plan $r, tests => @srv_plus + @srv_minus + @dir_plus + @dir_minus;
28
28
    my $s = $r->server;
29
29
 
30
 
    ok t_cmp(1, $s->is_perl_option_enabled($_),
 
30
    ok t_cmp($s->is_perl_option_enabled($_), 1,
31
31
             "PerlOptions +$_") for @srv_plus;
32
32
 
33
 
    ok t_cmp(0, $s->is_perl_option_enabled($_),
 
33
    ok t_cmp($s->is_perl_option_enabled($_), 0,
34
34
             "PerlOptions -$_") for @srv_minus;
35
35
 
36
 
    ok t_cmp(1, $r->is_perl_option_enabled($_),
 
36
    ok t_cmp($r->is_perl_option_enabled($_), 1,
37
37
             "PerlOptions +$_") for @dir_plus;
38
38
 
39
 
    ok t_cmp(0, $r->is_perl_option_enabled($_),
 
39
    ok t_cmp($r->is_perl_option_enabled($_), 0,
40
40
             "PerlOptions -$_") for @dir_minus;
41
41
 
42
 
    return Apache::OK;
 
42
    return Apache2::Const::OK;
43
43
}
44
44
 
45
45
1;