Merge pull request #2 from scriptkitties/with-hash-mergev1.1.0

Merge hashes instead of overwriting them

3 files changed, 32 insertions, 3 deletions

diff --git a/t/having.t b/t/having.t
index 3be2935..0627ed5 100644
--- a/t/having.t
+++ b/t/having.t
@@ -4,7 +4,7 @@ use v6.c;
 use Test;
 use lib "lib";
 
-plan 2;
+plan 4;
 
 use Config;
 
@@ -19,3 +19,5 @@ $config.read({
 
 ok $config.has("a"), "Check existence of simple key";
 ok $config.has("b.c"), "Check existence of nested key";
+ok $config.has(["a"]), "Check existence of simple key using array";
+ok $config.has(["b", "c"]), "Check existence of nested key using array";
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";
diff --git a/t/setting.t b/t/setting.t
index d9f0854..7e3a457 100644
--- a/t/setting.t
+++ b/t/setting.t
@@ -4,7 +4,7 @@ use v6.c;
 use Test;
 use lib "lib";
 
-plan 2;
+plan 4;
 
 use Config;
 
@@ -12,3 +12,5 @@ my $config = Config.new();
 
 ok $config.set("a", "test").get("a") eq "test", "Setting simple key";
 ok $config.set("b.c", "test").get("b.c") eq "test", "Setting nested key";
+ok $config.set(["d"], "test").get("d") eq "test", "Setting simple key using array";
+ok $config.set(["e", "f"], "test").get("e.f") eq "test", "Setting nested key using array";