Permalink
Browse files

[t/spec] Test for RT#62902.

git-svn-id: http://svn.pugscode.org/pugs@25546 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 1202515 commit 62eb1390519b9542e1054da16796d0446b39f93d jnthn committed Feb 25, 2009
Showing with 12 additions and 1 deletion.
  1. +12 −1 S12-attributes/instance.t
View
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 92;
+plan 93;
=begin pod
@@ -403,4 +403,15 @@ is eval('Foo9.new.attr'), 42, "default attribute value (3)";
is $o.this, 3, 'could use whitespace after "has ("';
is $o.that, 4, '.. and a newline within the has() declarator';
}
+
+# test typed attributes and === (was Rakudo RT#62902).
+{
+ class TA1 { }
+ class TA2 {
+ has TA1 $!a;
+ method foo { $!a === TA1 }
+ }
+ ok(TA2.new.foo, '=== works on typed attribute initialized with proto-object');
+}
+
# vim: ft=perl6

0 comments on commit 62eb139

Please sign in to comment.