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/01-thing.rakutest | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 t/01-thing.rakutest

(limited to 't/01-thing.rakutest')

diff --git a/t/01-thing.rakutest b/t/01-thing.rakutest
new file mode 100644
index 0000000..46c8055
--- /dev/null
+++ b/t/01-thing.rakutest
@@ -0,0 +1,56 @@
+#! /usr/bin/env raku
+
+use v6;
+use lib 'lib';
+use Test;
+
+use Hash::Merge::Augment;
+
+my %a;
+my %b;
+
+%a<b> = 1;
+%b<a> = 2;
+%a<y><z> = 2;
+%b<y><a> = 1;
+
+my %b-orig = %b;
+my %a-orig = %a;
+
+%a.merge(%b);
+is-deeply %b, %b-orig;
+is-deeply %a, {:a(2), :b(1), :y(${:a(1), :z(2)})};
+
+%a = %a-orig;
+%b = %b-orig;
+%a<Z> = "orig";
+%b<Z> = "new";
+%a.merge(%b);
+
+is-deeply %a, {Z => 'new', a => 2, b => 1, y => {a => 1, z => 2}};
+
+{
+    my (%z, %y);
+
+    %z<y><p> = (1,2,3,4);
+    %y<y><p> = (5,4,6,7);
+
+    %z.merge(%y);
+
+    is %z, {y => {p => [1, 2, 3, 4, 5, 4, 6, 7]}}, "appends arrays";
+}
+
+{
+    my (%z, %y);
+
+    %z<y><p> = (1,2,3,4);
+    %y<y><p> = (5,4,6,7);
+
+    %z.merge(%y, :!positional-append);
+
+    is-deeply %z,  ${:y(${:p($(5, 4, 6, 7))})}, ":!positional-append makes lists overwrite";
+}
+
+done-testing;
+
+# vim: ft=raku ts=4 sw=4 et
-- 
cgit v1.1