1#!./perl
2
3BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' }
4
5use utf8;
6use open qw( :utf8 :std );
7
8plan 12;
9
10@ฟ옥ʮ::ISA = "ᶶ";
11*ຜ옥ㄏ::ISA = *ฟ옥ʮ::ISA;
12@ฟ옥ʮ::ISA = "Ｂᐊㄗ";
13
14ok 'ฟ옥ʮ'->isa("Ｂᐊㄗ"),
15 'isa after another stash has claimed the @ISA via glob assignment';
16ok 'ຜ옥ㄏ'->isa("Ｂᐊㄗ"),
17 'isa on the stash that claimed the @ISA via glob assignment';
18ok !ฟ옥ʮ->isa("ᶶ"),
19 '!isa when another stash has claimed the @ISA via glob assignment';
20ok !ຜ옥ㄏ->isa("ᶶ"),
21 '!isa on the stash that claimed the @ISA via glob assignment';
22
23@ฟ옥ʮ::ISA = "ᶶ";
24*ฟ옥ʮ::ISA = ["Ｂᐊㄗ"];
25
26ok 'ฟ옥ʮ'->isa("Ｂᐊㄗ"),
27 'isa after glob-to-ref assignment when *ISA is shared';
28ok 'ຜ옥ㄏ'->isa("Ｂᐊㄗ"),
29 'isa after glob-to-ref assignment on another stash when *ISA is shared';
30ok !ฟ옥ʮ->isa("ᶶ"),
31 '!isa after glob-to-ref assignment when *ISA is shared';
32ok !ຜ옥ㄏ->isa("ᶶ"),
33 '!isa after glob-to-ref assignment on another stash when *ISA is shared';
34
35@ᕘ::ISA = "ᶶ";
36*ጶ::ISA = \@ᕘ::ISA;
37@ᕘ::ISA = "Ｂᐊㄗ";
38
39ok 'ᕘ'->isa("Ｂᐊㄗ"),
40 'isa after another stash has claimed the @ISA via ref-to-glob assignment';
41ok 'ጶ'->isa("Ｂᐊㄗ"),
42 'isa on the stash that claimed the @ISA via ref-to-glob assignment';
43ok !ᕘ->isa("ᶶ"),
44 '!isa when another stash has claimed the @ISA via ref-to-glob assignment';
45ok !ጶ->isa("ᶶ"),
46 '!isa on the stash that claimed the @ISA via ref-to-glob assignment';
47