diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-12-03 14:14:21 +0100 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2017-12-03 14:14:21 +0100 |
| commit | 9f89acb180d22d30bb4ffed659969d57cf5cabce (patch) | |
| tree | 9dfe0b30b92cccd45b28158f4442c242dd988968 /t/TestConfig.pm | |
| parent | ceb4bd03d48d161548e00f1db170b376583894a8 (diff) | |
| download | config-ast-9f89acb180d22d30bb4ffed659969d57cf5cabce.tar.gz config-ast-9f89acb180d22d30bb4ffed659969d57cf5cabce.tar.bz2 | |
Implement add_node and add_value methods
Diffstat (limited to 't/TestConfig.pm')
| -rw-r--r-- | t/TestConfig.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/TestConfig.pm b/t/TestConfig.pm index de1ade9..847ff0c 100644 --- a/t/TestConfig.pm +++ b/t/TestConfig.pm | |||
| @@ -19,7 +19,7 @@ sub new { | |||
| 19 | my $i = 1; | 19 | my $i = 1; |
| 20 | while ((my $k = shift @$config) && (my $v = shift @$config)) { | 20 | while ((my $k = shift @$config) && (my $v = shift @$config)) { |
| 21 | # while (my ($k,$v) = each %$config) { | 21 | # while (my ($k,$v) = each %$config) { |
| 22 | $self->add_node($k, $v, new Config::Tree::Locus('input', $i++)); | 22 | $self->add_value($k, $v, new Config::Tree::Locus('input', $i++)); |
| 23 | } | 23 | } |
| 24 | $self->commit; | 24 | $self->commit; |
| 25 | if (@{$self->{_expected_errors}}) { | 25 | if (@{$self->{_expected_errors}}) { |