[perl #72840] tests available

[kyleha]

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;