aboutsummaryrefslogtreecommitdiff
path: root/t/TestConfig.pm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2018-07-10 14:27:07 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2018-07-10 14:27:07 +0200
commitef4bb8963e1a89da2b62274758361617f5384ce3 (patch)
tree46c7d15cdf08bfd569d7ae6b2910bf361ec37a08 /t/TestConfig.pm
parentdb3dbb29a2ad58ef2f43d3f9d250e7f90aeaf278 (diff)
downloadconfig-parser-ef4bb8963e1a89da2b62274758361617f5384ce3.tar.gz
config-parser-ef4bb8963e1a89da2b62274758361617f5384ce3.tar.bz2
Switch to Config::AST
Diffstat (limited to 't/TestConfig.pm')
-rw-r--r--t/TestConfig.pm14
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 {

Return to:

Send suggestions and report system problems to the System administrator.