passing-hashes.t

use v6;

# L<S06/Parameters and arguments>
# TODO: better smart-linking

use Test;
plan 3;

sub sanity {
    my %sane = 'a'..'d' Z 1..4;
    isa-ok(%sane, Hash, '%sane is a Hash');
}

sub insanity (%baloney) {
    isa-ok(%baloney, Hash, '%baloney is a Hash');
}

# sanity 0
my %h = 'a'..'d' Z 1..4;
isa-ok(%h.WHAT, Hash, '%h is a Hash');

#sanity 1;
sanity;

# Hash passed to a sub used to become a List in pugs
insanity %h;


# vim: ft=perl6