test for augment on lexical class, RT #74910

Raku · Nov 27, 2011 · 5af9d23 · 5af9d23
1 parent f75b379
commit 5af9d23
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/S12-class/augment-supersede.t b/S12-class/augment-supersede.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 9;
+plan 10;
 
 # L<S12/"Open vs Closed Classes"/"Otherwise you'll get a class redefinition error.">
 
@@ -24,6 +24,13 @@ use MONKEY_TYPING;
         'augment on non-existent class dies';
 }
 
+# RT #74910
+{
+    my class LexFoo { };
+    augment class LexFoo { method b { 'called LexFoo.b' } };
+    is LexFoo.b, 'called LexFoo.b', 'can augment lexical class';
+}
+
 # RT #76104
 {
     augment class Hash {