From ruslan.usifov@gmail.com

In this code, result will be 123, but i think that it must be 1.

sub test(@​test is copy)
{
  @​test[0] = 123;
};

my @​test = (1, 2, 3);
test(@​test);

print @​test[0];

@pmichaud - Status changed from 'new' to 'open'

From @jnthn

On Mon Dec 01 05​:13​:01 2008, tantra wrote​:

In this code, result will be 123, but i think that it must be 1.

sub test(@​test is copy)
{
@​test[0] = 123;
};

my @​test = (1, 2, 3);
test(@​test);

print @​test[0];

Indeed - fixed in git 6059ad9 and added tests to S06-traits/is-copy.t
(also fixed the "%test is copy" case and added tests for that).

Thanks!

Jonathan

@jnthn - Status changed from 'open' to 'resolved'

ruslan.usifov@gmail.com - Status changed from 'resolved' to 'open'

From ruslan.usifov@gmail.com

On this code rakudo will hung

sub test($test is write)
{
  print $test
};

test(12);

And i think that is must be compiler error, with message Like this
"can't pass const as reference" or something else.

From @moritz

On Wed Feb 18 07​:42​:31 2009, tantra wrote​:

On this code rakudo will hung

sub test($test is write)
{
print $test
};

test(12);

And i think that is must be compiler error, with message Like this
"can't pass const as reference" or something else.

Actually it should complain about "write" not being a known trait.

Cheers,
Moritz

From @kyleha

This is an automatically generated mail to inform you that tests are now available in b/t/spec/S06-traits/misc.t

From @coke

On Wed May 13 14​:29​:52 2009, moritz wrote​:

On Wed Feb 18 07​:42​:31 2009, tantra wrote​:

On this code rakudo will hung

sub test($test is write)
{
print $test
};

test(12);

And i think that is must be compiler error, with message Like this
"can't pass const as reference" or something else.

Actually it should complain about "write" not being a known trait.

Cheers,
Moritz

Does this count as that?

$ ./perl6 foo
===SORRY!===
No applicable candidates found to dispatch to for 'trait_mod​:<is>'.
Available candidates are​:
:(Mu $type, Any $size, Any $nativesize)
:(Attribute $attr, Any $rw)
:(Attribute $attr, Any $readonly)
:(Routine $r, Any $rw)
:(Routine $r, Any $default)
:(Parameter $param, Any $readonly)
:(Parameter $param, Any $rw)
:(Parameter $param, Any $copy)
:(Routine $r, Any $export)
:(Mu $docee, Any $doc, Any $docs)
:(Mu $docee, Any $doc, Any $docs)
:(Routine $r, Any $hidden_from_backtrace)
:(Mu $child, Mu $parent)
:(Mu $type, Any $rw)

--
Will "Coke" Coleda

@moritz - Status changed from 'open' to 'resolved'