diff options
Diffstat (limited to 't/01conf12.t')
-rw-r--r-- | t/01conf12.t | 22 |
1 files changed, 5 insertions, 17 deletions
diff --git a/t/01conf12.t b/t/01conf12.t index 1435a70..c17f235 100644 --- a/t/01conf12.t +++ b/t/01conf12.t @@ -3,7 +3,6 @@ use lib qw(t lib); use strict; use Test; use TestConfig; -use Data::Dumper; plan(tests => 2); @@ -18,21 +17,10 @@ my $t = new TestConfig( 'file.passwd.root.dir' => '/root', 'core.group' => 'group' - ]); + ], + lexicon => { '*' => '*' } ); -print $t->canonical,"\n"; -ok(Data::Dumper->new([$t->as_hash]) - ->Sortkeys(1) - ->Useqq(1) - ->Terse(1) - ->Indent(0) - ->Dump, - '{"base" => "/etc","core" => {"file" => "passwd","group" => "group","home" => "/home"},"file" => {"passwd" => {"mode" => "0644","root" => {"dir" => "/root","uid" => 0}}}}'); +ok($t->canonical, + q{base="/etc" core.file="passwd" core.group="group" core.home="/home" file.passwd.mode="0644" file.passwd.root.dir="/root" file.passwd.root.uid=0}); -ok(Data::Dumper->new([$t->tree->File->as_hash]) - ->Sortkeys(1) - ->Useqq(1) - ->Terse(1) - ->Indent(0) - ->Dump, - '{"passwd" => {"mode" => "0644","root" => {"dir" => "/root","uid" => 0}}}'); +ok($t->file->passwd->mode,'0644'); |