Permalink
Fetching contributors…
Cannot retrieve contributors at this time
92 lines (76 sloc) 2.36 KB
use v6;
use Test;
plan 24;
# not specifically typed
{
my $a;
is $a.VAR.name, '$a', "uninitialized untyped variable should have name";
$a++;
is $a.VAR.name, '$a', "initialized untyped variable should have name";
} #2
# typed
{
my Int $a;
is $a.VAR.name, '$a', "uninitialized typed variable should have name";
$a++;
is $a.VAR.name, '$a', "initialized typed variable should have name";
} #2
# not specifically typed
{
my @a;
is @a.VAR.name, '@a', "uninitialized untyped array should have name";
@a.push(1);
is @a.VAR.name, '@a', "initialized untyped array should have name";
} #2
# typed
{
my Int @a;
is @a.VAR.name, '@a', "uninitialized typed array should have name";
@a.push(1);
is @a.VAR.name, '@a', "initialized typed array should have name";
} #2
# not specifically typed
{
my %a;
is %a.VAR.name, '%a', "uninitialized untyped hash should have name";
%a<o>++;
is %a.VAR.name, '%a', "initialized untyped hash should have name";
} #2
# typed
{
my Int %a;
is %a.VAR.name, '%a', "uninitialized typed hash should have name";
%a<o>++;
is %a.VAR.name, '%a', "initialized typed hash should have name";
} #2
# not specifically typed
{
my &a;
is &a.VAR.name, '&a', "uninitialized untyped sub should have name";
&a = -> { ... };
is &a.VAR.name, '&a', "initialized untyped sub should have name";
} #2
# typed
{
my Int &a;
is &a.VAR.name, '&a', "uninitialized typed sub should have name";
# &a = -> { ... };
# is &a.VAR.name, '&a', "initialized typed sub should have name";
} #2
# RT #126241
{
is &[==].name, 'infix:<==>', '== op name uses <>';
is &[=>].name, 'infix:«=>»', '=> op name uses «»';
is &[>=].name, 'infix:«>=»', '>= op name uses «»';
is &[<=].name, 'infix:«<=»', '<= op name uses «»';
is &[<=>].name, 'infix:«<=>»', '<=> op name uses «»';
sub infix:«~~>» { "$^a -> $^b\n" };
is &[~~>].name, 'infix:«~~>»', 'custom ~~> op name uses «»';
sub infix:«~~>\»» { "$^a -> $^b\n" };
is &[~~>»].name, 'infix:<~~\>»>', 'custom ~~>» op name uses <> and backslash';
sub infix:«\$>» { "$^a -> $^b\n" };
is &[$>].name, 'infix:<$\>>', 'custom $> op name uses <> and backslash';
sub infix:<$\<> { "$^a -> $^b\n" };
is &[$<].name, 'infix:<$\<>', 'custom $< op name uses <> and backslash';
}
# vim: ft=perl6