t/mro/package_aliases_utf8.t

183  for my $tail ('인ንʵ', '인ንʵ::', '인ንʵ:::', '인ንʵ::::') {
199       my $tail = shift;
200       @Ｌфť::ISA = "ɵűʇㄦ::$tail";
201       @R익hȚ::ISA = "cฬnए::$tail";
202       bless [], "ɵűʇㄦ::$tail"; # autovivify the stash
206       print "ok 1", "\n" if Ｌфť->isa("cฬnए::$tail");
207       print "ok 2", "\n" if R익hȚ->isa("ɵűʇㄦ::$tail");
208       print "ok 3", "\n" if R익hȚ->isa("cฬnए::$tail");
209       print "ok 4", "\n" if Ｌфť->isa("ɵűʇㄦ::$tail");
215     { args => [$tail] },
217      ." ($tail)";
235       my $tail = shift;
236       @Ｌфť::ISA = "ɵűʇㄦ::$tail";
237       @R익hȚ::ISA = "cฬnए::$tail";
241       bless [], "ɵűʇㄦ::$tail";
243       print "ok 1", "\n" if Ｌфť->isa("cฬnए::$tail");
244       print "ok 2", "\n" if R익hȚ->isa("ɵűʇㄦ::$tail");
245       print "ok 3", "\n" if R익hȚ->isa("cฬnए::$tail");
246       print "ok 4", "\n" if Ｌфť->isa("ɵűʇㄦ::$tail");
252     { args => [$tail] },
254      . " ($tail)";