aboutsummaryrefslogtreecommitdiff
path: root/t/conf02l.t
diff options
context:
space:
mode:
Diffstat (limited to 't/conf02l.t')
-rw-r--r--t/conf02l.t45
1 files changed, 0 insertions, 45 deletions
diff --git a/t/conf02l.t b/t/conf02l.t
deleted file mode 100644
index da4920a..0000000
--- a/t/conf02l.t
+++ /dev/null
@@ -1,45 +0,0 @@
-# -*- perl -*-
-use lib 't';
-use strict;
-use Test;
-use TestConfig;
-
-plan(tests => 7);
-
-my %keywords = (
- core => {
- section => {
- 'retain-interval' => { mandatory => 1 },
- 'tempdir' => 1,
- 'verbose' => 1,
- }
- },
- backend => {
- section => {
- file => 1
- }
- }
-);
-
-my $cfg = new TestConfig(parameters => \%keywords, locations => 1);
-ok($cfg->isset('backend','foo','file'));
-ok($cfg->isvariable('backend','foo','file'));
-ok($cfg->get('backend','foo','file'), 'foo');
-
-ok($cfg->isset('core', 'verbose') == 0);
-
-ok($cfg->issection('backend','foo'));
-
-$cfg->set('core','verbose','On');
-ok($cfg->get('core','verbose'),'On');
-
-$cfg->unset('core','tmpdir');
-ok($cfg->isset('core','tmpdir') == 0);
-
-__DATA__
-# This is a sample configuration file
-[core]
- retain-interval = 10
- tempdir = /tmp
-[backend foo]
- file = foo

Return to:

Send suggestions and report system problems to the System administrator.