diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2018-07-10 14:27:07 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2018-07-10 14:27:07 +0200 |
commit | ef4bb8963e1a89da2b62274758361617f5384ce3 (patch) | |
tree | 46c7d15cdf08bfd569d7ae6b2910bf361ec37a08 /t/TestConfig.pm | |
parent | db3dbb29a2ad58ef2f43d3f9d250e7f90aeaf278 (diff) | |
download | config-parser-ef4bb8963e1a89da2b62274758361617f5384ce3.tar.gz config-parser-ef4bb8963e1a89da2b62274758361617f5384ce3.tar.bz2 |
Switch to Config::AST
Diffstat (limited to 't/TestConfig.pm')
-rw-r--r-- | t/TestConfig.pm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/t/TestConfig.pm b/t/TestConfig.pm index 886e66b..bd4f3f5 100644 --- a/t/TestConfig.pm +++ b/t/TestConfig.pm @@ -4,7 +4,7 @@ use strict; use warnings; use Carp; -use Config::Tree qw(:sort); +use Config::AST qw(:sort); use parent 'Config::Parser::Ini'; use Data::Dumper; use File::Temp; @@ -64,17 +64,7 @@ sub success { sub canonical { my $self = shift; - local %_ = @_; - carp "unknown parameters: " . join(', ', keys(%_)) if (keys(%_)); - return join $_{delim} // " ", map { - join('.', @{$_->[0]}) - . "=" - . Data::Dumper->new([$_->[1]->value]) - ->Useqq(1) - ->Terse(1) - ->Indent(0) - ->Dump - } $self->flatten(sort => SORT_PATH); + return $self->SUPER::canonical(delim => ' '); } sub expected_error { |