Add a test for RT #77200

Raku · Feb 2, 2015 · 85b1707 · 85b1707
1 parent 6806fcd
commit 85b1707
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S12-construction/new.t b/S12-construction/new.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 25;
+plan 26;
 
 class Parent {
     has $.x;
@@ -141,6 +141,13 @@ is $o.x, 5, '... worked for the class Parent (other order)';
     is RT74300.new(:foo<bar>).foo, 'bar', 'multi method($) does not break attribute initialization';
 }
 
+# RT #77200
+{
+    my class RT77200 { }
+    lives_ok { my RT77200 $lex .= new },
+        "Can call .=new on a variable of a lexical type";
+}
+
 done;
 
 # vim: ft=perl6