Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (17 sloc) 378 Bytes
use v6;
use Test;
plan 3;
sub sanity {
my %sane = 'a'..'d' Z 1..4;
isa_ok(%sane, Hash, '%sane is a Hash');
}
sub insanity (Hash %baloney) returns Void{
isa_ok(%baloney, Hash, '%baloney is a Hash');
}
# sanity 0
my %h = 'a'..'d' Z 1..4;
is(%h.WHAT,'Hash','%h is a Hash');
#sanity 1;
sanity;
#XXX Hash passed to a sub used to become a List in pugs
insanity %h;
Something went wrong with that request. Please try again.