diff options
Diffstat (limited to 't/02conf01.t')
-rw-r--r-- | t/02conf01.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/t/02conf01.t b/t/02conf01.t new file mode 100644 index 0000000..b06d0dd --- /dev/null +++ b/t/02conf01.t @@ -0,0 +1,21 @@ +# -*- perl -*- +use lib qw(t lib); +use strict; +use Test; +use TestConfig; +use Data::Dumper; + +plan(tests => 4); + +my $t = new TestConfig( + config => [ + base => '/etc', + 'file.passwd.mode' => '0644', + 'file.passwd.root.uid' => 0, + 'file.passwd.root.dir' => '/root', + ]); + +ok($t->tree->File->Passwd->Root->Dir); +ok($t->tree->File->Passwd->Root->Dir,'/root'); +ok($t->tree->File->Base->Name->is_null); +ok(!$t->tree->File->Base->Name); |