Get array merging functionality

1 files changed, 13 insertions, 0 deletions

diff --git a/t/01-thing.t b/t/01-thing.t
index 6960a7a..9a906a7 100644
--- a/t/01-thing.t
+++ b/t/01-thing.t
@@ -16,3 +16,16 @@ 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";
+is-deeply %a, {Z => 'new', a => 2, b => 1, y => {a => 1, z => 2}};
+say %a;
+my %z;
+%z<y><p> = (1,2,3,4);
+my %y;
+%y<y><p> = (5,4,6,7);
+%z.merge(%y);
+is %z, {y => {p => [1, 2, 3, 4, 5, 4, 6, 7]}}, "merges arrays";
+done-testing;