Permalink
Browse files

[t/spec] test that you can call a method all(), and access attributes…

… in there (RT #69202)

git-svn-id: http://svn.pugscode.org/pugs@30450 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent aa68cce commit a134bd11775a8e99aa90676e586a1a37bef6dab7 moritz committed Apr 22, 2010
Showing with 11 additions and 1 deletion.
  1. +11 −1 S12-attributes/instance.t
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 127;
+plan 128;
=begin pod
@@ -563,4 +563,14 @@ is Foo7e.new.attr, 42, "default attribute value (1)";
is InitializationThunk.new.bar, 5, 'a lexical is not tied to a thunk';
}
+# http://rt.perl.org/rt3/Ticket/Display.html?id=69202
+{
+ class TestMethodAll {
+ has $.a;
+ method x(Str $x) {};
+ method all() { $!a }
+ }
+ is TestMethodAll.new(a => 5).all, 5, 'Can call a method all()';
+}
+
# vim: ft=perl6

0 comments on commit a134bd1

Please sign in to comment.