From b27da2a93cc42afcf16ab539dc7aa1a84d12ee8c Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Sun, 15 Nov 2020 08:47:32 +0100
Subject: Rename Perl 6 to Raku

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

(limited to 't/03-unit.rakutest')

diff --git a/t/03-unit.rakutest b/t/03-unit.rakutest
new file mode 100644
index 0000000..75d763f
--- /dev/null
+++ b/t/03-unit.rakutest
@@ -0,0 +1,59 @@
+#! /usr/bin/env raku
+
+use v6.c;
+
+use Hash::Merge;
+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=raku ts=4 sw=4 et
-- 
cgit v1.1