From 8e7a339c33e24ba8c301c3dad05db4dfeba9508c Mon Sep 17 00:00:00 2001
From: Samantha McVey <samantham@posteo.net>
Date: Mon, 24 Apr 2017 14:20:01 -0700
Subject: Add tests and get order right

---
 t/01-thing.t | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 t/01-thing.t

(limited to 't')

diff --git a/t/01-thing.t b/t/01-thing.t
new file mode 100644
index 0000000..6960a7a
--- /dev/null
+++ b/t/01-thing.t
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl6
+use v6;
+use lib 'lib';
+use mergehash;
+use Test;
+my %a;
+my %b;
+#%a<Z> = "orig";
+#%b<Z> = "new";
+%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)})};
-- 
cgit v1.1