diff options
author | Patrick Spek <Tyil@users.noreply.github.com> | 2017-04-26 09:57:40 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-04-26 09:57:39 +0200 |
commit | 845c2d891e12b7abe006aa1e36c1201266b29a51 (patch) | |
tree | 0ebf21647bd4bcea5b71a493302bea264a4f87e5 /t/reading.t | |
parent | acdac7ea2f81e739c7e2b5cb37d3f3cdc71962a8 (diff) | |
parent | 7313624f98295bb80416009cf21012cec10bdc15 (diff) |
Merge pull request #2 from scriptkitties/with-hash-mergev1.1.0
Merge hashes instead of overwriting them
Diffstat (limited to 't/reading.t')
-rw-r--r-- | t/reading.t | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/t/reading.t b/t/reading.t index 52859af..e43252a 100644 --- a/t/reading.t +++ b/t/reading.t @@ -4,7 +4,7 @@ use v6.c; use Test; use lib "lib"; -plan 3; +plan 5; use Config; @@ -13,3 +13,28 @@ my $config = Config.new(); throws-like { $config.read("nonexistant-config") }, Config::Exception::FileNotFoundException, "Reading nonexisting file"; throws-like { $config.read("t/test-stub") }, Config::Exception::UnknownTypeException, "Reading file of unknown type"; throws-like { $config.read("t/test-stub", "Config::Parser:NoSuchParserForTest") }, Config::Exception::MissingParserException, "Using non-existing parser"; + +my $hash = { + "a" => "a", + "b" => { + "c" => "test" + } +}; + +$config.read($hash); + +is-deeply $config.get(), $hash, "Correctly sets hash"; + +$config.read({ + "b" => { + "d" => "another" + } +}); + +is-deeply $config.get(), { + "a" => "a", + "b" => { + "c" => "test", + "d" => "another" + } +}, "Correctly merges new hash into existing config"; |