This is an automatically generated mail to inform you that tests are now available in t/spec/S14-roles/basic.t
commit dbb6aa1b12a067ba8bb1a02b0e339975715862ac Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64> Date: Sun May 30 20:15:51 2010 +0000 [t/spec] test for RT #72840 and RT #69170 git-svn-id: http://svn.pugscode.org/p...@31001 c213334d-75ef-0310-aa23-eaa082d1ae64 diff --git a/t/spec/S14-roles/basic.t b/t/spec/S14-roles/basic.t index 9d48c95..04a81f4 100644 --- a/t/spec/S14-roles/basic.t +++ b/t/spec/S14-roles/basic.t @@ -120,7 +120,21 @@ eval_dies_ok '0 but RT66178', '"but" with non-existent role dies'; my $x = eval 'class BClass does AClass { }; 1'; nok $x, 'class SomeClass does AnotherClass dies'; ok "$!" ~~ /AClass/, 'Error message mentions the offending non-role'; +} +# RT #72840 +{ + eval 'class Boo does Boo { };'; + ok "$!" ~~ /Boo/, 'class does itself produces sensible error message'; +} + +# RT #69170 +{ + role StrTest { + method s { self.Str } + }; + ok StrTest.s ~~ /StrTest/, + 'default role stringification contains role name'; } done_testing;