diff options
Diffstat (limited to 't/conf09.t')
-rw-r--r-- | t/conf09.t | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/t/conf09.t b/t/conf09.t new file mode 100644 index 0000000..cbe5536 --- /dev/null +++ b/t/conf09.t | |||
@@ -0,0 +1,27 @@ | |||
1 | # -*- perl -*- | ||
2 | use lib qw(t lib); | ||
3 | use strict; | ||
4 | use Test; | ||
5 | use TestConfig; | ||
6 | |||
7 | plan(tests => 2); | ||
8 | |||
9 | my %keywords = ( | ||
10 | core => { | ||
11 | section => { | ||
12 | backend => { mandatory => 1, default => "file" }, | ||
13 | acl => 1 | ||
14 | } | ||
15 | }, | ||
16 | file => { | ||
17 | section => { | ||
18 | name => 1 | ||
19 | } | ||
20 | } | ||
21 | ); | ||
22 | |||
23 | my $cfg = new TestConfig(parameters => \%keywords); | ||
24 | ok($cfg); | ||
25 | ok($cfg->canonical, q{core.backend="file"}); | ||
26 | |||
27 | |||