Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

35 lines (26 sloc) 0.947 kb
use v6;
use Test;
plan 6;
# L<S04/The Relationship of Blocks and Declarations/"If you declare a lexical
# twice in the same scope">
# RT #83430
eval_lives_ok 'my $x; my $x',
'it is legal to declare my $x twice in the same scope.';
eval_lives_ok 'state $x; state $x',
'it is legal to declare state $x twice in the same scope.';
{
my $x = 2;
my $y := $x;
my $x = 3;
is $y, 3, 'Two lexicals with the name in same scope are the same variable';
}
# this is not exactly S04 material
eval_dies_ok 'sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';
eval_dies_ok 'only sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';
#?niecza todo "MMD"
#?rakudo todo 'nom regression'
eval_lives_ok 'proto foo {1; }; sub foo {1; }; sub foo($x) {1; };',
'multiple declarations need multi or proto';
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.