aboutsummaryrefslogtreecommitdiff
path: root/t/01-thing.t
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2020-11-15 08:47:32 +0100
committerPatrick Spek <p.spek@tyil.nl>2020-11-15 08:47:32 +0100
commitb27da2a93cc42afcf16ab539dc7aa1a84d12ee8c (patch)
tree53507a0a534140338bdc0520bc5b05b255bf38f8 /t/01-thing.t
parent35e9b52620d540f79baac2c93caa19f4b8258679 (diff)
Rename Perl 6 to Raku
Diffstat (limited to 't/01-thing.t')
-rw-r--r--t/01-thing.t54
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;