Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Test for RT81718

  • Loading branch information...
commit 3475a05551ad70505684c0a5b23391ee58d06941 1 parent e50ee94
@kyleha kyleha authored
Showing with 16 additions and 1 deletion.
  1. +16 −1 S12-class/attributes.t
View
17 S12-class/attributes.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 20;
+plan 22;
# L<S12/Methods/"For a call on your own private method">
@@ -106,4 +106,19 @@ is($bar.bar[2], 300, 'array attribute initialized/works');
'Providing a list of attributes to a single "has" works';
}
+# RT 81718
+{
+ class RT81718 {
+ has $.bughunt is rw;
+ sub bomb { "life is a $.bughunt" }
+ method meta_bomb { "the good " ~ bomb() }
+ }
+
+ my $rt81718 = RT81718.new();
+
+ dies_ok { $rt81718.bomb() }, 'no attribute access for sub';
+ #?rakudo todo 'RT81718'
+ dies_ok { $rt81718.meta_bomb() }, 'no attr access for sub from method';
+}
+
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.