blob: b59ff2409d5bc53810b7e0c53a2ef1e0a4443e6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# -*- perl -*-
use lib qw(t lib);
use strict;
use Test;
use TestConfig;
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);
|