This is an automatically generated mail to inform you that tests are now available in t/spec/S06-signature/unspecified.t
commit feadec2cec905db9b25b782725463e449c7a0006 Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64> Date: Mon Jan 11 21:15:44 2010 +0000 [t/spec] Test for RT 71112: Cannot assign to readonly variable. git-svn-id: http://svn.pugscode.org/p...@29524 c213334d-75ef-0310-aa23-eaa082d1ae64 diff --git a/t/spec/S06-signature/unspecified.t b/t/spec/S06-signature/unspecified.t index 6bf0ed9..d9133f6 100644 --- a/t/spec/S06-signature/unspecified.t +++ b/t/spec/S06-signature/unspecified.t @@ -1,7 +1,7 @@ use v6; use Test; -plan 15; +plan *; # L<S06/Perl5ish subroutine declarations/You can declare a sub without # parameter list> @@ -41,4 +41,15 @@ is both( 'x', :delta<echo>, 'foxtrot' ), 'foxtrotecho', is both(), '', 'sub using both named and position params works with no params'; +# RT 71112 +{ + sub rt71112 { @_[0] = 'bug' } + my $tender = 'sanity'; + #?rakudo todo 'RT 71112: Cannot assign to readonly variable.' + dies_ok { rt71112( $tender ) }, 'Sub that tries to modify @_ dies'; + is $tender, 'sanity', 'The variable passed is unchanged.'; +} + +done_testing; + # vim: ft=perl6