[perl #71112] tests available

[kyleha]

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