From b27da2a93cc42afcf16ab539dc7aa1a84d12ee8c Mon Sep 17 00:00:00 2001 From: Patrick Spek Date: Sun, 15 Nov 2020 08:47:32 +0100 Subject: Rename Perl 6 to Raku --- t/03-unit.t | 59 ----------------------------------------------------------- 1 file changed, 59 deletions(-) delete mode 100644 t/03-unit.t (limited to 't/03-unit.t') 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 = "e"; - - is-deeply merge-hashes(%original, %(b => %(d => "d")), %(b => %(e => "e"))), %result, "Hash merges correctly"; -} - -# vim: ft=perl6 ts=4 sw=4 et -- cgit v1.1