diff options
Diffstat (limited to 't/02-empty-source.t')
-rw-r--r-- | t/02-empty-source.t | 26 |
1 files changed, 10 insertions, 16 deletions
diff --git a/t/02-empty-source.t b/t/02-empty-source.t index 2737d2d..55403e1 100644 --- a/t/02-empty-source.t +++ b/t/02-empty-source.t @@ -1,28 +1,22 @@ #! /usr/bin/env perl6 -use v6.c; -use lib 'lib'; -use Test; +use v6.d; -plan 3; +use Test; use Hash::Merge::Augment; -my Hash $hash = { +plan 1; + +my %hash = a => "a", b => { c => "c" - } -}; - -my Hash $empty = {}; - -$empty.merge($hash); - -is-deeply $empty, $hash, "Merge into empty hash"; + }, +; -my Hash $nil; +my %empty; +%empty.merge(%hash); -throws-like $nil.merge($hash), Exception, "Merge into uninitialized hash"; -is-deeply $nil.merge($hash), $hash, "Returns supplied hash if it throws"; +is-deeply %empty, %hash, "Merge into empty hash"; |