Add tests for a unit module

1 files changed, 59 insertions, 0 deletions

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