diff options
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; | |||
4 | use warnings; | 4 | use warnings; |
5 | use Carp; | 5 | use Carp; |
6 | 6 | ||
7 | use Config::Tree qw(:sort); | 7 | use Config::AST qw(:sort); |
8 | use parent 'Config::Parser::Ini'; | 8 | use parent 'Config::Parser::Ini'; |
9 | use Data::Dumper; | 9 | use Data::Dumper; |
10 | use File::Temp; | 10 | use File::Temp; |
@@ -64,17 +64,7 @@ sub success { | |||
64 | 64 | ||
65 | sub canonical { | 65 | sub canonical { |
66 | my $self = shift; | 66 | my $self = shift; |
67 | local %_ = @_; | 67 | return $self->SUPER::canonical(delim => ' '); |
68 | carp "unknown parameters: " . join(', ', keys(%_)) if (keys(%_)); | ||
69 | return join $_{delim} // " ", map { | ||
70 | join('.', @{$_->[0]}) | ||
71 | . "=" | ||
72 | . Data::Dumper->new([$_->[1]->value]) | ||
73 | ->Useqq(1) | ||
74 | ->Terse(1) | ||
75 | ->Indent(0) | ||
76 | ->Dump | ||
77 | } $self->flatten(sort => SORT_PATH); | ||
78 | } | 68 | } |
79 | 69 | ||
80 | sub expected_error { | 70 | sub expected_error { |