diff options
author | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:47:32 +0100 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2020-11-15 08:47:32 +0100 |
commit | b27da2a93cc42afcf16ab539dc7aa1a84d12ee8c (patch) | |
tree | 53507a0a534140338bdc0520bc5b05b255bf38f8 /t/01-thing.t | |
parent | 35e9b52620d540f79baac2c93caa19f4b8258679 (diff) |
Rename Perl 6 to Raku
Diffstat (limited to 't/01-thing.t')
-rw-r--r-- | t/01-thing.t | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/t/01-thing.t b/t/01-thing.t deleted file mode 100644 index 44d7495..0000000 --- a/t/01-thing.t +++ /dev/null @@ -1,54 +0,0 @@ -#! /usr/bin/env perl6 - -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; |