diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-03-02 20:31:25 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-03-02 20:47:26 +0200 |
commit | c437dd558ef7d4e2f3b511d998d100d395c5ba26 (patch) | |
tree | c64c5e086466a91a37127e0f378b2cb61b17c99a /t | |
parent | 90cfc43a637d269d05d82653700a2735839129de (diff) | |
download | beam-c437dd558ef7d4e2f3b511d998d100d395c5ba26.tar.gz beam-c437dd558ef7d4e2f3b511d998d100d395c5ba26.tar.bz2 |
Small improvement of the config parser.
* lib/App/Beam/Config.pm: Keep ordinal numbers (relative positions in
the source file) of statements.
(flatten): Rewrite method.
* t/TestConfig.pm: Update.
Diffstat (limited to 't')
-rw-r--r-- | t/TestConfig.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/TestConfig.pm b/t/TestConfig.pm index daafe56..63b9d06 100644 --- a/t/TestConfig.pm +++ b/t/TestConfig.pm @@ -4,7 +4,7 @@ use strict; use Carp; use File::Temp; -require App::Beam::Config; +use App::Beam::Config qw(:sort); our @ISA = qw(App::Beam::Config); sub new { @@ -52,8 +52,8 @@ sub canonical { local $Data::Dumper::Useqq = 1; local $Data::Dumper::Terse = 1; local $Data::Dumper::Indent = 0; - $_->[0] . "=" . Data::Dumper->Dump([$_->[1]]); - } $self->flatten(); + join('.', @{$_->[0]}) . "=" . Data::Dumper->Dump([$_->[1]{-value}]); + } $self->flatten(sort => SORT_PATH); } sub expected_error { |