From da9c10a20bbbf8904f3831511538eff67c27b695 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 28 Mar 2018 14:19:52 +0200
Subject: Add tests for a unit module

---
 t/03-unit.t | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100644 t/03-unit.t

diff --git a/t/03-unit.t b/t/03-unit.t
new file mode 100644
index 0000000..43d70ff
--- /dev/null
+++ b/t/03-unit.t
@@ -0,0 +1,59 @@
+#! /usr/bin/env perl6
+
+use v6.c;
+
+use Hash::Merge::Unit;
+use Test;
+
+plan 2;
+
+subtest "merge-hash" => {
+    plan 2;
+
+    my %original =
+        a => "a",
+        b => {
+            c => "c"
+        }
+    ;
+
+    my %result =
+        a => "a",
+        b => {
+            c => "c",
+            d => "d",
+        },
+    ;
+
+    is-deeply merge-hash(%original, %(b => %(d => "d"))), %result, "Hash merges correctly";
+    is-deeply merge-hash(%original, %()), %original, "Empty Hash doesn't affect original";
+}
+
+subtest "merge-hashes" => {
+    plan 4;
+
+    my %original =
+        a => "a",
+        b => {
+            c => "c"
+        }
+    ;
+
+    my %result =
+        a => "a",
+        b => {
+            c => "c",
+            d => "d",
+        },
+    ;
+
+    is-deeply merge-hashes(%original), %original, "Single argument returns original";
+    is-deeply merge-hashes(%original, %(b => %(d => "d"))), %result, "Hash merges correctly";
+    is-deeply merge-hashes(%original, %()), %original, "Empty Hash doesn't affect original";
+
+    %result<b><e> = "e";
+
+    is-deeply merge-hashes(%original, %(b => %(d => "d")), %(b => %(e => "e"))), %result, "Hash merges correctly";
+}
+
+# vim: ft=perl6 ts=4 sw=4 et
-- 
cgit v1.1