#!/usr/local/bin/perl
#################################################################
#
# $Id: 21_test_param_rules.t,v 1.3 2005/11/07 16:49:10 erwan Exp $
#
# test passing rules via import parameters
#
# 050919 erwan Created
# 051007 erwan Fix dependencies
#
use strict;
use warnings;
use Test::More tests => 2;
use lib ("./t/", "../lib/", "./lib/");
use Utils;
BEGIN {
# using Log::Localized with global verbosity off but a config file
Utils::backup_log_settings();
my $conf = "".
"main:: = 2\n".
"dolly = 4\n".
"Man::On::The::Moon = 3\n".
"Foo::Bar::* = 1\n";
use_ok('Log::Localized','log',1,'rules',$conf);
};
my $want_rules = {
"main::" => 2,
"main::dolly" => 4,
"Man::On::The::Moon" => 3,
"Foo::Bar::*" => 1,
};
my %rules = Log::Localized::_test_verbosity_rules();
is_deeply(\%rules,$want_rules,"checking that rules were properly loaded");
Utils::restore_log_settings();