diff options
Diffstat (limited to 't')
-rw-r--r-- | t/01-thing.rakutest (renamed from t/01-thing.t) | 8 | ||||
-rw-r--r-- | t/02-empty-source.rakutest | 24 | ||||
-rw-r--r-- | t/02-empty-source.t | 28 | ||||
-rw-r--r-- | t/03-unit.rakutest (renamed from t/03-unit.t) | 4 |
4 files changed, 31 insertions, 33 deletions
diff --git a/t/01-thing.t b/t/01-thing.rakutest index ef674ec..46c8055 100644 --- a/t/01-thing.t +++ b/t/01-thing.rakutest @@ -1,4 +1,4 @@ -#! /usr/bin/env perl6 +#! /usr/bin/env raku use v6; use lib 'lib'; @@ -46,9 +46,11 @@ is-deeply %a, {Z => 'new', a => 2, b => 1, y => {a => 1, z => 2}}; %z<y><p> = (1,2,3,4); %y<y><p> = (5,4,6,7); - %z.merge(%y, :no-append-array); + %z.merge(%y, :!positional-append); - is-deeply %z, ${:y(${:p($(5, 4, 6, 7))})}, "no-append-array (replaces the instead)"; + is-deeply %z, ${:y(${:p($(5, 4, 6, 7))})}, ":!positional-append makes lists overwrite"; } done-testing; + +# vim: ft=raku ts=4 sw=4 et diff --git a/t/02-empty-source.rakutest b/t/02-empty-source.rakutest new file mode 100644 index 0000000..2e6b609 --- /dev/null +++ b/t/02-empty-source.rakutest @@ -0,0 +1,24 @@ +#! /usr/bin/env raku + +use v6.d; + +use Test; + +use Hash::Merge::Augment; + +plan 1; + +my %hash = + a => "a", + b => { + c => "c" + }, +; + +my %empty; + +%empty.merge(%hash); + +is-deeply %empty, %hash, "Merge into empty hash"; + +# vim: ft=raku ts=4 sw=4 et diff --git a/t/02-empty-source.t b/t/02-empty-source.t deleted file mode 100644 index 2737d2d..0000000 --- a/t/02-empty-source.t +++ /dev/null @@ -1,28 +0,0 @@ -#! /usr/bin/env perl6 - -use v6.c; -use lib 'lib'; -use Test; - -plan 3; - -use Hash::Merge::Augment; - -my Hash $hash = { - a => "a", - b => { - c => "c" - } -}; - -my Hash $empty = {}; - -$empty.merge($hash); - -is-deeply $empty, $hash, "Merge into empty hash"; - -my Hash $nil; - - -throws-like $nil.merge($hash), Exception, "Merge into uninitialized hash"; -is-deeply $nil.merge($hash), $hash, "Returns supplied hash if it throws"; diff --git a/t/03-unit.t b/t/03-unit.rakutest index 5230398..75d763f 100644 --- a/t/03-unit.t +++ b/t/03-unit.rakutest @@ -1,4 +1,4 @@ -#! /usr/bin/env perl6 +#! /usr/bin/env raku use v6.c; @@ -56,4 +56,4 @@ subtest "merge-hashes" => { is-deeply merge-hashes(%original, %(b => %(d => "d")), %(b => %(e => "e"))), %result, "Hash merges correctly"; } -# vim: ft=perl6 ts=4 sw=4 et +# vim: ft=raku ts=4 sw=4 et |