Changeset 22903 for t

Timestamp:

11/06/08 19:36:55 (2 months ago)

Author:

moritz

Message:

[t/spec] another test for ro-ness of arguments.

Files:

• t/spec/S06-traits/misc.t (modified) (3 diffs)

t/spec/S06-traits/misc.t

@@ -3 +3 @@
 use Test;
 
-plan 13;
+plan 14;
 
 =begin description
@@ -17 +17 @@
 # note: many of these errors can be detected at compile time, so need
 # eval_dies_ok instead of dies_ok 
+#
+# test twice, once with assignment and once with increment, rakudo
+# used to catch the first but not the latter.
+#
 #?rakudo todo 'TODO: catch modification of subroutine arg'
 eval_dies_ok '
@@ -25 +29 @@
     'can\'t modify parameter, constant by default';
     
+eval_dies_ok '
+    my $tmp = 1;
+    sub mods_param ($x) { $x = 1; }
+    mods_param($tmp)
+    ',
+    'can\'t modify parameter, constant by default';
 
 # is readonly