#!/usr/local/bin/perl
#################################################################
#
# $Id: 12_test_option_rules.t,v 1.5 2005/11/07 16:49:09 erwan Exp $
#
# 050919 erwan Created
# 051007 erwan Fix dependencies
#
use strict;
use warnings;
use Test::More;
use lib ("./t/", "../lib/", "./lib/");
use Utils;
my $dirname;
BEGIN {
eval "use File::Temp qw /tmpnam/";
plan skip_all => "File::Temp required for testing option rules" if $@;
plan tests => 2;
Utils::backup_log_settings();
my $conf = "".
"[12_test_option_rules.t]\n".
"main:: = 2\n".
"main::test2 = 4\n".
"Foo::test1 = 3\n".
"What::Ever = 4\n".
"Foo::Bar::* = 1\n";
# write config in /tmp
unlink "new_rules.conf";
open(OUT,"> new_rules.conf")
or die "ERROR: failed to open [new_rules.conf] for writting:$!\n";
print OUT $conf;
close(OUT)
or die "ERROR: failed to close [new_rules.conf]:$!\n";
# redirecting Log::Localized to config file located in local dir
use_ok('Log::Localized',
'rules',
"Log::Localized::use_rules = new_rules.conf",
);
}
my $want_rules = {
"main::" => 2,
"main::test2" => 4,
"Foo::test1" => 3,
"Foo::Bar::*" => 1,
"What::Ever" => 4,
};
my %rules = Log::Localized::_test_verbosity_rules();
is_deeply(\%rules,$want_rules,"checking that rules were properly loaded");
unlink 'new_rules.conf';
Utils::restore_log_settings();