summaryrefslogtreecommitdiff
path: root/t/01conf12.t
diff options
context:
space:
mode:
Diffstat (limited to 't/01conf12.t')
-rw-r--r--t/01conf12.t22
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');

Return to:

Send suggestions and report system problems to the System administrator.