diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-07-07 04:35:35 -0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 13:01:15 -0700 |
| commit | 7ad9a4ff6c24efeda9bfd78912af50821bb2bada (patch) | |
| tree | 37e22a60d7ea81d30f7959aff00851b95d64f7d6 /t/mro | |
| parent | 119cacd042954e89b0fa6f0ac0f043feeb8a2e9c (diff) | |
| download | perl-7ad9a4ff6c24efeda9bfd78912af50821bb2bada.tar.gz | |
mro.(c|xs): Make warnings utf8-clean
Diffstat (limited to 't/mro')
| -rw-r--r-- | t/mro/next_skip_utf8.t | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/t/mro/next_skip_utf8.t b/t/mro/next_skip_utf8.t index 9dd465990c..64e774575a 100644 --- a/t/mro/next_skip_utf8.t +++ b/t/mro/next_skip_utf8.t @@ -68,11 +68,8 @@ is(Ｄiᚪၚd_D->ᕘ, 'Ｄiᚪၚd_D::ᕘ => Ｄiᚪၚd_C::ᕘ', '... skipped is(Ｄiᚪၚd_D->ᴮaȐ, 'Ｄiᚪၚd_D::ᴮaȐ => Ｄiᚪၚd_A::ᴮaȐ', '... skipped B & C and went to A correctly'); is(Ｄiᚪၚd_D->바ź, 'Ｄiᚪၚd_B::바ź => Ｄiᚪၚd_A::바ź', '... called B method, skipped C and went to A correctly'); is(Ｄiᚪၚd_D->buƵ, 'Ｄiᚪၚd_D::buƵ => Ｄiᚪၚd_B::바ź => Ｄiᚪၚd_A::바ź', '... called D method dispatched to , different method correctly'); -TODO: { - local our $TODO = "Warnings aren't clean yet"; - eval { Ｄiᚪၚd_D->fuz }; - like($@, qr/^No next::method 'fuz' found for Ｄiᚪၚd_D/u, '... cannot re-dispatch to a method which is not there'); -} +eval { Ｄiᚪၚd_D->fuz }; +like($@, qr/^No next::method 'fuz' found for Ｄiᚪၚd_D/u, '... cannot re-dispatch to a method which is not there'); is(Ｄiᚪၚd_D->woｚ, 'Ｄiᚪၚd_D::woｚ can => 1', '... can re-dispatch figured out correctly'); is(Ｄiᚪၚd_D->noz, 'Ｄiᚪၚd_D::noz can => 0', '... cannot re-dispatch figured out correctly'); |