Test defaultValuesInit (#558)
This commit is contained in:
parent
b5c1761bf4
commit
8ae9672cf3
|
@ -7,7 +7,7 @@
|
||||||
|
|
||||||
package My::Package;
|
package My::Package;
|
||||||
|
|
||||||
use Test::More tests => 4;
|
use Test::More tests => 5;
|
||||||
|
|
||||||
BEGIN {
|
BEGIN {
|
||||||
use_ok('Lemonldap::NG::Handler::Vhost');
|
use_ok('Lemonldap::NG::Handler::Vhost');
|
||||||
|
@ -23,6 +23,28 @@ our @ISA = qw( Lemonldap::NG::Handler::Vhost Lemonldap::NG::Handler::Simple );
|
||||||
my $h;
|
my $h;
|
||||||
$h = bless {}, 'My::Package';
|
$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(
|
ok(
|
||||||
$h->locationRulesInit(
|
$h->locationRulesInit(
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue
Block a user