Add tests for #114506

Raku · Feb 11, 2015 · e650e93 · e650e93
1 parent d7d6f66
commit e650e93
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S04-declarations/constant.t b/S04-declarations/constant.t
@@ -1,7 +1,7 @@
 use v6;
 
 use Test;
-plan 54;
+plan 56;
 
 # L<S04/The Relationship of Blocks and Declarations/"The new constant declarator">
 
@@ -329,4 +329,14 @@ plan 54;
         'can even locally redefine True to something a bit vague';
 }
 
+# RT #114506
+{
+    class RT114506 {
+        has $.val;
+    }
+    my RT114506 constant Ticket .= new(:val("dot-equals assignment"));
+    is Ticket.WHAT, RT114506, "Constant is of the right type";
+    is Ticket.val, "dot-equals assignment", ".= new initialization on constants works";
+}
+
 # vim: ft=perl6