aboutsummaryrefslogtreecommitdiff
path: root/t/02-empty-source.t
diff options
context:
space:
mode:
Diffstat (limited to 't/02-empty-source.t')
-rw-r--r--t/02-empty-source.t26
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";