diff options
Diffstat (limited to 't/03-unit.t')
-rw-r--r-- | t/03-unit.t | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/t/03-unit.t b/t/03-unit.t deleted file mode 100644 index 5230398..0000000 --- a/t/03-unit.t +++ /dev/null @@ -1,59 +0,0 @@ -#! /usr/bin/env perl6 - -use v6.c; - -use Hash::Merge; -use Test; - -plan 2; - -subtest "merge-hash" => { - plan 2; - - my %original = - a => "a", - b => { - c => "c" - } - ; - - my %result = - a => "a", - b => { - c => "c", - d => "d", - }, - ; - - is-deeply merge-hash(%original, %(b => %(d => "d"))), %result, "Hash merges correctly"; - is-deeply merge-hash(%original, %()), %original, "Empty Hash doesn't affect original"; -} - -subtest "merge-hashes" => { - plan 4; - - my %original = - a => "a", - b => { - c => "c" - } - ; - - my %result = - a => "a", - b => { - c => "c", - d => "d", - }, - ; - - is-deeply merge-hashes(%original), %original, "Single argument returns original"; - is-deeply merge-hashes(%original, %(b => %(d => "d"))), %result, "Hash merges correctly"; - is-deeply merge-hashes(%original, %()), %original, "Empty Hash doesn't affect original"; - - %result<b><e> = "e"; - - is-deeply merge-hashes(%original, %(b => %(d => "d")), %(b => %(e => "e"))), %result, "Hash merges correctly"; -} - -# vim: ft=perl6 ts=4 sw=4 et |