[perl #120646] fixed and tests added

[bri]

This seems to be fixed now, and tests are added in S14-roles/basic.t

    1..3
    ok 1 - 'role RR { }; class RR { };' died
    ok 2 - right exception type (X::Redeclaration)
    ok 3 - .symbol matches RR
ok 37 - did we throws-like X::Redeclaration?
    1..3
    ok 1 - 'role RRR { }; class RRR does RRR { };' died
    ok 2 - right exception type (X::Redeclaration)
    ok 3 - .symbol matches RRR
ok 38 - did we throws-like X::Redeclaration?