diff options
| author | Sergey Poznyakoff <gray@gnu.org> | 2017-02-16 08:42:02 +0200 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org> | 2017-02-16 08:42:02 +0200 |
| commit | 0cd31637a354ba5c0171a5f4ce8243f12739fda4 (patch) | |
| tree | fc814571742f023778fa149138a486325dc51fdf /t | |
| parent | aa48c0113be59350159788f9efd43d8736e87dcb (diff) | |
| download | beam-0cd31637a354ba5c0171a5f4ce8243f12739fda4.tar.gz beam-0cd31637a354ba5c0171a5f4ce8243f12739fda4.tar.bz2 | |
Starting rewrite in Perl
Diffstat (limited to 't')
| -rw-r--r-- | t/config.t | 12 | ||||
| -rw-r--r-- | t/f.conf | 6 |
2 files changed, 18 insertions, 0 deletions
diff --git a/t/config.t b/t/config.t new file mode 100644 index 0000000..d965844 --- /dev/null +++ b/t/config.t @@ -0,0 +1,12 @@ +# -*- perl -*- +use lib 't'; +use strict; +use App::Beam::Config; +use Test; + +plan(tests => 2); + +my $cfg = new App::Beam::Config('t/f.conf'); +ok($cfg->parse() && 1); +my $s = join " ", map { $_->[0] . "=" . $_->[1] } $cfg->flatten(); +ok($s, 'backend.foo.file=a core.retain-interval=10 core.tempdir=/tmp'); diff --git a/t/f.conf b/t/f.conf new file mode 100644 index 0000000..17234a1 --- /dev/null +++ b/t/f.conf @@ -0,0 +1,6 @@ +[core] + retain-interval = 10 + tempdir = /tmp +[backend foo] + file = a + |