Test defaultValuesInit (#558)

environments/ppa-mbqj77/deployments/1
Clément Oudot 12 years ago
parent b5c1761bf4
commit 8ae9672cf3
  1. 24
      lemonldap-ng-handler/t/05-Lemonldap-NG-Handler-Vhost.t

@ -7,7 +7,7 @@
package My::Package;
use Test::More tests => 4;
use Test::More tests => 5;
BEGIN {
use_ok('Lemonldap::NG::Handler::Vhost');
@ -23,6 +23,28 @@ our @ISA = qw( Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple );
my $h;
$h = bless {}, 'My::Package';
open STDERR, '>/dev/null';
ok(
$h->defaultValuesInit(
{
https => 0,
port => 0,
maintenance => 0,
vhostOptions => {
www1 => {
vhostHttps => 1,
vhostPort => 443,
vhostMaintenance => 1,
vhostAliases => 'www2 www3',
}
},
}
),
'defaultValuesInit'
);
ok(
$h->locationRulesInit(
{

Loading…
Cancel
Save