diff options
Diffstat (limited to 't/conf03.t')
-rw-r--r-- | t/conf03.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/conf03.t b/t/conf03.t new file mode 100644 index 0000000..b887995 --- /dev/null +++ b/t/conf03.t | |||
@@ -0,0 +1,29 @@ | |||
1 | # -*- perl -*- | ||
2 | use lib qw(t lib); | ||
3 | use strict; | ||
4 | use Test; | ||
5 | use TestConfig; | ||
6 | |||
7 | plan(tests => 1); | ||
8 | |||
9 | my %keywords = ( | ||
10 | core => { | ||
11 | section => { | ||
12 | 'tempdir' => 1, | ||
13 | 'verbose' => 1, | ||
14 | } | ||
15 | }, | ||
16 | backend => { | ||
17 | section => { | ||
18 | file => 1 | ||
19 | } | ||
20 | } | ||
21 | ); | ||
22 | my $cfg = new TestConfig( | ||
23 | config => [ | ||
24 | 'core.tempdir' => '/tmp', | ||
25 | 'core.output' => 'file' | ||
26 | ], | ||
27 | parameters => \%keywords, | ||
28 | expect => [ 'keyword "output" is unknown' ]); | ||
29 | ok($cfg->errors() == 1); | ||