From fb014751bbcf785b4e43b9f622ab8114d496be09 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 26 Apr 2017 08:17:33 +0200
Subject: Update test cases

---
 t/reading.t | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 't/reading.t')

diff --git a/t/reading.t b/t/reading.t
index 52859af..ec1c40b 100644
--- a/t/reading.t
+++ b/t/reading.t
@@ -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" =>
+    "b" => {
+        "c" => "test"
+    }
+};
+
+$config.read($hash);
+
+is-deeply $config.get(), $hash, "Correctly sets hash";
+
+$config.read({
+    "b" => {
+        "d" => "another"
+    }
+})
+
+is-deeply $config.get(), {
+    "a" =>
+    "b" => {
+        "c" => "test",
+        "d" => "another"
+    }
+}, "Correctly merges new hash into existing config";
-- 
cgit v1.1