diff options
Diffstat (limited to 't/01-thing.t')
-rw-r--r-- | t/01-thing.t | 13 |
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; |