diff options
Diffstat (limited to 't/01-thing.t')
-rw-r--r-- | t/01-thing.t | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/t/01-thing.t b/t/01-thing.t index 402c157..68b092e 100644 --- a/t/01-thing.t +++ b/t/01-thing.t @@ -25,12 +25,19 @@ is-deeply %a, {:a(2), :b(1), :y(${:a(1), :z(2)})}; %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]}}, "merges arrays"; - +{ + 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, :no-append-array); + is-deeply %z, ${:y(${:p($(5, 4, 6, 7))})}, "no-append-array (replaces the instead)"; +} done-testing; |