Add test to cover RT #128516.

Raku · Dec 21, 2016 · df0b1a7 · df0b1a7
1 parent bcec811
commit df0b1a7
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/S12-meta/classhow.t b/S12-meta/classhow.t
@@ -0,0 +1,14 @@
+use Test;
+
+plan 1;
+
+# RT #128516
+{
+    my class Foo {
+        has $.a = Metamodel::ClassHOW.new_type(name => "Bar");
+        method comp { $!a.^compose }
+    }
+    my $obj = Foo.new; 
+    lives-ok { $obj.comp; $obj.gist },
+        'Storing a meta-object in an attribute then composing/gisting works out';
+}