Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Test for RT81718

  • Loading branch information...
commit 3475a05551ad70505684c0a5b23391ee58d06941 1 parent e50ee94
Kyle Hasselbacher authored March 12, 2011

Showing 1 changed file with 16 additions and 1 deletion. Show diff stats Hide diff stats

  1. 17  S12-class/attributes.t
17  S12-class/attributes.t
@@ -2,7 +2,7 @@ use v6;
2 2
 
3 3
 use Test;
4 4
 
5  
-plan 20;
  5
+plan 22;
6 6
 
7 7
 # L<S12/Methods/"For a call on your own private method">
8 8
 
@@ -106,4 +106,19 @@ is($bar.bar[2], 300,       'array attribute initialized/works');
106 106
         'Providing a list of attributes to a single "has" works';
107 107
 }
108 108
 
  109
+# RT 81718
  110
+{
  111
+    class RT81718 {
  112
+        has $.bughunt is rw;
  113
+        sub bomb { "life is a $.bughunt" }
  114
+        method meta_bomb { "the good " ~ bomb() }
  115
+    }
  116
+
  117
+    my $rt81718 = RT81718.new();
  118
+
  119
+    dies_ok { $rt81718.bomb() }, 'no attribute access for sub';
  120
+    #?rakudo todo 'RT81718'
  121
+    dies_ok { $rt81718.meta_bomb() }, 'no attr access for sub from method';
  122
+}
  123
+
109 124
 # vim: ft=perl6

0 notes on commit 3475a05

Please sign in to comment.
Something went wrong with that request. Please try again.