t/mro/isarev_utf8.t

   1 #!./perl
   2
   3 BEGIN {
   4     unless (-d 'blib') {
   5         chdir 't' if -d 't';
   6         @INC = '../lib';
   7     }
   8     require q(./test.pl);
   9 }
  10
  11 use strict;
  12 use warnings;
  13 use utf8;
  14 use open qw( :utf8 :std );
  15
  16 plan(tests => 24);
  17
  18 use mro;
  19
  20 sub i {
  21  my @args = @_;
  22  @_
  23   = (
  24      join(" ", sort @{mro::get_isarev $args[0]}),
  25      join(" ", sort @args[1..$#args-1]),
  26      pop @args
  27     );
  28  goto &is;
  29 }
  30
  31 # Basic isarev updating, when @ISA changes
  32 @팟tРṉ::ISA = "B옫yპt::ぅงலҬ";
  33 @S추ঋ::ISA    = "B옫yპt::ぅงலҬ";
  34 @B옫yპt::ぅงலҬ::ISA = "B옫yპt";
  35 i B옫yპt => qw [ B옫yპt::ぅงலҬ 팟tРṉ S추ঋ ],
  36  'subclasses and subsubclasses are added to isarev';
  37 @팟tРṉ::ISA = ();
  38 i B옫yპt => qw [ B옫yპt::ぅงலҬ S추ঋ ],
  39  'single deletion from isarev';
  40 @B옫yპt::ぅงலҬ::ISA = ();
  41 i B옫yპt => qw [ ], 'recursive deletion from isarev';
  42                       # except underneath it is not actually recursive
  43
  44
  45 # More complicated tests that move packages around
  46
  47 @훗ㄎએỲ::ISA = "독";
  48 @독::ISA = "ㄘა읻";
  49 @ວlƑ::ISA = "ㄘა읻";
  50 @솜ｪ::ƀ란ƌ::ᚿamㅔ::ISA = "독::ㄅ";
  51 @독::ㄅ::ISA = "TﾚӔṪ";
  52 @Frȇe::팀ẽ::ISA = "TﾚӔṪ";
  53 @Ｍy촐ꡙʳ::ISA = "독::ցളŔ::Leaʇhㄦ";
  54 @독::ցളŔ::Leaʇhㄦ::ISA = "ցളŔ";
  55 @AŇℴtḫeᕃ::ցളŔ::ISA = "ցളŔ";
  56 *팈ዕ:: = *독::;
  57 delete $::{"독::"};
  58 i ㄘა읻=>qw[ ວlƑ 팈ዕ ],
  59  "deleting a stash elem updates isarev entries";
  60 i TﾚӔṪ=>qw[ Frȇe::팀ẽ 팈ዕ::ㄅ ],
  61  "deleting a nested stash elem updates isarev entries";
  62 i ցളŔ=>qw[ AŇℴtḫeᕃ::ցളŔ 팈ዕ::ցളŔ::Leaʇhㄦ ],
  63  "deleting a doubly nested stash elem updates isarev entries";
  64
  65 @ごଅｔ::ISA = "ぅงலҬ";
  66 @ごଅｔ::DଐɾẎ::ISA = "ごଅｔ";
  67 @ごଅｔ::DଐɾẎ::Ⱦ옥ゲᕟƃᚒḠ::ISA = "ごଅｔ::DଐɾẎ";
  68 @웨ɪrƌ::ጢᶯᵷ::ISA = "ｇ";
  69 *ｇ:: = *ごଅｔ::;
  70 i ごଅｔ => qw[ ごଅｔ::DଐɾẎ ごଅｔ::DଐɾẎ::Ⱦ옥ゲᕟƃᚒḠ 웨ɪrƌ::ጢᶯᵷ ],
  71  "isarev includes subclasses of aliases";
  72 delete $::{"ｇ::"};
  73 i ぅงலҬ => qw[ ごଅｔ ごଅｔ::DଐɾẎ ごଅｔ::DଐɾẎ::Ⱦ옥ゲᕟƃᚒḠ ],
  74  "deleting an alias to a package updates isarev entries";
  75 i"ごଅｔ" => qw[ ごଅｔ::DଐɾẎ ごଅｔ::DଐɾẎ::Ⱦ옥ゲᕟƃᚒḠ ],
  76  "deleting an alias to a package updates isarev entries of nested stashes";
  77 i"ごଅｔ::DଐɾẎ" => qw[ ごଅｔ::DଐɾẎ::Ⱦ옥ゲᕟƃᚒḠ ],
  78  "deleting an stash alias updates isarev entries of doubly nested stashes";
  79 i ｇ => qw [ 웨ɪrƌ::ጢᶯᵷ ],
  80  "subclasses of the deleted alias become part of its isarev";
  81
  82 @챂린ẽ::ISA = "Hഓf엗::맘말";
  83 @챂린ẽ::DଐɾẎ::ISA = "챂린ẽ";
  84 @챂린ẽ::DଐɾẎ::Obｪʶ핫l::ISA = "챂린ẽ::DଐɾẎ";
  85 @ẂhaƮᵋቭȓ::ISA = "챂린ẽ";
  86 *챂릳:: = *챂린ẽ::;
  87 *챂린ẽ:: = *ㄔɘvレ::;
  88 i"Hഓf엗::맘말" => qw[ 챂릳 ],
  89  "replacing a stash updates isarev entries";
  90 i ㄔɘvレ => qw[ 챂릳::DଐɾẎ ẂhaƮᵋቭȓ ],
  91  "replacing nested stashes updates isarev entries";
  92
  93 @ᛑiስアsઍ::ｪᔦ::ISA = "ᛑiስアsઍ";
  94 @ᛑiስアsઍ::ｪᔦ::Iṇᚠctĭo웃::ISA = "ᛑiስアsઍ::ｪᔦ";
  95 @Kㄦat옻oǌ운ctᝁヸቲᔈ::ISA = "ᛑiስアsઍ::Opɥt할및::Iṇᚠctĭo웃";
  96 *ᛑiስアsઍ::Opɥt할및:: = *ᛑiስアsઍ::ｪᔦ::;
  97 {package 솜e_란돔_new_symbol::Iṇᚠctĭo웃} # autovivify
  98 *ᛑiስアsઍ::Opɥt할및:: = *솜e_란돔_new_symbol::;
  99 i ᛑiስアsઍ => qw[ ᛑiስアsઍ::ｪᔦ ᛑiስアsઍ::ｪᔦ::Iṇᚠctĭo웃 ],
 100  "replacing an alias of a stash updates isarev entries";
 101 i"ᛑiስアsઍ::ｪᔦ" => qw[ ᛑiስアsઍ::ｪᔦ::Iṇᚠctĭo웃 ],
 102  "replacing an alias of a stash containing another updates isarev entries";
 103 i"솜e_란돔_new_symbol::Iṇᚠctĭo웃" => qw[ Kㄦat옻oǌ운ctᝁヸቲᔈ ],
 104  "replacing an alias updates isarev of stashes nested in the replacement";
 105
 106 # Globs ending with :: have autovivified stashes in them by default. We
 107 # want one without a stash.
 108 undef *Eṁpｔᔾ::;
 109 @눌Ļ::ISA = "Eṁpｔᔾ";
 110 @눌Ļ::눌Ļ::ISA = "Eṁpｔᔾ::Eṁpｔᔾ";
 111 {package ዚlcᕻ::Eṁpｔᔾ} # autovivify it
 112 *Eṁpｔᔾ:: = *ዚlcᕻ::;
 113 i ዚlcᕻ => qw[ 눌Ļ ], "assigning to an empty spot updates isarev";
 114 i"ዚlcᕻ::Eṁpｔᔾ" => qw[ 눌Ļ::눌Ļ ],
 115  "assigning to an empty spot updates isarev of nested packages";
 116
 117 # Classes inheriting from multiple classes that get moved in a single
 118 # assignment.
 119 @ᕘ::ISA = ("ᵇ", "ᵇ::ᵇ");
 120 {package अ::ᵇ}
 121 my $अ = \%अ::;     # keep a ref
 122 *अ:: = 'whatever'; # clobber it
 123 *ᵇ:: = $अ;         # assign to two superclasses of ᕘ at the same time
 124 # There should be no अ::ᵇ isarev entry.
 125 i"अ::ᵇ" => qw [], 'assigning to two superclasses at the same time';
 126 ok !ᕘ->isa("अ::ᵇ"),
 127  "A class must not inherit from its superclass’s former name";
 128
 129 # undeffing globs
 130 @α::ISA = 'β';
 131 $_ = \*α::ISA;    # hang on to the glob
 132 undef *α::ISA;
 133 i β => qw [], "undeffing an ISA glob deletes isarev entries";
 134 @aᙇ::ISA = '붘ㆉ';
 135 $_ = \*aᙇ::ISA;
 136 undef *aᙇ::;
 137 i 붘ㆉ => qw [], "undeffing a package glob deletes isarev entries";
 138
 139 # Package aliasing/clobbering when the clobbered package has grandchildren
 140 # by inheritance.
 141 @Ƚ::ISA = 'ภɵ';
 142 @숩Ȼl았A::ISA = "숩Ȼl았Ƃ";
 143 @숩Ȼl았Ƃ::ISA = "Ƚ";
 144 *Ƚ:: = *bᚪᶼ::;
 145 i ภɵ => qw [],
 146  'clobbering a class w/multiple layers of subclasses updates its parent';
 147
 148 @ᖭ랕::ISA = 'S민';
 149 %ᖭ랕:: = ();
 150 i S민 => qw [], '%Package:: list assignment';