aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
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.rakutest24
-rw-r--r--t/02-empty-source.t28
-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