[t/spec] test that .HOW is readonly

git-svn-id: http://svn.pugscode.org/pugs@30164 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Mar 21, 2010 · 9aec248 · 9aec248
1 parent e612c3f
commit 9aec248
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S12-methods/how.t b/S12-methods/how.t
@@ -1,8 +1,11 @@
 use v6;
 use Test;
 
-plan 1;
+plan 2;
 
 lives_ok { 4.HOW.HOW }, 'Can access meta class of meta class';
 
+eval_dies_ok 'my $x; ($x = "hi").HOW = Block;',
+            'Cannot assign to .HOW';
+
 # vim: ft=perl6