use v6-alpha;
use Test;
# L<S06/Immutable types/Pair "one-element Mapping">
# There ought to be a better reference for this.
# And this test is also a candidate to be moved with other subroutine tests.
plan 2;
{
my sub foo ($x) { $x.perl }
my $pair = (a => 1);
my $Pair = $pair.WHAT;
ok try { foo($Pair) }, "passing ::Pair to a sub works";
}
# But this works:
{
my sub foo ($x) { $x.perl }
my $int = 42;
my $Int = $int.WHAT;
ok try { foo($Int) }, "passing ::Int to a sub works";
}