[perl #67278] 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 4b8222394636ac4bb66f3661dfa9cee5dc0f30b2
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon May 24 14:46:29 2010 +0000

    [t/spec] tests for RT #67278, non-awesome error message for class Foo does 
NonRole
    
    git-svn-id: http://svn.pugscode.org/p...@30777 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S14-roles/basic.t b/t/spec/S14-roles/basic.t
index 405e2ba..9d48c95 100644
--- a/t/spec/S14-roles/basic.t
+++ b/t/spec/S14-roles/basic.t
@@ -114,6 +114,15 @@ eval_dies_ok '0 but RT66178', '"but" with non-existent 
role dies';
        '... and the error message mentions the role';
 }
 
+# RT #67278
+{
+    class AClass { };
+    my $x = eval 'class BClass does AClass { }; 1';
+    nok $x, 'class SomeClass does AnotherClass  dies';
+    ok "$!" ~~ /AClass/, 'Error message mentions the offending non-role';
+
+}
+
 done_testing;
 
 # vim: ft=perl6